04/10/18 18:10:59 2ZnGc/Yp
面倒くせぇ。
持ってけ。
#!/usr/local/bin/perl
# ライブラリ取込
require './jcode.pl';
$req = $ENV{'QUERY_STRING'};
$req =~ s/^/http:\/\//g;
print "Content-type: text/html\n\n";
if($req =~ /\w+\.\w+/){
print >>"EOM";
<html>
<head>
<title>ジャンプ</title>
</head>
<body>
<a href="$req">$req</a>
</body>
</html>
EOM
}else{
print <<"EOM";
ERROR
EOM
}
exit;