MovableType - トラックバックスパムとコメントスパム対策

[その他]

トラックバックスパムやコメントスパム対策のひとつとして、全角文字が含まれているかどうかをチェックする方法があります。

[トラックバックスパム対策 - mt-tb.cgi]

eval {
    require MT::App::Trackback;
    #トラックバックスパム対策
    use CGI;
    my $query = new CGI;
    if( ($query->param('excerpt') ) && ($query->param('excerpt') !~ m/[xA1-xFE][xA1-xFE]/) ) { die 'error' };
    #トラックバックスパム対策ここまで

    my $app = MT::App::Trackback->new( Config => $MT_DIR . 'mt.cfg',
                                       Directory => $MT_DIR )
        or die MT::App::Trackback->errstr;
    local $SIG{__WARN__} = sub { $app->trace($_[0]) };
    $app->run;
};

[コメントスパム対策 - mt-comments.cgi]

eval {
    require MT::App::Comments;
    my $app = MT::App::Comments->new( Config => $MT_DIR . 'mt.cfg',
                                      Directory => $MT_DIR )
        or die MT::App::Comments->errstr;

    #コメントスパム対策
    use CGI;
    my $query = new CGI;
    if( ($query->param('text') ) && ($query->param('text') !~ m/[xA1-xFE][xA1-xFE]/) ) { die 'error' };
    #コメントスパム対策　ここまで


    local $SIG{__WARN__} = sub { $app->trace($_[0]) };

    $app->run;

};

IP::Country::Fast - IP割り当て国を調べるを参考にIPの割り当て国にてフィルターするのもよいと思います。