うざい宣伝書き込みの中でもとくにうざいURL大量書き込みを防ぐ改造。
$kakikomi 書き込み内容の変数
&error エラーサブルーチンとする。
$inhttp = 9; #URL書き込みの許容値（これ以上多かったらアウト）
$checkspam = $kakikomi ;
$httpspam = $checkspam =~ s/http\://g;
if( $httpspam > $inhttp ){ &error("投稿できません。"); }
これで10個以上URLを書き込まれた場合エラーになる。
掲示板にしつこく宣伝書き込みをされたりして困ったときに。
禁止ワードを設定できる掲示板に改造してみる。
$kakikomi が書き込み内容の変数
&error エラーのサブルーチンとする。
$badcomment = 'コメント１,コメント２'; # 禁止ワード（カンマで区切って複数指定可）
$badcomment =~ tr/,/|/;
$spam = $kakikomi =~ s/($badcomment)//g;
if( $spam > 0 ){ &error("投稿できません。"); }
こんな感じで、宣伝先のサイトのドメインとかURLを引っかけてしまえばいいと思う。
