PyukiWiki CVS Commit
pyuki****@lists*****
2012年 2月 19日 (日) 22:04:27 JST
Index: PyukiWiki-Devel-UTF8/lib/wiki.cgi
diff -u PyukiWiki-Devel-UTF8/lib/wiki.cgi:1.294 PyukiWiki-Devel-UTF8/lib/wiki.cgi:1.295
--- PyukiWiki-Devel-UTF8/lib/wiki.cgi:1.294 Sun Feb 19 20:15:42 2012
+++ PyukiWiki-Devel-UTF8/lib/wiki.cgi Sun Feb 19 22:04:27 2012
@@ -1,6 +1,6 @@
######################################################################
# wiki.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki.cgi,v 1.294 2012/02/19 11:15:42 papu Exp $
+# $Id: wiki.cgi,v 1.295 2012/02/19 13:04:27 papu Exp $
#
# "PyukiWiki" version 0.2.0-p2-preview3 $$
# Copyright (C) 2004-2012 Nekyo
@@ -2529,6 +2529,34 @@
$body=~s/edit\&mypage/edit\&mypage/g;
# add 0.2.0-p2
+ if($::form{word} ne '') {
+ my $spc="";
+ my $wd=$::form{word};
+ if($::lang eq "ja") {
+ if($::defaultcode eq 'utf8') {
+ $spc="\xe3\x80\x80";
+ } else {
+ $spc="\xa1\xa1";
+ }
+ }
+ if($spc ne "") {
+ foreach(" ", $spc) {
+ $wd=~s/$_/\t/g;
+ }
+ }
+ my @wd=split(/\t/,$wd);
+ my $searchcount=0;
+ if(&load_module("Nana::Search")) {
+ foreach(@wd) {
+ $body=Nana::Search::SearchRe(
+ $body, $_ #"(?!<.*>)$_"
+ , '<strong class="word' . $searchcount . '">'
+ , '</strong>');
+ $searchcount=($searchcount + 1) % 10;
+ }
+ } else {
+ }
+ }
return $body if($::usePukiWikiStyle eq 0);
my $tmp=$body;
$tmp=~s/(<p>|<\/p>|\n)//g;