MT コメントSPAM対策

コメントSPAMがかなりひどくIPベース制限では効かなくなってきたので、URLベースではじくように改良。

MT/App/Comments.pm の 64行目あたり（MT 2.5系（古）での話なので、2.66系では多分違います。MT::IPBanList でごにょごにょやってるとこあたり）に、以下を追加

    use FileHandle;  
    my %banned_url;
    my $blacklist = "/path/to/blacklist"; # 適当に
    my $fh = FileHandle->new($blacklist) or die "$blacklist: $!";
    while (<$fh>) {
        chomp;
        $banned_url{$_} = 1;
    }

    if ($banned_url{$q->param('url')}) {
        return $app->handle_error('Banned');
    }

メンテナンスは、Ban したいURL を、$blacklist ファイルに追加していくだけでOK。パスは適当に変えてください。