PyukiWiki CVS Commit
pyuki****@lists*****
2012年 2月 26日 (日) 12:25:48 JST
Index: PyukiWiki-Devel/plugin/article.inc.pl diff -u PyukiWiki-Devel/plugin/article.inc.pl:1.464 PyukiWiki-Devel/plugin/article.inc.pl:1.465 --- PyukiWiki-Devel/plugin/article.inc.pl:1.464 Wed Feb 22 11:51:03 2012 +++ PyukiWiki-Devel/plugin/article.inc.pl Sun Feb 26 12:25:48 2012 @@ -1,6 +1,6 @@ ###################################################################### # article.inc.pl - This is PyukiWiki, yet another Wiki clone. -# $Id: article.inc.pl,v 1.464 2012/02/22 02:51:03 papu Exp $ +# $Id: article.inc.pl,v 1.465 2012/02/26 03:25:48 papu Exp $ # # "PyukiWiki" version 0.2.0-p2-preview4 $$ # Author: Nekyo http://nekyo.qp.land.to/ @@ -77,9 +77,9 @@ my $_no_name = ""; sub plugin_article_action { - &::spam_filter($::form{msg}, 2); - &::spam_filter($::form{myname}, 0); - &::spam_filter($::form{subject}, 0); + &::spam_filter($::form{msg}, 2, $::chk_article_uri_count); + &::spam_filter($::form{myname}, 0, $::chk_article_uri_count); + &::spam_filter($::form{subject}, 0, $::chk_article_uri_count); if (($::form{msg} =~ /^\s*$/) || ($::form{myname} =~ /^\s*$/ && $article::noname eq 1) Index: PyukiWiki-Devel/plugin/comment.inc.pl diff -u PyukiWiki-Devel/plugin/comment.inc.pl:1.459 PyukiWiki-Devel/plugin/comment.inc.pl:1.460 --- PyukiWiki-Devel/plugin/comment.inc.pl:1.459 Wed Feb 22 11:51:03 2012 +++ PyukiWiki-Devel/plugin/comment.inc.pl Sun Feb 26 12:25:48 2012 @@ -1,6 +1,6 @@ ###################################################################### # comment.inc.pl - This is PyukiWiki, yet another Wiki clone. -# $Id: comment.inc.pl,v 1.459 2012/02/22 02:51:03 papu Exp $ +# $Id: comment.inc.pl,v 1.460 2012/02/26 03:25:48 papu Exp $ # # "PyukiWiki" version 0.2.0-p2-preview4 $$ # Author: Nekyo http://nekyo.qp.land.to/ @@ -56,8 +56,8 @@ use strict; sub plugin_comment_action { - &::spam_filter($::form{mymsg}, 2); - &::spam_filter($::form{myname}, 0); + &::spam_filter($::form{mymsg}, 2, $::chk_article_uri_count); + &::spam_filter($::form{myname}, 0, $::chk_article_uri_count); if (($::form{mymsg} =~ /^\s*$/ && $comment::nodata eq 1) || ($::form{myname} =~ /^\s*$/ && $comment::noname eq 1) Index: PyukiWiki-Devel/plugin/pcomment.inc.pl diff -u PyukiWiki-Devel/plugin/pcomment.inc.pl:1.410 PyukiWiki-Devel/plugin/pcomment.inc.pl:1.411 --- PyukiWiki-Devel/plugin/pcomment.inc.pl:1.410 Wed Feb 22 11:51:03 2012 +++ PyukiWiki-Devel/plugin/pcomment.inc.pl Sun Feb 26 12:25:48 2012 @@ -1,6 +1,6 @@ ###################################################################### # pcomment.inc.pl - This is PyukiWiki, yet another Wiki clone. -# $Id: pcomment.inc.pl,v 1.410 2012/02/22 02:51:03 papu Exp $ +# $Id: pcomment.inc.pl,v 1.411 2012/02/26 03:25:48 papu Exp $ # # "PyukiWiki" version 0.2.0-p2-preview4 $$ # Author: Nanami http://nanakochi.daiba.cx/ @@ -81,8 +81,8 @@ use strict; sub plugin_pcomment_action { - &::spam_filter($::form{mymsg}, 2); - &::spam_filter($::form{myname}, 0); + &::spam_filter($::form{mymsg}, 2, $::chk_article_uri_count); + &::spam_filter($::form{myname}, 0, $::chk_article_uri_count); if (($::form{mymsg} =~ /^\s*$/ && $pcomment::nodata eq 1) || ($::form{myname} =~ /^\s*$/ && $pcomment::noname eq 1)