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はこれでしばらく様子見してみよう。