December 12, 2004
日本語以外のコメントを拒否
昨夜から今朝にかけて一晩で1,000件以上のスパムコメントが着弾した。
スパムは止むことなくいまだ続いているようなので、
ここを参考にして、日本語以外のコメントを拒否するようにしてみた。
次は 3.121-jaでのdiff。
% diff mt-comments.cgi.ORG mt-comments.cgi
21a22,25
> require CGI;
> my $q = CGI->new;
> my $txt = $q->param('text');
> if(($txt ne "") && ($txt !~ m/[\x80-\xff]/)){die('error : Please write in Japanese.')};
