SPAM避け

hidden埋め込むのはバージョンアップ時に追従するのが大変なので日本語無ければ蹴る方向に。

mt-comments.cgi

use strict;
use CGI qw(:standard);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
my $tck = param('text');
die if($tck ne "" && $tck !~ /[\x80-\xff]/);
}

mt-tb.cgi

use strict;
use CGI qw(:standard);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
my $tck = param('excerpt');
die if($tck ne "" && $tck !~ /[\x80-\xff]/);
}