- 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です。
|

|