03/10/06 16:27 I1BweU4q
#!/usr/bin/perl
$URL = $ENV{'QUERY_STRING'};
print "Content-type: text/html\n\n";
print "<html><head>\n";
print "<title>jump</title></head>\n";
print "<body>\n";
print "以下のURLに飛びますよろしいですか？\n<br>\n";
print "<a href=" . $URL . ">" . $URL . "</a>\n";
print "</body></html>\n";
exit;
これでいいんだろ？
jump.cgi?URLﾘﾝｸ(yahoo.co.jp)
みたいなかんじで呼び出せばOKです。