PyukiWiki CVS Commit
pyuki****@lists*****
2012年 7月 31日 (火) 21:49:51 JST
Index: PyukiWiki-Devel-UTF8/lib/Nana/HTTPCompress.pm diff -u PyukiWiki-Devel-UTF8/lib/Nana/HTTPCompress.pm:1.35 PyukiWiki-Devel-UTF8/lib/Nana/HTTPCompress.pm:1.36 --- PyukiWiki-Devel-UTF8/lib/Nana/HTTPCompress.pm:1.35 Tue Jul 31 20:39:25 2012 +++ PyukiWiki-Devel-UTF8/lib/Nana/HTTPCompress.pm Tue Jul 31 21:49:51 2012 @@ -1,6 +1,6 @@ ###################################################################### # HTTPCompress.pm - This is PyukiWiki, yet another Wiki clone. -# $Id: HTTPCompress.pm,v 1.35 2012/07/31 11:39:25 papu Exp $ +# $Id: HTTPCompress.pm,v 1.36 2012/07/31 12:49:51 papu Exp $ # # "Nana::HTTPCompress" ver 0.2 $$ # Author: Nanami @@ -26,7 +26,7 @@ use Nana::ServerInfo; ###################################################################### -# multicore gzip tips: http://www.submit.ne.jp/1500 +# multicore gzip tips: http://www.submit.ne.jp/1500 # comment $gzip::path; $gzip::header; Index: PyukiWiki-Devel-UTF8/lib/Nana/ServerInfo.pm diff -u PyukiWiki-Devel-UTF8/lib/Nana/ServerInfo.pm:1.2 PyukiWiki-Devel-UTF8/lib/Nana/ServerInfo.pm:1.3 --- PyukiWiki-Devel-UTF8/lib/Nana/ServerInfo.pm:1.2 Tue Jul 31 20:39:25 2012 +++ PyukiWiki-Devel-UTF8/lib/Nana/ServerInfo.pm Tue Jul 31 21:49:51 2012 @@ -1,6 +1,6 @@ ###################################################################### # ServerInfo.pm - This is PyukiWiki, yet another Wiki clone. -# $Id: ServerInfo.pm,v 1.2 2012/07/31 11:39:25 papu Exp $ +# $Id: ServerInfo.pm,v 1.3 2012/07/31 12:49:51 papu Exp $ # # "Nana::ServerInfo" ver 0.1 $$ # Author: Nanami @@ -27,7 +27,7 @@ sub new { my($class,%hash)=@_; -# http://d.hatena.ne.jp/perlcodesample/20080430/1209569716 #debug +# http://d.hatena.ne.jp/perlcodesample/20080430/1209569716 # comment my $os=$^O; my $info; my $cores=0; Index: PyukiWiki-Devel-UTF8/lib/Nana/YukiWikiDB.pm diff -u PyukiWiki-Devel-UTF8/lib/Nana/YukiWikiDB.pm:1.383 PyukiWiki-Devel-UTF8/lib/Nana/YukiWikiDB.pm:1.384 --- PyukiWiki-Devel-UTF8/lib/Nana/YukiWikiDB.pm:1.383 Tue Jul 31 20:19:24 2012 +++ PyukiWiki-Devel-UTF8/lib/Nana/YukiWikiDB.pm Tue Jul 31 21:49:51 2012 @@ -1,8 +1,8 @@ ###################################################################### # YukiWikiDB.pm - This is PyukiWiki, yet another Wiki clone. -# $Id: YukiWikiDB.pm,v 1.383 2012/07/31 11:19:24 papu Exp $ +# $Id: YukiWikiDB.pm,v 1.384 2012/07/31 12:49:51 papu Exp $ # -# "Nana::YukiWikiDB" ver 0.6 $$ +# "Nana::YukiWikiDB" ver 0.7 $$ # Author: Nanami # http://nanakochi.daiba.cx/ # Copyright (C) 2004-2007 Nekyo @@ -18,7 +18,7 @@ ###################################################################### package Nana::YukiWikiDB; -$VERSION="0.6"; +$VERSION="0.7"; use strict; use Nana::File; @@ -81,11 +81,10 @@ sub FIRSTKEY { my ($self) = @_; if(opendir(DIR, $self->{dir})) { - my $funcp = $::functions{"undbmname"}; @{$self->{keys}} = grep /\.txt$/, readdir(DIR); foreach my $name (@{$self->{keys}}) { $name =~ s/\.txt$//; - $name=&$funcp($name); + $name =~ s/([0-9A-F][0-9A-F])/$::_dbmname_decode{$1}/g; } closedir(DIR); return shift @{$self->{keys}}; Index: PyukiWiki-Devel-UTF8/lib/Nana/YukiWikiDB_GZIP.pm diff -u PyukiWiki-Devel-UTF8/lib/Nana/YukiWikiDB_GZIP.pm:1.288 PyukiWiki-Devel-UTF8/lib/Nana/YukiWikiDB_GZIP.pm:1.289 --- PyukiWiki-Devel-UTF8/lib/Nana/YukiWikiDB_GZIP.pm:1.288 Tue Jul 31 20:19:24 2012 +++ PyukiWiki-Devel-UTF8/lib/Nana/YukiWikiDB_GZIP.pm Tue Jul 31 21:49:51 2012 @@ -1,8 +1,8 @@ ###################################################################### # YukiWikiDB_GZIP.pm - This is PyukiWiki, yet another Wiki clone. -# $Id: YukiWikiDB_GZIP.pm,v 1.288 2012/07/31 11:19:24 papu Exp $ +# $Id: YukiWikiDB_GZIP.pm,v 1.289 2012/07/31 12:49:51 papu Exp $ # -# "Nana::YukiWikiDB_GZIP" ver 0.7 $$ +# "Nana::YukiWikiDB_GZIP" ver 0.8 $$ # Author: Nanami # http://nanakochi.daiba.cx/ # Copyright (C) 2004-2007 Nekyo @@ -18,7 +18,7 @@ ###################################################################### package Nana::YukiWikiDB_GZIP; -$VERSION="0.7"; +$VERSION="0.8"; use strict; use Nana::File; use Nana::GZIP; @@ -102,12 +102,11 @@ sub FIRSTKEY { my ($self) = @_; if(opendir(DIR, $self->{dir})) { - my $funcp = $::functions{"undbmname"}; @{$self->{keys}} = grep /\.txt\.gz$/, readdir(DIR); foreach my $name (@{$self->{keys}}) { $name =~ s/\.gz$//; $name =~ s/\.txt$//; - $name=&$funcp($name); + $name =~ s/([0-9A-F][0-9A-F])/$::_dbmname_decode{$1}/g; } closedir(DIR); return shift @{$self->{keys}};
