スパム対策
以前から割とちょくちょく実験室のぜろちゃんねるに海外からのスパム投稿が来ていた。最初はわざわざ消していたんだけど、めんどくさくなって放置していたら結構すごいことになってきてしまった。IPBANも今ひとつ効果に欠けそうだったので書き込みの特徴からはじくことに。なにしろ相手は外国のスパムだ。ASCII文字だけの投稿なら全部ぶった切ってしまえば問題ないだろう。というわけで・・・
sub AsciiCheck { my $text = $FORMINFO{'MESSAGE'}; unless ($text=~/[^\x20-\x7F\n\r\s]/) { $CPrint->PrintBBSError(403,\%FORMINFO,%SYSINFO); exit; } }
↑足して適当なところから呼び出して終わり。一週間たったけどスパムは全部はじいてくれているようです。