#!/usr/bin/perl
# 引越し先の新URLをここに設定してください
$URLnew = "http://www.lubic.jp/com/0K6a0I8r3E1n/lubic.cgi";
# 引数の取得
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $hikisuu, $ENV{'CONTENT_LENGTH'});
} else {
$hikisuu = $ENV{'QUERY_STRING'};
}
# 新URLに引数(転送先URL)を連結
if ( $hikisuu eq "" ) {
$URLmove = $URLnew;
} else {
$URLmove = $URLnew . "?" . $hikisuu;
}
if ($ENV{'HTTP_USER_AGENT'} =~ /slurp|msnbot/i) {
# 以下のinktomi系(MSN,Yahoo)のクローラの場合には、
# URLの移転表示のみを行い、URL転送しない。
# Mozilla/5.0 (compatible; Yahoo! Slurp; http://help.yahoo.com/help/us/ysearch/slurp)
# Mozilla/5.0 (Slurp/si; slurp@inktomi.com; http://www.inktomi.com/slurp.html)
# Mozilla/3.0 (Slurp/cat; slurp@inktomi.com; http://www.inktomi.com/slurp.html)
# msnbot/0.11 (+http://search.msn.com/msnbot.htm)
print "Content-type: text/html\n\n";
print <<"HTML";
301 Moved Permanently
アクセスされたURLは、$URLmoveに移転しました。
HTML
} else {
# URL転送を行なう。
print "Status: 301 Moved Permanently\n";
print "Content-type: text/html\n";
print "Location: $URLmove\n\n";
}
exit;