2005年05月23日

禁止ワードの設定

私の掲示板にアダルト系のいやらしい書き込みがやたら多くなり困っております
掲示板は、Kent WebのフリーCGI G-LIGHT v4.61 を使用しており、禁止ワード機能が無かったのでパターンマッチ演算子を使って次のように改造しました

sub regist { の下に次の行を挿入
if ($FORM{'comment'} =~ /セックス|勃起|援助交際|サラ金|熟女/){ &error("書き込み出来ません"); }

|と|の間に次々と禁止ワードを入れてやればOK
注) 最後は |/ としないこと。また、CGIはちょっとしたこと(例えば ; と : や ~ と 〜 の違いなど)でも動かなくなるので必ずバックアップしておくこと

初心者向けのPerl入門ページを参考にしました
http://www.kent-web.com/perl/

【追伸】
日本語変換ライブラリは jcode.pl を用いて Shift_JIS で記述しているので、この方法だと特定のカタカナが |と| の間に入るととうまくいかないことが判明
例えば、|ポルノ| と入れると、全てのカタカナ入力がはじかれてしまいます
今のところ、そうした文字を入れないようにしていますが、良い方法があったら教えてください。


タグ:スパム


posted by ガンさん | Comment(0) | TrackBack(0) | CGI改造 |
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのトラックバック