コメントスパム対策

コメントスパム対策として、 BanASCII というプラグインを入れてみました。
しかし、このプラグインは Perl 5.8 以上が必要とのことで。

うちがレンタルしてるサーバは Perl 5.6 です・・・
そのままでは使えないので、仕方なくコードを若干修正。
Laitn-1 文字列の判別は諦め ASCII 文字列のみの判定に変更。
そして、 ASCII 文字列しかないコメントはすべて Deny 処理に（ moderate モードの削除）。
作者の方にかなり失礼な書き換えになってしまいました・・・

っていうか、ロギングしてる処理があり、実際 RDBMS にログが書き込まれてたんですが、
MT の管理画面でそれを見るところがないような気が・・・
私が見落としてるだけ？？？

ちなみに、書き換えた後はこんな感じ。

サブルーチンの handler のみ書き換え。

sub handler {
    my($eh, $app, $comment) = @_;
    if ($comment->text !~ /[\x80-\xff]/) {
        $app->log("ASCII only comment from " .  $app->remote_ip . ": deny");
        return 0;
    }
    return 1;
}

投稿者： dust+ 投稿時間： 2005年09月07日 23:17 [ トラックバック | 雑記 ]