- 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";
|
 |
