« July 2005 | メイン | March 2007 »
February 25, 2007
コメントスパム対策
最近コメントスパムが多いので対策を行いました。しばらく様子見することにします。
mt-comments.cgiのeval内、require MT::App::Comments;以下にrequire CGI;
my $q = CGI->new;
my $txt = $q->param('text');
if(($txt ne "") && ($txt !~ m/[\x80-\xff]/)){die('error')};