- 113 名前：nobodyさん [03/12/01 22:25 ID:xMstLl8J]
- #!/usr/local/bin/perl
$url = $ENV{'REQUEST_URI'};
$url = $2 if($url =~ /^http:\/\/(.*)/i);
$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\@marsa.org<p align=\"right\"><i>";
print "<a href=ime.marsa.org>Powered by Marsa</a>031121</i></p>\n";
