PyukiWiki CVS Commit
pyuki****@lists*****
2012年 2月 27日 (月) 02:18:21 JST
Index: PyukiWiki-Devel-UTF8/lib/wiki.cgi
diff -u PyukiWiki-Devel-UTF8/lib/wiki.cgi:1.315 PyukiWiki-Devel-UTF8/lib/wiki.cgi:1.316
--- PyukiWiki-Devel-UTF8/lib/wiki.cgi:1.315 Sun Feb 26 14:32:33 2012
+++ PyukiWiki-Devel-UTF8/lib/wiki.cgi Mon Feb 27 02:18:21 2012
@@ -1,6 +1,6 @@
######################################################################
# wiki.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki.cgi,v 1.315 2012/02/26 05:32:33 papu Exp $
+# $Id: wiki.cgi,v 1.316 2012/02/26 17:18:21 papu Exp $
#
# "PyukiWiki" version 0.2.0-p2-preview4 $$
# Copyright (C) 2004-2012 Nekyo
@@ -1850,11 +1850,15 @@
# v 0.2.0 fix # comment
my $chk_jp_regex=$::chk_jp_hiragana ? '[ã‚-ã‚“ã‚¢-ン]' : '[\x80-\xFE]';
+
+ my $chk_jp_regex=$::chk_jp_hiragana ? '[ã‚-ã‚“ã‚¢-ン]' : '[\x80-\xFE]';
+ if($uricount+0 eq 0 || $uricount+0 > $::chk_uri_count+0) {
+ $uricount=$::chk_uri_count;
+ }
+
# レベル 2　を除ãOver Httpãƒã‚§ãƒƒã‚¯ã‚’è¡Œã†ã€‚ # comment
# changed by nanami and v 0.2.0-p2 fix
- if (($level ne 1) && ($::chk_uri_count+0 > 0) && (($chk_str =~ s/https?:\/\///g) >= $::chk_uri_count)) {
- &snapshot('Over http');
- } elsif (($level ne 1) && ($uricount+0 > 0) && (($chk_str =~ s/https?:\/\///g) >= $uricount)) {
+ if (($level ne 1) && ($uricount > 0) && (($chk_str =~ s/https?:\/\///g) >= $uricount)) {
&snapshot('Over http');
# Over Mailãƒã‚§ãƒƒã‚¯ã‚’è¡Œã†ã€‚
} elsif (($level ne 1) && ($mailcount+0 > 0) && (($chk_str =~ s/$::ismail///g) >= $uricount)) {