イヤ〜！コメントスパム
コメントスパムがたまに来る。禁止IP設定をちまちまやってたんだけど、付け焼き刃の印象は免れない。
“Movable Type” コメントスパム の2語でグーグルで検索したところ、色々出てきた。とりあえず「すべて英語のコメントは弾く」という方法を採用してみた（参考にしたページ）。
うちの環境だと、このままだと動作しなかったので一部修正。
1行目
#!/usr/bin/perl -w -I/path/to/movabletype/extlib/
use strict なので、errorがでないように条件のところを少し変える。
if(defined($txt) && ($txt !~ m/[x80-xff]/)){
まとめるとこんな感じ。
#!/usr/bin/perl -w -I/path/to/movabletype/extlib/
# Copyright 2001-2004 Six Apart. This code cannot be redistributed without
# permission from www.movabletype.org.
#
# $Id: mt-comments.cgi,v 1.35 2004/05/17 19:51:25 ezra Exp $
use strict;
use CGI qw(:standard);
# 英語だけのコメントは弾きます。
my $txt = param(‘text’);
if(defined($txt) && ($txt !~ m/[x80-xff]/)){
print “Content-Type: text/htmlnn”;
print “An error occurred: $@”;
exit(-1);
};
# Copyright 2001-2004 Six Apart. This code cannot be redistributed without
# permission from www.movabletype.org.
#
# $Id: mt-comments.cgi,v 1.35 2004/05/17 19:51:25 ezra Exp $
use strict;
use CGI qw(:standard);
# 英語だけのコメントは弾きます。
my $txt = param(‘text’);
if(defined($txt) && ($txt !~ m/[x80-xff]/)){
print “Content-Type: text/htmlnn”;
print “An error occurred: $@”;
exit(-1);
};
あと、コメント一覧画面から一括して削除する、というのも良さそうなので採用しよう（参考にしたページ）。ちなみにこのぺーじの作者さん、Perlが全くわからない（全くというのは謙遜だろうけど）らしいのに頑張ったらしい。見習わねば＞Perlはそこそこ得意なくせに全くソースを読もうとしない自分
