perl/script/りだいれくたー

提供: dsk's note
移動: 案内検索
#! /usr/bin/perl
#   r.cgi?転送先URL で呼び出す
 
my $url = $ENV{QUERY_STRING} || 'http://$ENV{SERVER_NAME}/';
$url =~ s/&/&/g;
$url =~ s/</&lt;/g;
$url =~ s/>/&gt;/g;
 
print <<_EOF;
Content-Type: text/html; charset=Shift_JIS
Content-Language: ja
 
<html>
<head>
<meta http-equiv="Refresh" content="0;URL=$url">
<title>$url</title>
</head>
<body>
$urlに転送されますしばらくお待ちください。
</body>
</html>
_EOF