らんシャチョーのすちゃらか雑記

プログラムってほどじゃないんだけど。

#ran begin for comment spam
if($ENV{'HTTP_USER_AGENT'} !~ "Firefox" ){
   if($ENV{'HTTP_REFERER'} !~ "ranpub.com" ){
       print "Content-Type: text/html\n\n";
       print "Sorry, No Firefox and No HTTP_REFERER can't comment this blog.</br>";
       print "<h1>Your Access Infomation</h1>\n";
       print "<ul>\n";
       print "<li>http_user_agent = $ENV{'HTTP_USER_AGENT'}\n";
       print "<li>remote_host = $ENV{'REMOTE_HOST'}\n";
       print "</ul>\n";
       exit;
   }
}

mt-comments.cgiの頭の方に入れる。
リファラ確認で対応。
と思ったんだけど「Firefoxはデフォで隠すよねー」ってことで除外してる(爆)
10Gくらいのデータ返してやっても良いんだが(笑)