全く同じ働きをするCGIを書いてみました。
※私の妄想にしか過ぎないので間違ってる可能性もあります。
#!/usr/bin/perl
#===================================
#スクリプト名:ジャンプCGI
#作者:ORBIT
#===================================
# URLの後ろパスがついているかチェック
if ($ENV{'PATH_INFO'} eq ""){&error;}
# パスにhttp:/が含まれている場合削除
$ENV{'PATH_INFO'} =~ s/http:///;
# URLの作成
$PATH = "http:/$ENV{'PATH_INFO'}";
# 出力
print "Content-type: text/htmlnn";
print <<EOT
<html><head>
<title>jump</title></head>
<body>
以下のURLに飛びますよろしいですか？<br>
<a href="$PATH">$PATH</a>
</body></html>
EOT
;
# パスが見つからなかった場合は下記を出力
sub error {
print "Content-type: text/htmlnn";
print <<EOT
<html><head>
<title>jump</title></head>
<body>
test
</body></html>
EOT
;
exit;
}
これをエラーページにしてるのかリダイレクトしてるのか多分そんなところかと思います。
0 Comments.