- 65 名前：並 [03/10/06 16:27 ID: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?yahoo.co.jp
みたいなかんじで呼び出せばOKです。
