PyukiWiki CVS Commit
pyuki****@lists*****
2012年 7月 1日 (日) 17:59:15 JST
Index: PyukiWiki-Devel-UTF8/lib/wiki_spam.cgi
diff -u PyukiWiki-Devel-UTF8/lib/wiki_spam.cgi:1.26 PyukiWiki-Devel-UTF8/lib/wiki_spam.cgi:1.27
--- PyukiWiki-Devel-UTF8/lib/wiki_spam.cgi:1.26 Sat Jun 30 01:01:48 2012
+++ PyukiWiki-Devel-UTF8/lib/wiki_spam.cgi Sun Jul 1 17:59:15 2012
@@ -1,6 +1,6 @@
######################################################################
# wiki_spam.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_spam.cgi,v 1.26 2012/06/29 16:01:48 papu Exp $
+# $Id: wiki_spam.cgi,v 1.27 2012/07/01 08:59:15 papu Exp $
#
# "PyukiWiki" ver 0.2.1-alpha2-dev1 $$
# Copyright (C) 2004-2012 Nekyo
@@ -181,6 +181,19 @@
sub _spam_filter {
my ($chk_str, $level, $uricount, $mailcount, $retflg) = @_;
+ if(-r $::deny_list) {
+ open(R, $::deny_list) || &print_error("$::deny_list can't read");
+ foreach(<R>) {
+ if($ENV{REMOTE_HOST} eq "") {
+ if($ENV{REMOTE_ADDR}=~/$_/) {
+ return "spam";
+ }
+ }
+ if($ENV{REMOTE_ADDR}=~/$_/ || $ENV{REMOTE_HOST}=~/$_/) {
+ return "spam";
+ }
+ }
+ }
return if ($::filter_flg != 1); # フィルターオフãªã‚‰ä½•ã‚‚ã—ãªã„。 # comment
return if ($chk_str eq ''); # æ–‡å—列ãŒç„¡ã‘ã‚Œã°ä½•ã‚‚ã—ãªã„。 # comment
# v 0.2.0 fix # comment