古い日記から新しい日記へLocation

以下のような感じの物を hns の index.cgi のかわりに仕込んでみた。

#!/usr/bin/perl
if($ENV{'QUERY_STRING'}=~/&to=([0-9]....[0-9])([0-9][0-9])?/){
        print "Location: http://d.tnh.jp/?date=$1$2\n\n";
}else{
        print "Location: http://d.tnh.jp/\n\n";
}

これで Referer もちゃんと転送される模様。

紅葉情報

ここの紅葉も要チェックですよ！