- 175 名前:nobodyさん mailto:sage [04/11/07 10:10:57 ID:???]
- >172どどっちがソースきれい?
#!/usr/local/bin/perl $url = $ENV{'REQUEST_URI'}; $url =~ s|/||; if($url =~ /http:/ ) { $url = "$url"; }else{ $url = "$url"; } print "Content-type: text/html\n\n"; print "<html><head><title>jump</title></head><b>"; print "<a href=$url>$url</a></b><br>別のサイトにジャンプしようとしています。"; print "宜しければ上記のリンクをクリックしてください<br><hr>\n"; print "広告\n"; print "<hr>広告のお問い合わせはad\@ime.st<p align=\"right\"><i>"; print "<a href=ime.st>Powered by ime</a>021126</i></p>\n";
|

|