減色図鑑

最近のスパムコメント・トラックバックはひどく、一日にあわせて200件以上！とてもではないですが毎日削除できる数ではなく、MTのアップグレードを余儀なくされた状態でした。
そんなこんなでマニュアルを見ながら行ったものの・・・

サイトの構築ができない！！

原因は一個前の記事でも書きましたがCPUの過負荷。
レンタルしているサーバの割り当てCPU限界を超えてしまうようで、構築中にエラーが発生しどうにもならない状態でした。

解決策は結局DBを移行する（Berkeley DB→sqlite）ことでCPUの負荷を軽減するしかないようで、私も下記のリンクを参照して移行作業を行いました。
Movable Type3.2の500エラー対策！ＤＢをsqliteにする方法
※非常に読みやすくまとまっていて本当に助かりました！

もう、はじめからマニュアルに載せてよ！って感じですね。（違うか）

■話し変わって
ブログの方は良いとして、おーしゃんぶるーの方の掲示板。。。
スパム凄いです。
特にひどいのは海外からの宣伝書き込み。この書き込み、多分ツールで書き込みしていると思うのですが、別の掲示板ではログファイルが壊される状態・・・いい加減弾くぞ！という強い意志を持ってCGIの改造に挑みました。

で、変更したのは下記の2点
１．海外のスパムをすべて拒否！
　　掲示板はPerlで書かれているものを使用しています。
　　で、海外の書き込み、つまり英語の書き込みをすべて弾く方向で
　　対応したいと考え、

　　入力された文字数　＝　日本語を加味した文字数

　　と、上記の条件がなりたてば、一致した時点で日本語が含まれないと
　　判断できるのでエラーにしちゃえ！と考えました。

　　ところが・・・
　　Perlって日本語文字列の文字数をカウントする関数はないんですね。
　　ネットを探していたら下記のサブルーチン関数集を発見してそれを使用させて
　　頂くことにしました。
　　perl-lib.pl

　　このサブルーチン関数集の日本語を考慮した文字数をカウントするklengthと
　　単純に文字数をカウントする lengthで値を取得し、
　　$comment1 = klength($comment);
　　$comment2 = length($comment);

　　if($comment1 eq $comment2) { &er_("スパム対策に引っかかっています"); }

　　としてあげれば日本語を含まないコメントの投稿がエラーとなります。

　　perl-lib.plを使わない方法では下記の例がありますが、いまいち防ぎきれて
　　いないようです。
　　if ( $comment!~ m/[\x80-\xff]/ ){ &er_("スパム対策に引っかかっています"); }

２．巧妙化した日本語スパム
　　もう、禁止ワードくらいじゃどうにもならない！
　　ということで、本文中の「http」文字列を入力禁止にしちゃいました。
　　（掲示板の禁止ワードにいれるとURLの入力もエラーになると思う）

　　これは簡単。

　　$comment3 = index($comment, 'http');
　　として、
　　if($comment3 > 1) { &er_("スパム対策に引っかかっています"); }

　　実は見つからなかったときの戻り値がわからなくて1と比較するという
　　あいまいな条件になっています。（←調べろよ！）

まだスパムは続くとは思いますが、上記2点の変更でかなりのスパムを弾く
ことができると思います。

稚拙な対応で恥ずかしいですし、２の方の対応は掲示板でアドレスを
入力する一般ユーザが居る場合は使えないので「無理だYO！」って
感じでしょうか。
また、わざわざ変数（$comment3等）に格納する必要もないです。