ime.nuってどうなっているの？

**nobodyさん** · 03/12/01 22:25

#!/usr/local/bin/perl
$url = $ENV{'REQUEST_URI'};
$url = $2 if($url =~ /^http:\/\/(.*)/i);
$url = "http://$url";

print "Content-type: text/html\n\n";
print "<html><head><title>jump</title></head>";
print "<a href=$url>$url</a> 別のサイトにジャンプしようとしています。";
print "宜しければ上記のリンクをクリックしてください <hr>\n";
print "広告\n";
print "<hr>広告のお問い合わせはad\@marsa.org";
print "<a href=http://ime.marsa.org>;Powered by Marsa</a>031121\n";