reject wiki spam パッチfor WalWiki
「# You MAY modify following variables.」に、
my @spamwords = ('51.net','1816.net','gghggh.com'); # ayati add
を追加、
「sub do_write {」の「 # Walrus add [part edit] start」の前に、
# ayati add [reject wiki spam] start
if (&is_wikispam()) {
&print_header($form{mypage});
&print_message($resource{cantchange});
&print_footer($form{mypage});
return;
}
# ayati add [reject wiki spam] end
を追加、
最後近くの「# Walrus add [for debug] end」の後に、
# ayati add [reject wiki spam] start
sub is_wikispam {
foreach my $spamword (@spamwords) {
if ($form{mymsg} =~ /$spamword/) {
return 1;
}
}
return 0;
}
# ayati add [reject wiki spam] end
を追加しました。
ケーキデータベースwikiはこれでしばらく様子見してみよう。
| 固定リンク
この記事へのコメントは終了しました。
コメント
さらに、
# ayati add [reject wiki spam] start
sub is_wikispam {
foreach my $spamword (@spamwords) {
if ($form{mymsg} =~ /$spamword/) {
return 1;
}
}
if($form{mymsg} !~ m/[\x80-\xff]/) { # 日本語なかったら
return 1;
} else {
return 0;
}
}
# ayati add [reject wiki spam] end
のようにしてみました。blacklistの管理が面倒そうなので・・・。
投稿: あやち | 2005/01/21 21:28