http://nais.to/~yto/clog/2006-11-30-3.html
この日記は、たつをさんが作ったくっつきBBSを元に、
書きこみがあるとメールが来るように改造し(-->[2004-11-16-3])
スパム対策をしたものを使っている(-->[2006-01-25-2])。
でも同じような外部サービスがあるなら自前でやる理由もないかなあ。
スパムは本当に沢山くるからね。
今のスパム対策用のコードは、以下のような感じになっている。
場当たり的にコードを追加してるため相当美しくない。
if ($mode eq "write") {
$name = $noname if ($name =~ /^\s*$/sm);
# anti spam
if (($body ne "") && ($body !~ m/[\x80-\xff]/)) {die('error')};
if ($body =~ m/deai-jiten.com/) {die('error')};
if ($body =~ m/rution.info/) {die('error')};
if ($body =~ m/nottion.info/) {die('error')};
if ($body =~ m/comu2.com/) {die('error')};
if ($body =~ m/.nm.ru/) {die('error')};
if ($body =~ m/.alice.it/) {die('error')};
if ($body =~ m/solisearch.net/) {die('error')};
if ($body =~ m/porno/) {die('error')};
if ($body =~ m/girl/) {die('error')};
if ($body =~ m/antivirus/) {die('error')};
if ($mail_or_url =~ "successlifestyle") {die('error')};