PyukiWiki CVS Commit
pyuki****@lists*****
2012年 9月 8日 (土) 13:25:45 JST
Index: PyukiWiki-Devel/lib/.htaccess
diff -u PyukiWiki-Devel/lib/.htaccess:1.557 PyukiWiki-Devel/lib/.htaccess:1.558
--- PyukiWiki-Devel/lib/.htaccess:1.557 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/.htaccess Sat Sep 8 13:25:44 2012
@@ -1,7 +1,7 @@
######################################################################
# Apache lib/.htaccess for PyukiWiki
-# $Id: .htaccess,v 1.557 2012/08/16 01:24:27 papu Exp $
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# $Id: .htaccess,v 1.558 2012/09/08 04:25:44 papu Exp $
+# "PyukiWiki" ver 0.2.1-beta2 $$
######################################################################
Order allow,deny
Index: PyukiWiki-Devel/lib/Jcode.pm
diff -u PyukiWiki-Devel/lib/Jcode.pm:1.550 PyukiWiki-Devel/lib/Jcode.pm:1.551
--- PyukiWiki-Devel/lib/Jcode.pm:1.550 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/Jcode.pm Sat Sep 8 13:25:44 2012
@@ -1,5 +1,5 @@
#
-# $Id: Jcode.pm,v 1.550 2012/08/16 01:24:27 papu Exp $
+# $Id: Jcode.pm,v 1.551 2012/09/08 04:25:44 papu Exp $
# Id: Jcode.pm,v 2.7 2008/05/10 18:15:19 dankogai Exp dankogai
# "Jcode.pm" version 2.7 $$
#
@@ -10,8 +10,8 @@
use strict;
use vars qw($RCSID $VERSION $DEBUG);
-$RCSID = q$Id: Jcode.pm,v 1.550 2012/08/16 01:24:27 papu Exp $;
-$VERSION = do { my @r = (q$Revision: 1.550 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$RCSID = q$Id: Jcode.pm,v 1.551 2012/09/08 04:25:44 papu Exp $;
+$VERSION = do { my @r = (q$Revision: 1.551 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
$DEBUG = 0;
# we no longer use Exporter
Index: PyukiWiki-Devel/lib/aguse.inc.pl
diff -u PyukiWiki-Devel/lib/aguse.inc.pl:1.426 PyukiWiki-Devel/lib/aguse.inc.pl:1.427
--- PyukiWiki-Devel/lib/aguse.inc.pl:1.426 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/aguse.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# aguse.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: aguse.inc.pl,v 1.426 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:54
+# $Id: aguse.inc.pl,v 1.427 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:01
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/aguse.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/aguse.inc.pl.ja.pod:1.420 PyukiWiki-Devel/lib/aguse.inc.pl.ja.pod:1.421
--- PyukiWiki-Devel/lib/aguse.inc.pl.ja.pod:1.420 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/aguse.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: aguse.inc.pl.ja.pod,v 1.420 2012/08/16 01:24:27 papu Exp $
+#$Id: aguse.inc.pl.ja.pod,v 1.421 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -11,6 +11,10 @@
クライアントのブラウザ上で、リンク先が安全であるかポップアップで確認できるプラグイン
+=head1 重要度
+
+★☆☆☆☆
+
=head1 説明
リンク先の安全性について、実際に行く前に調査しポップアップで表示します。
Index: PyukiWiki-Devel/lib/antispam.inc.pl
diff -u PyukiWiki-Devel/lib/antispam.inc.pl:1.569 PyukiWiki-Devel/lib/antispam.inc.pl:1.570
--- PyukiWiki-Devel/lib/antispam.inc.pl:1.569 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/antispam.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# antispam.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: antispam.inc.pl,v 1.569 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:54
+# $Id: antispam.inc.pl,v 1.570 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:01
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/antispam.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/antispam.inc.pl.ja.pod:1.553 PyukiWiki-Devel/lib/antispam.inc.pl.ja.pod:1.554
--- PyukiWiki-Devel/lib/antispam.inc.pl.ja.pod:1.553 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/antispam.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: antispam.inc.pl.ja.pod,v 1.553 2012/08/16 01:24:27 papu Exp $
+#$Id: antispam.inc.pl.ja.pod,v 1.554 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -11,6 +11,10 @@
Anti Spam プラグイン
+=head1 重要度
+
+★★★☆☆
+
=head1 説明
迷惑メール及びメールアドレス収集プログラムへの対策のために、PyukiWikiで出力されるメールアドレスをすべて暗号化し、ブラウザーで復号できるようにします。
Index: PyukiWiki-Devel/lib/antispamwiki.inc.pl
diff -u PyukiWiki-Devel/lib/antispamwiki.inc.pl:1.521 PyukiWiki-Devel/lib/antispamwiki.inc.pl:1.522
--- PyukiWiki-Devel/lib/antispamwiki.inc.pl:1.521 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/antispamwiki.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# antispamwiki.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: antispamwiki.inc.pl,v 1.521 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:54
+# $Id: antispamwiki.inc.pl,v 1.522 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:01
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
@@ -38,8 +38,8 @@
$AntiSpamWiki::expire=1*60*60
if(!defined($AntiSpamWiki::expire));
#
-# 最短書き込み時間（５秒）
-$AntiSpamWiki::mintime=5
+# 最短書き込み時間（３秒）
+$AntiSpamWiki::mintime=3
if(!defined($AntiSpamWiki::mintime));
#
%::antispamwiki_cookie;
@@ -78,9 +78,13 @@
&setcookie($::antispamwiki_cookie,$::antispamwiki_cookie_expire,%::antispamwiki_cookie);
# my $js=qq(<script type="text/javascript"><!--\nd.cookie="$::antispamwiki_cookie=$::antispamwiki_cookie_name%3a$time; path=$::basepath";\n//--></script>\n);
- return('init'=>1);
+
+# my $dmyform=<<EOM;
+
+ return('init'=>1, 'func'=>'skinhead', 'skinhead'=>&skinhead);
# return('init'=>1, 'header'=>$js);
}
+
1;
__DATA__
sub plugin_antispamwiki_setup {
Index: PyukiWiki-Devel/lib/antispamwiki.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/antispamwiki.inc.pl.ja.pod:1.520 PyukiWiki-Devel/lib/antispamwiki.inc.pl.ja.pod:1.521
--- PyukiWiki-Devel/lib/antispamwiki.inc.pl.ja.pod:1.520 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/antispamwiki.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: antispamwiki.inc.pl.ja.pod,v 1.520 2012/08/16 01:24:27 papu Exp $
+#$Id: antispamwiki.inc.pl.ja.pod,v 1.521 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -11,6 +11,10 @@
wikiスパミング防止プラグイン
+=head1 重要度
+
+★★☆☆☆
+
=head1 説明
cookieを用いて、簡易的にwikiスパミングを防止します。
Index: PyukiWiki-Devel/lib/authadmin_cookie.inc.pl
diff -u PyukiWiki-Devel/lib/authadmin_cookie.inc.pl:1.566 PyukiWiki-Devel/lib/authadmin_cookie.inc.pl:1.567
--- PyukiWiki-Devel/lib/authadmin_cookie.inc.pl:1.566 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/authadmin_cookie.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# authadmin_cookie.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: authadmin_cookie.inc.pl,v 1.566 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:53
+# $Id: authadmin_cookie.inc.pl,v 1.567 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:02
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/authadmin_cookie.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/authadmin_cookie.inc.pl.ja.pod:1.547 PyukiWiki-Devel/lib/authadmin_cookie.inc.pl.ja.pod:1.548
--- PyukiWiki-Devel/lib/authadmin_cookie.inc.pl.ja.pod:1.547 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/authadmin_cookie.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: authadmin_cookie.inc.pl.ja.pod,v 1.547 2012/08/16 01:24:27 papu Exp $
+#$Id: authadmin_cookie.inc.pl.ja.pod,v 1.548 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -11,6 +11,10 @@
凍結パスワードを一時クッキーに保存するプラグイン
+=head1 重要度
+
+★★★★☆
+
=head1 説明
凍結パスワードを一時クッキーに保存します。一度凍結パスワードで認証されると、ブラウザを閉じるまで認証のテキストボックスが出現しなくなります。
Index: PyukiWiki-Devel/lib/autometarobot.inc.pl
diff -u PyukiWiki-Devel/lib/autometarobot.inc.pl:1.560 PyukiWiki-Devel/lib/autometarobot.inc.pl:1.561
--- PyukiWiki-Devel/lib/autometarobot.inc.pl:1.560 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/autometarobot.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# autometarobot.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: autometarobot.inc.pl,v 1.560 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:55
+# $Id: autometarobot.inc.pl,v 1.561 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:02
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
@@ -48,7 +48,7 @@
my($cmd,$pagename,$body)=@_;
my $robots;
my $keyword;
- if($cmd=~/edit|admin|diff|attach|backup/
+ if($cmd=~/edit|admin|diff|attach|backup|setting/
|| $::form{mypage} eq '' && $cmd!~/list|sitemap|recent/
|| $::form{mypage}=~/$::resource{help}|$::resource{rulepage}|$::RecentChanges|$::MenuBar|$::SideBar|$::TitleHeader|$::Header|$::Footer|$::BodyHeader|$::BodyFooter|$::SkinFooter|$::SandBox|$::InterWikiName|$::InterWikiSandBox|$::non_list/
|| $::meta_keyword eq "" || lc $::meta_keyword eq "disable"
Index: PyukiWiki-Devel/lib/autometarobot.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/autometarobot.inc.pl.ja.pod:1.545 PyukiWiki-Devel/lib/autometarobot.inc.pl.ja.pod:1.546
--- PyukiWiki-Devel/lib/autometarobot.inc.pl.ja.pod:1.545 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/autometarobot.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: autometarobot.inc.pl.ja.pod,v 1.545 2012/08/16 01:24:27 papu Exp $
+#$Id: autometarobot.inc.pl.ja.pod,v 1.546 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -11,6 +11,10 @@
ロボット型検索エンジン向けのキーワードを自動生成する
+=head1 重要度
+
+★★★☆☆
+
=head1 使用方法
autometarobot.inc.cgi にリネームして下さい。
Index: PyukiWiki-Devel/lib/canonical.inc.pl
diff -u PyukiWiki-Devel/lib/canonical.inc.pl:1.21 PyukiWiki-Devel/lib/canonical.inc.pl:1.22
--- PyukiWiki-Devel/lib/canonical.inc.pl:1.21 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/canonical.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# canonical.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: canonical.inc.pl,v 1.21 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:54
+# $Id: canonical.inc.pl,v 1.22 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:02
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/canonical.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/canonical.inc.pl.ja.pod:1.20 PyukiWiki-Devel/lib/canonical.inc.pl.ja.pod:1.21
--- PyukiWiki-Devel/lib/canonical.inc.pl.ja.pod:1.20 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/canonical.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: canonical.inc.pl.ja.pod,v 1.20 2012/08/16 01:24:27 papu Exp $
+#$Id: canonical.inc.pl.ja.pod,v 1.21 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -11,6 +11,10 @@
検索エンジンに対して重複URLのオリジナルを指定する
+=head1 重要度
+
+★★☆☆☆
+
=head1 説明
検索エンジンに対して重複URLのオリジナルを指定する
@@ -25,6 +29,12 @@
なし
+=head1 備考
+
+CMSエンジンとして考慮すると、同一のページの別名URLの存在を消すことは、困難なことです。
+
+その時点で表示されているURLを参考にして、代表URLを指定して、その結果を検索エンジンに送ることにより、双方にメリットがあります。
+
=head1 参考
=over 4
Index: PyukiWiki-Devel/lib/captcha.inc.pl
diff -u PyukiWiki-Devel/lib/captcha.inc.pl:1.56 PyukiWiki-Devel/lib/captcha.inc.pl:1.57
--- PyukiWiki-Devel/lib/captcha.inc.pl:1.56 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/captcha.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# captcha.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: captcha.inc.pl,v 1.56 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:55
+# $Id: captcha.inc.pl,v 1.57 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:04
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/captcha.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/captcha.inc.pl.ja.pod:1.50 PyukiWiki-Devel/lib/captcha.inc.pl.ja.pod:1.51
--- PyukiWiki-Devel/lib/captcha.inc.pl.ja.pod:1.50 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/captcha.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: captcha.inc.pl.ja.pod,v 1.50 2012/08/16 01:24:27 papu Exp $
+#$Id: captcha.inc.pl.ja.pod,v 1.51 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,6 +7,10 @@
captcha.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★★☆☆
+
=head1 概要
SPAM防止の為の画像文字認証を処理する。
Index: PyukiWiki-Devel/lib/debug.inc.js
diff -u PyukiWiki-Devel/lib/debug.inc.js:1.426 PyukiWiki-Devel/lib/debug.inc.js:1.427
--- PyukiWiki-Devel/lib/debug.inc.js:1.426 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/debug.inc.js Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
/*/////////////////////////////////////////////////////////////////////
# debug.inc.js - This is PyukiWiki, yet another Wiki clone.
-# $Id: debug.inc.js,v 1.426 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:55
+# $Id: debug.inc.js,v 1.427 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:03
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/debug.inc.pl
diff -u PyukiWiki-Devel/lib/debug.inc.pl:1.570 PyukiWiki-Devel/lib/debug.inc.pl:1.571
--- PyukiWiki-Devel/lib/debug.inc.pl:1.570 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/debug.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# debug.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: debug.inc.pl,v 1.570 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:55
+# $Id: debug.inc.pl,v 1.571 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:03
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
@@ -24,14 +24,12 @@
use strict;
-$::debug_authadmin=1;
+$::debug_authadmin=1
+ if(!defined($::debug_authadmin));
+
$::mode_debug=1;
sub plugin_debug_init {
- my $jshead=<<EOM;
-function Display(a,b){if(d.all||d.getElementById){if(d.all){obj=d.all(a).style}else if(d.getElementById){obj=d.getElementById(a).style}if(b=="view"){obj.display="block"}else if(b=="none"){obj.display="none"}else if(obj.display=="block"){obj.display="none"}else if(obj.display=="none"){obj.display="block"}}}
-EOM
-
# ƒRƒ}ƒ“ƒhƒ‰ƒCƒ“ˆ—
for(my $i=0; defined($ARGV[$i]); $i++) {
if($ARGV[$i]=~/=/) {
@@ -43,9 +41,9 @@
# ŠÇ—ŽÒ”FØ‚È‚µ
&exec_explugin_sub("authadmin_cookie");
if($::_exec_plugined{"authadmin_cookie"} < 2 || $::debug_authadmin eq 0) {
+ &jscss_include("debugscript:_Display","",99);
return(
# 'http_header'=>"X-PyukiWiki-Version: $::version Debug (No auth)",
- 'jsheadervalue'=>$jshead,
'init'=>1,
'func'=>'_db',
'_db'=>\&_db,
@@ -62,9 +60,9 @@
}
# ŠÇ—ŽÒ”FØ‚ ‚è
+ &jscss_include("debugscript:_Display","",99);
return(
# 'http_header'=>"X-PyukiWiki-Version: $::version Debug (Authed)",
- 'jsheader'=>$jshead,
'init'=>1,
'func'=>'_db',
'_db'=>\&_db,
@@ -97,26 +95,29 @@
push(@DB,"form");
push(@DB,"http");
push(@DB,"env");
+ push(@DB,"js");
- $DB{debug_msg}="Debug Messages(\$::debug)";
+ $DB{debug_msg}="Debug Msg(\$::debug)";
$DB{debug_arg}=$::debug;
$DB{form_msg}="Form Data";
$DB{form_arg}=$forms;
$DB{http_msg}="HTTP Header";
$DB{http_arg}=$::HTTP_HEADER;
- $DB{env_msg}="Environment variable";
+ $DB{env_msg}="Environment";
$DB{env_arg}=$envs;
+ $DB{js_msg}="JavaScript";
+ $DB{js_arg}="";
$body=<<EOM;
<table width="100%"><form>
<tr><th class="style_th">
EOM
foreach my $db1(@DB) {
- $jsclose.="Display('$db1','none');";
+ $jsclose.="_Display('$db1','none');";
}
foreach my $db1(@DB) {
$body.=<<EOM;
-[<a href="javascript:$jsclose Display('$db1','view');">$DB{$db1 . '_msg'}</a>]
+[<a href="javascript:$jsclose _Display('$db1','view');">$DB{$db1 . '_msg'}</a>]
EOM
}
$body.=<<EOM;
@@ -124,7 +125,7 @@
EOM
foreach my $db1(@DB) {
$body.=<<EOM;
-<tr><td class="style_td" style="display: none;" id="$db1" align="center"><textarea cols="100" rows="5">@{[&htmlspecialchars($DB{$db1 . '_arg'},1)]}</textarea></td></tr>
+<tr><td class="style_td" style="display: none;" id="$db1" align="center"><textarea cols="100" rows="5" name="db_$db1" id="db_$db1">@{[&htmlspecialchars($DB{$db1 . '_arg'},1)]}</textarea></td></tr>
EOM
}
$body.=<<EOM;
Index: PyukiWiki-Devel/lib/exdate-qreki.pl
diff -u PyukiWiki-Devel/lib/exdate-qreki.pl:1.363 PyukiWiki-Devel/lib/exdate-qreki.pl:1.364
--- PyukiWiki-Devel/lib/exdate-qreki.pl:1.363 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/exdate-qreki.pl Sat Sep 8 13:25:44 2012
@@ -1,7 +1,7 @@
######################################################################
# exdate-qreki.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: exdate-qreki.pl,v 1.363 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:55
+# $Id: exdate-qreki.pl,v 1.364 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:03
#
# "exdate" ver 1.05 $$
# Author: Nanami http://nanakochi.daiba.cx/
@@ -84,7 +84,7 @@
#=========================================================================
-# 旧暦計算サンプルプログラム $Revision: 1.363 $
+# 旧暦計算サンプルプログラム $Revision: 1.364 $
# Coded by H.Takano 1993,1994
#
# Arranged for Perl Script by N.Ueno
Index: PyukiWiki-Devel/lib/exdate.inc.pl
diff -u PyukiWiki-Devel/lib/exdate.inc.pl:1.376 PyukiWiki-Devel/lib/exdate.inc.pl:1.377
--- PyukiWiki-Devel/lib/exdate.inc.pl:1.376 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/exdate.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,7 +1,7 @@
######################################################################
# exdate.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: exdate.inc.pl,v 1.376 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:54
+# $Id: exdate.inc.pl,v 1.377 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:04
#
# "exdate" ver 1.06b1 $$
# Author: Nanami http://nanakochi.daiba.cx/
Index: PyukiWiki-Devel/lib/exdate.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/exdate.inc.pl.ja.pod:1.357 PyukiWiki-Devel/lib/exdate.inc.pl.ja.pod:1.358
--- PyukiWiki-Devel/lib/exdate.inc.pl.ja.pod:1.357 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/exdate.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: exdate.inc.pl.ja.pod,v 1.357 2012/08/16 01:24:27 papu Exp $
+#$Id: exdate.inc.pl.ja.pod,v 1.358 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
Index: PyukiWiki-Devel/lib/google_analytics.inc.pl
diff -u PyukiWiki-Devel/lib/google_analytics.inc.pl:1.412 PyukiWiki-Devel/lib/google_analytics.inc.pl:1.413
--- PyukiWiki-Devel/lib/google_analytics.inc.pl:1.412 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/google_analytics.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# google_analytics.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: google_analytics.inc.pl,v 1.412 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:55
+# $Id: google_analytics.inc.pl,v 1.413 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:03
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/google_analytics.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/google_analytics.inc.pl.ja.pod:1.408 PyukiWiki-Devel/lib/google_analytics.inc.pl.ja.pod:1.409
--- PyukiWiki-Devel/lib/google_analytics.inc.pl.ja.pod:1.408 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/google_analytics.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: google_analytics.inc.pl.ja.pod,v 1.408 2012/08/16 01:24:27 papu Exp $
+#$Id: google_analytics.inc.pl.ja.pod,v 1.409 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,13 +7,17 @@
google_analytics.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★☆☆☆
+
=head1 概要
google-analytics.com サービスによる、サイトトラッキングシステム
=head1 説明
-サイトトラッキングシステム
+googleアナリティスによるサイトトラッキングシステム
=head1 使用方法
@@ -38,7 +42,7 @@
=head1 注意
-合計で１ヶ月500万ビューを超えると課金が発生します。
+合計で１ヶ月500万ビューを超えると課金が発生するようです。
=head1 参考
Index: PyukiWiki-Devel/lib/google_translate.inc.pl
diff -u PyukiWiki-Devel/lib/google_translate.inc.pl:1.182 PyukiWiki-Devel/lib/google_translate.inc.pl:1.183
--- PyukiWiki-Devel/lib/google_translate.inc.pl:1.182 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/google_translate.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# google_translate.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: google_translate.inc.pl,v 1.182 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:56
+# $Id: google_translate.inc.pl,v 1.183 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:03
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/google_translate.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/google_translate.inc.pl.ja.pod:1.176 PyukiWiki-Devel/lib/google_translate.inc.pl.ja.pod:1.177
--- PyukiWiki-Devel/lib/google_translate.inc.pl.ja.pod:1.176 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/google_translate.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: google_translate.inc.pl.ja.pod,v 1.176 2012/08/16 01:24:27 papu Exp $
+#$Id: google_translate.inc.pl.ja.pod,v 1.177 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,13 +7,17 @@
google_transrate.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★☆☆☆☆
+
=head1 概要
-transrate.google.com サービスによる、サイトトラッキングシステム
+transrate.google.com サービスによる、自動翻訳サービス
=head1 説明
-サイトトラッキングシステム
+google翻訳による、選択式自動翻訳です。
=head1 使用方法
Index: PyukiWiki-Devel/lib/iecompatiblehack.inc.pl
diff -u PyukiWiki-Devel/lib/iecompatiblehack.inc.pl:1.488 PyukiWiki-Devel/lib/iecompatiblehack.inc.pl:1.489
--- PyukiWiki-Devel/lib/iecompatiblehack.inc.pl:1.488 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/iecompatiblehack.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# iecompatiblehack.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: iecompatiblehack.inc.pl,v 1.488 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:56
+# $Id: iecompatiblehack.inc.pl,v 1.489 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:04
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/iecompatiblehack.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/iecompatiblehack.inc.pl.ja.pod:1.485 PyukiWiki-Devel/lib/iecompatiblehack.inc.pl.ja.pod:1.486
--- PyukiWiki-Devel/lib/iecompatiblehack.inc.pl.ja.pod:1.485 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/iecompatiblehack.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: iecompatiblehack.inc.pl.ja.pod,v 1.485 2012/08/16 01:24:27 papu Exp $
+#$Id: iecompatiblehack.inc.pl.ja.pod,v 1.486 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -11,6 +11,10 @@
IEの互換表示ボタンを強制的になくすプラグイン
+=head1 重要度
+
+★★☆☆☆
+
=head1 説明
Internet Explorere 8 以降で互換表示ボタンが表示されるのを阻止します。
@@ -18,6 +22,10 @@
なお、他のコンテンツやスキンのCSSの互換が悪い場合には使用しないで下さい。
ブラウジングできるようにします。
+=head1 備考
+
+2011年11月に発表された、Windows 8 の Internet Explorer では、互換表示ボタンがなくなりません。
+
=head1 使用方法
iecompatiblehack.inc.cgi にリネームして下さい。
Index: PyukiWiki-Devel/lib/index.html
diff -u PyukiWiki-Devel/lib/index.html:1.150 PyukiWiki-Devel/lib/index.html:1.151
--- PyukiWiki-Devel/lib/index.html:1.150 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/index.html Sat Sep 8 13:25:44 2012
@@ -1,2 +1,2 @@
-<!-- $Id: index.html,v 1.150 2012/08/16 01:24:27 papu Exp $ -->
+<!-- $Id: index.html,v 1.151 2012/09/08 04:25:44 papu Exp $ -->
library files are placed here.
Index: PyukiWiki-Devel/lib/lang.inc.pl
diff -u PyukiWiki-Devel/lib/lang.inc.pl:1.540 PyukiWiki-Devel/lib/lang.inc.pl:1.541
--- PyukiWiki-Devel/lib/lang.inc.pl:1.540 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/lang.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# lang.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: lang.inc.pl,v 1.540 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:56
+# $Id: lang.inc.pl,v 1.541 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:04
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/lang.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/lang.inc.pl.ja.pod:1.523 PyukiWiki-Devel/lib/lang.inc.pl.ja.pod:1.524
--- PyukiWiki-Devel/lib/lang.inc.pl.ja.pod:1.523 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/lang.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: lang.inc.pl.ja.pod,v 1.523 2012/08/16 01:24:27 papu Exp $
+#$Id: lang.inc.pl.ja.pod,v 1.524 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,6 +7,10 @@
lang.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★★★☆
+
=head1 概要
Wiki国際化対応プラグイン
Index: PyukiWiki-Devel/lib/linktrack.inc.js
diff -u PyukiWiki-Devel/lib/linktrack.inc.js:1.431 PyukiWiki-Devel/lib/linktrack.inc.js:1.432
--- PyukiWiki-Devel/lib/linktrack.inc.js:1.431 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/linktrack.inc.js Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
/*/////////////////////////////////////////////////////////////////////
# linktrack.inc.js - This is PyukiWiki, yet another Wiki clone.
-# $Id: linktrack.inc.js,v 1.431 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:56
+# $Id: linktrack.inc.js,v 1.432 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/linktrack.inc.pl
diff -u PyukiWiki-Devel/lib/linktrack.inc.pl:1.446 PyukiWiki-Devel/lib/linktrack.inc.pl:1.447
--- PyukiWiki-Devel/lib/linktrack.inc.pl:1.446 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/linktrack.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# linktrack.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: linktrack.inc.pl,v 1.446 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:56
+# $Id: linktrack.inc.pl,v 1.447 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
@@ -104,16 +104,16 @@
return "";
}
if($target eq "") {
- return qq( onclick="return Ck(this.href);");
+ return qq( onclick="return Ck(this,this.href);");
} else {
- return qq( onclick="return Ck(this.href,'$target');");
+ return qq( onclick="return Ck(this,this.href,'$target');");
}
}
if($flg eq "oncontextmenu") {
if($linktrack::cgilink eq 1) {
return "";
}
- return qq( oncontextmenu="return Ck(this.href,'r');");
+ return qq( oncontextmenu="return Ck(this,this.href,'r');");
}
if($flg eq "ou") {
return qq( onclick="return ou(this.href,'$target');");
Index: PyukiWiki-Devel/lib/linktrack.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/linktrack.inc.pl.ja.pod:1.426 PyukiWiki-Devel/lib/linktrack.inc.pl.ja.pod:1.427
--- PyukiWiki-Devel/lib/linktrack.inc.pl.ja.pod:1.426 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/linktrack.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: linktrack.inc.pl.ja.pod,v 1.426 2012/08/16 01:24:27 papu Exp $
+#$Id: linktrack.inc.pl.ja.pod,v 1.427 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,6 +7,10 @@
linktrack.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★☆☆☆☆
+
=head1 概要
外部リンクへのカウンターを取る
@@ -39,7 +43,6 @@
L<http://pyukiwiki.info/PyukiWiki/Plugin/ExPlugin/linktrack/>
-
=item PyukiWiki CVSレボジトリ
L<http://sfjp.jp/cvs/view/pyukiwiki/PyukiWiki-Devel/lib/linktrack.inc.pl?view=log>
Index: PyukiWiki-Devel/lib/logs.inc.pl
diff -u PyukiWiki-Devel/lib/logs.inc.pl:1.277 PyukiWiki-Devel/lib/logs.inc.pl:1.278
--- PyukiWiki-Devel/lib/logs.inc.pl:1.277 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/logs.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# logs.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: logs.inc.pl,v 1.277 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:56
+# $Id: logs.inc.pl,v 1.278 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:04
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/logs.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/logs.inc.pl.ja.pod:1.270 PyukiWiki-Devel/lib/logs.inc.pl.ja.pod:1.271
--- PyukiWiki-Devel/lib/logs.inc.pl.ja.pod:1.270 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/logs.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: logs.inc.pl.ja.pod,v 1.270 2012/08/16 01:24:27 papu Exp $
+#$Id: logs.inc.pl.ja.pod,v 1.271 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,6 +7,10 @@
logs.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★☆☆☆
+
=head1 概要
アクセスログをプラグイン
Index: PyukiWiki-Devel/lib/ogp.inc.pl
diff -u PyukiWiki-Devel/lib/ogp.inc.pl:1.48 PyukiWiki-Devel/lib/ogp.inc.pl:1.49
--- PyukiWiki-Devel/lib/ogp.inc.pl:1.48 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/ogp.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# ogp.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: ogp.inc.pl,v 1.48 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:57
+# $Id: ogp.inc.pl,v 1.49 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/ogp.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/ogp.inc.pl.ja.pod:1.45 PyukiWiki-Devel/lib/ogp.inc.pl.ja.pod:1.46
--- PyukiWiki-Devel/lib/ogp.inc.pl.ja.pod:1.45 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/ogp.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: ogp.inc.pl.ja.pod,v 1.45 2012/08/16 01:24:27 papu Exp $
+#$Id: ogp.inc.pl.ja.pod,v 1.46 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,6 +7,10 @@
ogp.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★★★☆
+
=head1 概要
The Open Graph protocol
Index: PyukiWiki-Devel/lib/pathmenu.inc.pl
diff -u PyukiWiki-Devel/lib/pathmenu.inc.pl:1.121 PyukiWiki-Devel/lib/pathmenu.inc.pl:1.122
--- PyukiWiki-Devel/lib/pathmenu.inc.pl:1.121 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/pathmenu.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# pathmenu.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: pathmenu.inc.pl,v 1.121 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:57
+# $Id: pathmenu.inc.pl,v 1.122 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/pathmenu.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/pathmenu.inc.pl.ja.pod:1.118 PyukiWiki-Devel/lib/pathmenu.inc.pl.ja.pod:1.119
--- PyukiWiki-Devel/lib/pathmenu.inc.pl.ja.pod:1.118 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/pathmenu.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: pathmenu.inc.pl.ja.pod,v 1.118 2012/08/16 01:24:27 papu Exp $
+#$Id: pathmenu.inc.pl.ja.pod,v 1.119 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,6 +7,10 @@
pathmenu.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★★☆☆
+
=head1 概要
階層下にMenuBar等のシステムページを生成する。
Index: PyukiWiki-Devel/lib/ping.inc.pl
diff -u PyukiWiki-Devel/lib/ping.inc.pl:1.91 PyukiWiki-Devel/lib/ping.inc.pl:1.92
--- PyukiWiki-Devel/lib/ping.inc.pl:1.91 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/ping.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# ping.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: ping.inc.pl,v 1.91 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:58
+# $Id: ping.inc.pl,v 1.92 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/ping.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/ping.inc.pl.ja.pod:1.84 PyukiWiki-Devel/lib/ping.inc.pl.ja.pod:1.85
--- PyukiWiki-Devel/lib/ping.inc.pl.ja.pod:1.84 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/ping.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: ping.inc.pl.ja.pod,v 1.84 2012/08/16 01:24:27 papu Exp $
+#$Id: ping.inc.pl.ja.pod,v 1.85 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,6 +7,10 @@
ping.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★★☆☆
+
=head1 概要
Weblog用のpingを送信する。
@@ -23,6 +27,8 @@
RSSのURLが必要な場合は、パラメータ中に __RSSURIENC__ を含めて下さい。
+デフォルトの登録内容だけでも、使用できるようになっています。
+
=head1 上書きする関数
関数 do_write_after を上書きします。
Index: PyukiWiki-Devel/lib/punyurl.inc.pl
diff -u PyukiWiki-Devel/lib/punyurl.inc.pl:1.558 PyukiWiki-Devel/lib/punyurl.inc.pl:1.559
--- PyukiWiki-Devel/lib/punyurl.inc.pl:1.558 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/punyurl.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# punyurl.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: punyurl.inc.pl,v 1.558 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:58
+# $Id: punyurl.inc.pl,v 1.559 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/punyurl.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/punyurl.inc.pl.ja.pod:1.545 PyukiWiki-Devel/lib/punyurl.inc.pl.ja.pod:1.546
--- PyukiWiki-Devel/lib/punyurl.inc.pl.ja.pod:1.545 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/punyurl.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: punyurl.inc.pl.ja.pod,v 1.545 2012/08/16 01:24:27 papu Exp $
+#$Id: punyurl.inc.pl.ja.pod,v 1.546 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,6 +7,10 @@
punyurl.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★★★★
+
=head1 概要
ASCII文字以外のドメイン名を持つURLをpunycode形式に変換する
Index: PyukiWiki-Devel/lib/setting.inc.pl
diff -u PyukiWiki-Devel/lib/setting.inc.pl:1.545 PyukiWiki-Devel/lib/setting.inc.pl:1.546
--- PyukiWiki-Devel/lib/setting.inc.pl:1.545 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/setting.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# setting.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: setting.inc.pl,v 1.545 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:59
+# $Id: setting.inc.pl,v 1.546 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/slashpage.inc.pl
diff -u PyukiWiki-Devel/lib/slashpage.inc.pl:1.563 PyukiWiki-Devel/lib/slashpage.inc.pl:1.564
--- PyukiWiki-Devel/lib/slashpage.inc.pl:1.563 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/slashpage.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# slashpage.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: slashpage.inc.pl,v 1.563 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:59
+# $Id: slashpage.inc.pl,v 1.564 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/slashpage.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/slashpage.inc.pl.ja.pod:1.553 PyukiWiki-Devel/lib/slashpage.inc.pl.ja.pod:1.554
--- PyukiWiki-Devel/lib/slashpage.inc.pl.ja.pod:1.553 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/slashpage.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: slashpage.inc.pl.ja.pod,v 1.553 2012/08/16 01:24:27 papu Exp $
+#$Id: slashpage.inc.pl.ja.pod,v 1.554 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,6 +7,10 @@
slashpage.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★☆☆☆
+
=head1 概要
階層下のページ名を容易にリンクするプラグイン
Index: PyukiWiki-Devel/lib/trackback.inc.pl
diff -u PyukiWiki-Devel/lib/trackback.inc.pl:1.92 PyukiWiki-Devel/lib/trackback.inc.pl:1.93
--- PyukiWiki-Devel/lib/trackback.inc.pl:1.92 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/trackback.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# trackback.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: trackback.inc.pl,v 1.92 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:58
+# $Id: trackback.inc.pl,v 1.93 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/trackback.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/trackback.inc.pl.ja.pod:1.83 PyukiWiki-Devel/lib/trackback.inc.pl.ja.pod:1.84
--- PyukiWiki-Devel/lib/trackback.inc.pl.ja.pod:1.83 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/trackback.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: trackback.inc.pl.ja.pod,v 1.83 2012/08/16 01:24:27 papu Exp $
+#$Id: trackback.inc.pl.ja.pod,v 1.84 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,6 +7,10 @@
trackback.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★☆☆☆
+
=head1 概要
Weblog用のtrackbackを処理する。
Index: PyukiWiki-Devel/lib/urlhack.inc.pl
diff -u PyukiWiki-Devel/lib/urlhack.inc.pl:1.585 PyukiWiki-Devel/lib/urlhack.inc.pl:1.586
--- PyukiWiki-Devel/lib/urlhack.inc.pl:1.585 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/urlhack.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# urlhack.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: urlhack.inc.pl,v 1.585 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:01:59
+# $Id: urlhack.inc.pl,v 1.586 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/urlhack.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/urlhack.inc.pl.ja.pod:1.554 PyukiWiki-Devel/lib/urlhack.inc.pl.ja.pod:1.555
--- PyukiWiki-Devel/lib/urlhack.inc.pl.ja.pod:1.554 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/urlhack.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: urlhack.inc.pl.ja.pod,v 1.554 2012/08/16 01:24:27 papu Exp $
+#$Id: urlhack.inc.pl.ja.pod,v 1.555 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,6 +7,10 @@
urlhack.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★☆☆☆
+
=head1 概要
SEO対策の為に、URLから ? を取り除いて検索エンジンにヒットしやすくするプラグイン
@@ -111,7 +115,7 @@
1:punyエンコードを使用します。少しURLが短くなります。
2:UTF8エンコードを使用します。ブラウザーや検索結果に母国語が表示されます。
3:短縮URLロジックを用いたエンコードを使用します。別途短縮用データベースの
- ディレクトリが必要です。
+ ディレクトリ(./urldb/)が必要です。
=item $urlhack::noconvert_marks
Index: PyukiWiki-Devel/lib/wiki.cgi
diff -u PyukiWiki-Devel/lib/wiki.cgi:1.814 PyukiWiki-Devel/lib/wiki.cgi:1.815
--- PyukiWiki-Devel/lib/wiki.cgi:1.814 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki.cgi,v 1.814 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:00
+# $Id: wiki.cgi,v 1.815 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -17,9 +17,11 @@
######################################################################
$|=1;
############################## # comment
-use Nana::YukiWikiDB;
-use Nana::YukiWikiDB_GZIP; #nocompact
-$::modifier_dbtype = 'Nana::YukiWikiDB';
+#use Nana::YukiWikiDB;
+#use Nana::YukiWikiDB_GZIP; #nocompact
+$::modifier_dbtype = 'Nana::YukiWikiDB'
+ if(!defined($::modifier_dbtype));
+
##############################
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
@@ -33,39 +35,13 @@
############################## # comment
$::package = 'PyukiWiki';
-$::version = '0.2.1-beta1';
+$::version = '0.2.1-beta2';
-$::version_number=0 * 10000 + 21 * 100 + 4;
+$::version_number=0 * 10000 + 21 * 100 + 5;
# 2005.12.19 pochi: mod_perlで実行可能に # comment
# グローバル関数の定義 # comment
# moved 0.2.1 to wiki_sub.cgi (auto generate) # comment
-#%::functions = ( # comment
-# "dbmname" => \&dbmname, # comment
-# "undbmname" => \&undbmname, # comment
-# "htmlspecialchars" => \&htmlspecialchars, # comment
-# "javascriptspecialchars" => \&javascriptspecialchars, # comment
-# "encode" => \&encode, # comment
-# "make_link" => \&make_link, # comment
-# "authadminpassword" => \&authadminpassword, # comment
-# "code_convert" => \&code_convert, # comment
-# "http_header" => \&http_header, # comment
-# "load_module" => \&load_module, # comment
-# "load_wiki_module" => \&load_wiki_module, # comment
-# "make_link_url" => \&make_link_url, # comment
-# "make_link_mail" => \&make_link_mail, # comment
-# "make_link_image" => \&make_link_image, # comment
-# "getremotehost" => \&getremotehost, # comment
-# "jscss_include" => \&jscss_include, # comment
-# "http_date" => \&http_date, # comment
-# "gettz" => \&gettz, # comment
-# "date" => \&date, # comment
-# "dbopen" => \&dbopen, # comment
-# "dbopen_gz" => \&dbopen_gz, # nocompact # comment
-# "dbclose" => \&dbclose, # comment
-# "decode" => \&decode, # comment
-# "encode" => \&encode, # comment
-#); # comment
%::values=();
@@ -263,7 +239,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
@@ -317,10 +293,6 @@
=cut
sub main {
-# &load_wiki_module( # comment
-# "init", "func", "db", "http", "html", # comment
-# "link", "sub", "plugin", "wiki"); # comment
-
&load_wiki_module("sub", "func");
&writablecheck;
@@ -348,6 +320,7 @@
}
# &check_modifiers; # comment
+ &init_db; # DBエンジンの初期化 # comment
&open_db; # DBを開く # comment
&init_form; # フォームの初期化 # comment
&init_InterWikiName; # interwikiの初期化 # comment
@@ -408,6 +381,7 @@
=back
=cut
+
sub print_error {
my ($msg) = @_;
&skinex("\t\t$ErrorPage", qq(<p><strong class="error">$msg</strong></p>), 0);
Index: PyukiWiki-Devel/lib/wiki_auth.cgi
diff -u PyukiWiki-Devel/lib/wiki_auth.cgi:1.45 PyukiWiki-Devel/lib/wiki_auth.cgi:1.46
--- PyukiWiki-Devel/lib/wiki_auth.cgi:1.45 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_auth.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_auth.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_auth.cgi,v 1.45 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:00
+# $Id: wiki_auth.cgi,v 1.46 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -56,7 +56,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
Index: PyukiWiki-Devel/lib/wiki_db.cgi
diff -u PyukiWiki-Devel/lib/wiki_db.cgi:1.45 PyukiWiki-Devel/lib/wiki_db.cgi:1.46
--- PyukiWiki-Devel/lib/wiki_db.cgi:1.45 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_db.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_db.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_db.cgi,v 1.45 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:00
+# $Id: wiki_db.cgi,v 1.46 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -54,7 +54,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
@@ -172,7 +172,7 @@
dbmopen(%$db, $dir, 0666) or &print_error("(dbmopen) $dir");
} elsif($modifier_dbtype eq 'AnyDBM_File') {
tie(%$db, "AnyDBM_File", $dir, O_RDWR|O_CREAT, 0666) or &print_error("(tie AnyDBM_File) $dir");
- } else { # Nana::YukiWikiDB # comment
+ } else { # Nana::YukiWikiDB or Nana::GDBM # comment
tie(%$db, "$modifier_dbtype", $dir) or &print_error("(tie $modifier_dbtype) $dir");
}
return %db;
@@ -430,4 +430,39 @@
sub _close_backup {#nocompact
&dbclose(\%::backupbase);#nocompact
}#nocompact
+
+=lang ja
+
+=head2 init_db
+
+=over 4
+
+=item 入力値
+
+なし
+
+=item 出力
+
+なし
+
+=item オーバーライド
+
+可
+
+=item 概要
+
+データベースエンジンを初期化する
+
+=back
+
+=cut
+
+sub _init_db {
+ if($::modifier_dbtype eq 'Nana::YukiWikiDB') {
+ &load_module("Nana::YukiWikiDB");
+ &load_module("Nana::YukiWikiDB_GZIP");#nocompact
+ } elsif($::modifier_dbtype eq 'Nana::GDBM') {
+ &load_module("Nana::GDBM");
+ }
+}
1;
Index: PyukiWiki-Devel/lib/wiki_func.cgi
diff -u PyukiWiki-Devel/lib/wiki_func.cgi:1.53 PyukiWiki-Devel/lib/wiki_func.cgi:1.54
--- PyukiWiki-Devel/lib/wiki_func.cgi:1.53 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_func.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_func.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_func.cgi,v 1.53 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:00
+# $Id: wiki_func.cgi,v 1.54 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -13,13 +13,13 @@
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
-# Return:CRLF Code=Shift-JIS 1TAB=4Spaces
+# Return:CRLF Code=EUC-JP 1TAB=4Spaces
######################################################################
- # SGML‚̊當Žš‚̃GƒXƒP[ƒvƒR[ƒh‚ÌŽÀ‘ÌŽQƂ̳‹K•\Œ» # comment
+ # SGMLの顔文字のエスケープコードの実体参照の正規表現 # comment
$::_sgmlescape=q{aelig|aacute|acirc|agrave|aring|atilde|auml|ccedil|eth|eacute|ecirc|egrave|euml|iacute|icirc|igrave|iuml|ntilde|oacute|ocirc|ograve|oslash|otilde|oumltimes|thorn|uacute|ucirc|ugrave|uuml|yacute|acute|amp|bdquo|big|big_plus|bigsmile|brvbar|bull|cedil|cent|copy|curren|dagger|deg|divide|euro|frac12|frac14|frac34|heart|heart2|heartplus|huh|iexcl|iquest|laquo|ldquo|lsquo|macr|mdash|micro|middot|nbsp|ndash|not|oh|oh2|ohplus|ordf|ordm|ouml|para|permil|plusmn|pound|raquo|rdquo|reg|rsquo|sad|sad2|sadplus|sbquo|sect|shy|smile|smile2|smileplus|star|sup1|sup2|sup3|szlig|tear|trade|uml|ummr|wink|wink2|winkplus|worried|worried2|worriedplus|yen|yuml};
- # HTMLƒGƒXƒP[ƒv‚̃e[ƒuƒ‹ # comment
+ # HTMLエスケープのテーブル # comment
%::_htmlspecial = (
'&' => '&',
'<' => '<',
@@ -27,7 +27,7 @@
'"' => '"',
);
- # HTMLƒAƒ“ƒGƒXƒP[ƒv‚̃e[ƒuƒ‹ # comment
+ # HTMLアンエスケープのテーブル # comment
%::_unescape = (
'amp' => '&',
'lt' => '<',
@@ -73,7 +73,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
@@ -104,22 +104,22 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-‚È‚µ
+なし
-=item o—Í
+=item 出力
$::basehref, $::basepath, $::script
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-Šî€‚Æ‚È‚éURL‚ð쬂·‚éB‘O‚à‚Á‚Ä $::basehref‹y‚Ñ $::basepath‚ªÝ’肳‚ê‚Ä‚¢‚éꇂÍ
-‰½‚à‚µ‚È‚¢B
+基準となるURLを作成する。前もって $::basehref及び $::basepathが設定されている場合は
+何もしない。
=back
@@ -130,10 +130,10 @@
return if($::basehref ne '');
$::basehost = "$ENV{'HTTP_HOST'}";
- # SSL‚Ìê‡ # comment
+ # SSLの場合 # comment
if (($ENV{'https'} =~ /on/i) || ($ENV{'SERVER_PORT'} eq '443')) {
$::basehost = 'https://' . $::basehost;
- # http‚Ìê‡ # comment
+ # httpの場合 # comment
} else {
$::basehost = 'http://' . $::basehost;
# Special Thanks to gyo # comment
@@ -141,7 +141,7 @@
if ($ENV{'SERVER_PORT'} ne '80' && $::basehost !~ /:\d/);
}
- # URL‚̶¬ # comment
+ # URLの生成 # comment
my $uri;
my $req=$ENV{REQUEST_URI};
$req=~s/\?.*//g;
@@ -173,30 +173,31 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&jscss_include(plugin name, [load list]);
+&jscss_include(plugin name, [load list], [Priority]);
-=item o—Í
+=item 出力
-HTMLƒ^ƒO
+HTMLタグ
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ƒvƒ‰ƒOƒCƒ“Œü‚¯‚ÌJavaScriptACSS‚Ì“Ç‚Ýž‚Ý•¶Žš—ñ‚𶬂·‚éB
+プラグイン向けのJavaScript、CSSの読み込み文字列を生成する。
-NekyoŽ‚ÌPyukiWiki‚ƌ݊·«‚Í‚ ‚è‚Ü‚¹‚ñB
+Nekyo氏のPyukiWikiと互換性はありません。
=back
=cut
sub _jscss_include {
- my($name, $sub)=@_;
+ my($v, $sub, $p)=@_;
+ my($name, $func)=split(/:/,$v);
if(!$::jscss_included{$name}) {
$::jscss_included{$name}=1;
@@ -213,13 +214,14 @@
EOM
$::jscss_included{"loader"}=2;
}
- my $pro=$name=~/common/ ? 6 : $name eq "jquery" ? 9 : $name=~/jquery/ ? 7 : 3;
- $::IN_JSFILES.=',"' . "$pro,$::skin_url/$result" . '"';
+ my $pro=$p + 0 > 0 ? $p : $name=~/common/ ? 6 : $name eq "jquery" ? 9 : $name=~/jquery/ ? 7 : 3;
+# my $pro=$p+0>0 ? $p : $_pro;
+ $::IN_JSFILES.=',"' . "$pro,$::skin_url/$result@{[$func ? qq(\|$func) : qq()]}" . '"';
$::jscss_included{$name}=2;
} elsif($result=~/\.css$/) {
$sub='media="screen"' if($sub eq "");
$::IN_CSSFILES.=<<EOM;
-<link rel="stylesheet" href="$::skin_url/$result" type="text/css" $sub _charset="$::charset" />
+<link rel="stylesheet" href="$::skin_url/$result" type="text/css" $sub charset="$::charset" />
EOM
$::jscss_included{$name}=2;
}
@@ -235,21 +237,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&getcookie($cookie‚ÌŽ¯•ÊID, %cookie”z—ñ);
+&getcookie($cookieの識別ID, %cookie配列);
-=item o—Í
+=item 出力
-%cookie”z—ñ
+%cookie配列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-cookie‚ðŽæ“¾‚·‚éB
+cookieを取得する。
=back
@@ -266,29 +268,29 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&setcookie($cookie‚ÌŽ¯•ÊID,—LŒøŠúŒÀ,%cookie”z—ñ);
+&setcookie($cookieの識別ID,有効期限,%cookie配列);
-=item o—Í
+=item 出力
-‚È‚µ
+なし
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-cookie‚ðÝ’è‚·‚邽‚ß‚ÌHTTPƒwƒbƒ_[‚ðƒZƒbƒg‚·‚éB
+cookieを設定するためのHTTPヘッダーをセットする。
-—LŒøŠúŒÀ‚É‚ÍAˆÈ‰º‚Ì”’l‚Ì‚ÝÝ’è‚Å‚«‚éB
+有効期限には、以下の数値のみ設定できる。
-E 1F$::cookie_expire•b—LŒø‚É‚·‚éB
+・ 1：$::cookie_expire秒有効にする。
-E 0FƒZƒbƒVƒ‡ƒ“‚Ì‚Ý•Û‘¶‚·‚éB
+・ 0：セッションのみ保存する。
-E-1Fcookie‚ðÁ‹Ž‚·‚éB
+・-1：cookieを消去する。
=back
@@ -305,21 +307,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&read_resource(ƒtƒ@ƒCƒ‹–¼, %ƒŠƒ\[ƒX”z—ñ);
+&read_resource(ファイル名, %リソース配列);
-=item o—Í
+=item 出力
-%ƒŠƒ\[ƒX”z—ñ
+%リソース配列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ƒŠƒ\[ƒXƒtƒ@ƒCƒ‹‚ð“Ç‚Ýž‚Þ
+リソースファイルを読み込む
=back
@@ -334,7 +336,7 @@
next if /^#/;
s/\\n/\n/g;
my ($key, $value) = split(/=/, $_, 2);
-# ƒŠƒ\[ƒX‚ªEUC or UTF-8‚Å‚ ‚邱‚Æ‚ðM—p‚·‚é # comment
+# リソースがEUC or UTF-8であることを信用する # comment
# $buf{$key} = &code_convert(\$value, $::defaultcode); # comment
$buf{$key}=$value;
$buf{$key}=$::resource_patch{$key} if(defined($::resource_patch{$key}));
@@ -349,25 +351,25 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&armor_name(•¶Žš—ñ);
+&armor_name(文字列);
-=item o—Í
+=item 出力
-•ÏŠ·‚³‚ꂽ•¶Žš—ñ
+変換された文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ˆÈ‰º‚Ì•¶Žš—ñ•ÏŠ·‚ðs‚È‚¤B
+以下の文字列変換を行なう。
-EWikiName¨WikiName
+・WikiName→WikiName
-EWikiName‚Å‚Í‚È‚¢¨mmWikiName‚Å‚Í‚È‚¢nn
+・WikiNameではない→［［WikiNameではない］］
=back
@@ -384,25 +386,25 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&armor_name(•¶Žš—ñ);
+&armor_name(文字列);
-=item o—Í
+=item 出力
-•ÏŠ·‚³‚ꂽ•¶Žš—ñ
+変換された文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ˆÈ‰º‚Ì•¶Žš—ñ•ÏŠ·‚ðs‚È‚¤B
+以下の文字列変換を行なう。
-EWikiName¨WikiName
+・WikiName→WikiName
-EmmWikiName‚Å‚Í‚È‚¢nn¨WikiName‚Å‚Í‚È‚¢
+・［［WikiNameではない］］→WikiNameではない
=back
@@ -419,21 +421,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&is_bracket_name(•¶Žš—ñ);
+&is_bracket_name(文字列);
-=item o—Í
+=item 出力
-ƒuƒ‰ƒPƒbƒg‚Å‚ ‚é‚©‚̃tƒ‰ƒO
+ブラケットであるかのフラグ
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ƒuƒ‰ƒPƒbƒg‚Å‚ ‚é‚©‚̃tƒ‰ƒO‚ð•Ô‚·B
+ブラケットであるかのフラグを返す。
=back
@@ -450,21 +452,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&dbmname(•¶Žš—ñ);
+&dbmname(文字列);
-=item o—Í
+=item 出力
-•ÏŠ·‚³‚ꂽ•¶Žš—ñ
+変換された文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-•¶Žš—ñ‚ðDB—p‚ÉHEX•ÏŠ·‚·‚éB
+文字列をDB用にHEX変換する。
=back
@@ -483,21 +485,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&undbmname(•¶Žš—ñ);
+&undbmname(文字列);
-=item o—Í
+=item 出力
-•ÏŠ·‚³‚ꂽ•¶Žš—ñ
+変換された文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-DB—p‚ÉHEX•ÏŠ·‚³‚ꂽ•¶Žš—ñ‚ð–ß‚·
+DB用にHEX変換された文字列を戻す
=back
@@ -516,21 +518,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&decode(•¶Žš—ñ);
+&decode(文字列);
-=item o—Í
+=item 出力
-•ÏŠ·‚³‚ꂽ•¶Žš—ñ
+変換された文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-URLƒGƒ“ƒR[ƒh‚³‚ꂽ•¶Žš—ñ‚ðƒfƒR[ƒh‚·‚éB
+URLエンコードされた文字列をデコードする。
=back
@@ -552,21 +554,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&encode(•¶Žš—ñ);
+&encode(文字列);
-=item o—Í
+=item 出力
-•ÏŠ·‚³‚ꂽ•¶Žš—ñ
+変換された文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-URLƒGƒ“ƒR[ƒh‚ð‚·‚éB
+URLエンコードをする。
=back
@@ -585,21 +587,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-‚È‚µ
+なし
-=item o—Í
+=item 出力
-•¶Žš—ñ
+文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-Œ»Ý“úŽž‚ðŽæ“¾‚·‚éB
+現在日時を取得する。
=back
@@ -620,21 +622,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&load_module(ƒ‚ƒWƒ…[ƒ‹–¼);
+&load_module(モジュール名);
-=item o—Í
+=item 出力
-ƒ‚ƒWƒ…[ƒ‹–¼
+モジュール名
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-Perlƒ‚ƒWƒ…[ƒ‹‚ð“Ç‚Ýž‚Þ
+Perlモジュールを読み込む
=back
@@ -663,21 +665,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&code_convert(•¶Žš—ñ, [euc|sjis|utf8|jis“™] [,“ü—̓R[ƒh]);
+&code_convert(文字列, [euc|sjis|utf8|jis等] [,入力コード]);
-=item o—Í
+=item 出力
-•¶Žš—ñ
+文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ƒLƒƒƒ‰ƒNƒ^[ƒR[ƒh‚ð•ÏŠ·‚·‚éB
+キャラクターコードを変換する。
=back
@@ -693,10 +695,10 @@
&load_module("Jcode");
$$contentref .= '';
# add v 0.2.0 # comment
- $$contentref=~s/\xef\xbd\x9e/\xe3\x80\x9c/g;# ` # comment
+ $$contentref=~s/\xef\xbd\x9e/\xe3\x80\x9c/g;# 〜 # comment
&Jcode::convert($contentref, $kanjicode, $icode);
# add v 0.2.0 # comment
- $$contentref=~s/\xe3\x80\x9c/\xef\xbd\x9e/g;# ` # comment
+ $$contentref=~s/\xe3\x80\x9c/\xef\xbd\x9e/g;# 〜 # comment
}
}
}
@@ -709,21 +711,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&is_exist_page(ƒy[ƒW–¼);
+&is_exist_page(ページ名);
-=item o—Í
+=item 出力
-ƒy[ƒW‚ª‘¶Ý‚·‚éê‡^
+ページが存在する場合真
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ƒy[ƒW‚ª‘¶Ý‚·‚é‚©ƒ`ƒFƒbƒN‚·‚é
+ページが存在するかチェックする
=back
@@ -748,21 +750,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&trim(•¶Žš—ñ);
+&trim(文字列);
-=item o—Í
+=item 出力
-•ÏŠ·‚³‚ꂽ•¶Žš—ñ
+変換された文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-•¶Žš—ñ‚Ì‘OŒã‚Ì(”¼Šp)‹ó”’‚ðŽæ‚蜂
+文字列の前後の(半角)空白を取り除く
=back
@@ -780,21 +782,21 @@
=over 4
-=item “ü—Í
+=item 入力
-&escape(•¶Žš—ñ);
+&escape(文字列);
-=item o—Í
+=item 出力
-®Œ`‚³‚ꂽ•¶Žš—ñ
+整形された文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-HTMLƒ^ƒO‚ðƒGƒXƒP[ƒv‚·‚éB
+HTMLタグをエスケープする。
=back
@@ -810,21 +812,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&unescape(•¶Žš—ñ);
+&unescape(文字列);
-=item o—Í
+=item 出力
-®Œ`‚³‚ꂽ•¶Žš—ñ
+整形された文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ƒGƒXƒP[ƒv‚³‚ꂽHTMLƒ^ƒO‚ð–ß‚·B
+エスケープされたHTMLタグを戻す。
=back
@@ -842,21 +844,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&htmlspecialchars(•¶Žš—ñ,[SGMLŽÀ‘Ô‚ð–ß‚³‚È‚¢ê‡1]);
+&htmlspecialchars(文字列,[SGML実態を戻さない場合1]);
-=item o—Í
+=item 出力
-•ÏŠ·‚³‚ꂽ•¶Žš—ñ
+変換された文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-HTML•¶Žš—ñ‚ðƒGƒXƒP[ƒv‚·‚éB
+HTML文字列をエスケープする。
=back
@@ -868,9 +870,9 @@
$s=~s/([<>"&])/$::_htmlspecial{$1}/g;
return $s if($flg eq 1);
- # Šç•¶ŽšASGMLŽÀ‘ÌŽQÆ‚ð–ß‚· # comment
+ # 顔文字、SGML実体参照を戻す # comment
$s=~s/&($::_sgmlescape);/&$1;/ig;
- # 10iA16iŽÀ‘ÔŽQÆ‚ð–ß‚· # comment
+ # 10進、16進実態参照を戻す # comment
$s=~s/&#([0-9A-Fa-fXx]+)?;/&#$1;/g;
return $s;
}
@@ -881,21 +883,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&javaspecialchars(•¶Žš—ñ);
+&javaspecialchars(文字列);
-=item o—Í
+=item 出力
-•ÏŠ·‚³‚ꂽ•¶Žš—ñ
+変換された文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-JavaScript•¶Žš—ñ‚ðˆÀ‘S‚ÉŽÀs‚Å‚«‚é‚悤‚ɃGƒXƒP[ƒv‚·‚éB
+JavaScript文字列を安全に実行できるようにエスケープする。
=back
@@ -915,21 +917,21 @@
=over 4
-=item “ü—Í
+=item 入力
&fopen(filename or URL, mode);
-=item o—Í
+=item 出力
-ƒtƒ@ƒCƒ‹ƒnƒ“ƒhƒ‹
+ファイルハンドル
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ƒtƒ@ƒCƒ‹‚Ü‚½‚ÍURL‚ðƒI[ƒvƒ“‚·‚éPHPŒÝŠ·ŠÖ”
+ファイルまたはURLをオープンするPHP互換関数
=back
@@ -940,7 +942,7 @@
my $_fname;
my $fp;
- # HTTP: ‚¾‚Á‚½‚ç # comment
+ # HTTP: だったら # comment
if ($fname =~ /^http:\/\//) {
$fname =~ m!(http:)?(//)?([^:/]*)?(:([ 0-9]+)?)?(/.*)?!;
my $host = ($3 ne "") ? $3 : "localhost";
@@ -956,7 +958,7 @@
if ($host =~ /^(\d+).(\d+).(\d+).(\d+)$/) {
$ip = pack('C4', split(/\./, $host));
} else {
- #HOST–¼‚ðIP‚É’¼‚· # comment
+ #HOST名をIPに直す # comment
$ip = inet_aton($host) || return 0; # Host Not Found.
}
$sockaddr = pack_sockaddr_in($port, $ip) || return 0; # Can't Create Socket address. # comment
@@ -992,23 +994,23 @@
=over 4
-=item “ü—Í
+=item 入力
&escapeoff(0 or 1 or 2)
-=item o—Í
+=item 出力
$::IN_HEAD
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-IE‚É‚¨‚¢‚ÄA“ü—Í—“‚ðŒë‚Á‚Ä”¼ŠpE‘SŠpƒL[‚ƊԈႦ‚ÄAESCƒL[‚ʼnŸ‚µ‚Ä‚µ‚Ü‚¤‚Ì‚ð‘jŽ~‚·‚éB
+IEにおいて、入力欄を誤って半角・全角キーと間違えて、ESCキーで押してしまうのを阻止する。
-ƒƒCƒ“‚ÌJavaScript‚ÍAskin/common?.js ‚É‹Lq‚³‚ê‚Ä‚¢‚Ü‚·B
+メインのJavaScriptは、skin/common?.js に記述されています。
=back
@@ -1033,21 +1035,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-‚È‚µ
+なし
-=item o—Í
+=item 出力
-GMT‚Æ‚Ì·‚ÌŽžŠÔ
+GMTとの差の時間
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-GMT‚Æ‚Ì·‚ðŽžŠÔ(hour)‚Å•Ô‚·B
+GMTとの差を時間(hour)で返す。
=back
@@ -1067,21 +1069,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
&getwday($year,$mon,$mday);
-=item o—Í
+=item 出力
-—j“ú”Ô†
+曜日番号
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-¡“ú‚Ì—j“ú‚ð‹‚ß‚é
+今日の曜日を求める
=back
@@ -1104,21 +1106,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
&lastday($year,$mon);
-=item o—Í
+=item 出力
-‚»‚Ì”NŒŽ‚ÌÅI“ú
+その年月の最終日
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-‚»‚Ì”NŒŽ‚ÌÅI“ú‚ð‹‚ß‚éB
+その年月の最終日を求める。
=back
@@ -1137,21 +1139,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-‚È‚µ
+なし
-=item o—Í
+=item 出力
-‚È‚µ
+なし
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-Œß‘OEŒßŒã‚Ì•¶Žš—ñA—j“ú•¶Žš—ñ‚ðŽæ“¾‚·‚éB
+午前・午後の文字列、曜日文字列を取得する。
=back
@@ -1191,21 +1193,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
&date(format [,unixtime] [,"gmtime"]);
-=item o—Í
+=item 出力
-•ÏŠ·‚³‚ꂽ“ú•t•¶Žš—ñ
+変換された日付文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-“ú•t‚ðŽæ“¾‚µAŽw’肵‚½PHP‘Ž®‚É•ÏŠ·‚·‚éB
+日付を取得し、指定したPHP書式に変換する。
=back
@@ -1239,31 +1241,31 @@
if($format=~/r/) {
return &date("D, j M Y H:i:s O",$tm,$gmtime);
}
- # gmtime & ƒCƒ“ƒ^[ƒlƒbƒgŽžŠÔ # comment
+ # gmtime & インターネット時間 # comment
if($format=~/[OZB]/) {
my $gmt=&gettz;
$format =~ s/O/sprintf("%+03d:00", $gmt)/ge; # GMT Time # comment
$format =~ s/Z/sprintf("%d", $gmt*3600)/ge; # GMT Time secs... # comment
- my $swatch=(($tm-$gmt+90000)/86400*1000)%1000; # GMT +1:00‚É‚µ‚ÄA‚P“ú‚ð1000beat‚É‚·‚é # comment
- # “ú–{ŽžŠÔ‚Ìê‡AAM08:00=000 # comment
+ my $swatch=(($tm-$gmt+90000)/86400*1000)%1000; # GMT +1:00にして、１日を1000beatにする # comment
+ # 日本時間の場合、AM08:00=000 # comment
$format =~ s/B/sprintf("%03d", int($swatch))/ge;# internet time # comment
}
# UNIX time
$format=~s/U/sprintf("%u",$tm)/ge; # unix time
- $format=~s/lL/\x2\x13/g; # lL:escape “ú-“y # comment
- $format=~s/DL/\x2\x14/g; # DL:escape “ú—j“ú-“y—j“ú # comment
+ $format=~s/lL/\x2\x13/g; # lL:escape 日-土 # comment
+ $format=~s/DL/\x2\x14/g; # DL:escape 日曜日-土曜日 # comment
$format=~s/D/\x2\x12/g; # D:escape Sun-Sat # comment
- $format=~s/aL/\x1\x13/g; # aL:escape Œß‘O or ŒßŒã # comment
- $format=~s/AL/\x1\x14/g; # AL:escape ª‚̑啶Žš # comment
+ $format=~s/aL/\x1\x13/g; # aL:escape 午前 or 午後 # comment
+ $format=~s/AL/\x1\x14/g; # AL:escape ↑の大文字 # comment
$format=~s/l/\x2\x11/g; # l:escape Sunday-Saturday # comment
$format=~s/a/\x1\x11/g; # a:escape am pm # comment
$format=~s/A/\x1\x12/g; # A:escape AM PM # comment
$format=~s/M/\x3\x11/g; # M:escape Jan-Dec # comment
$format=~s/F/\x3\x12/g; # F:escape January-December # comment
- # ‚¤‚邤”NA‚±‚ÌŒŽ‚Ì“ú” # comment
+ # うるう年、この月の日数 # comment
if($format=~/[Lt]/) {
my $uru=($year % 4 == 0 and ($year % 400 == 0 or $year % 100 != 0)) ? 1 : 0;
$format=~s/L/$uru/ge;
@@ -1312,8 +1314,8 @@
$format =~ s/\x1\x11/$ampm{en}/ge; # a:am or pm # comment
$format =~ s/\x1\x12/uc $ampm{en}/ge; # A:AM or PM # comment
- $format =~ s/\x1\x13/$ampm{$::lang}/ge; # A:Œß‘O or ŒßŒã # comment
- $format =~ s/\x1\x14/uc $ampm{$::lang}/ge; # ª‚̑啶Žš # comment
+ $format =~ s/\x1\x13/$ampm{$::lang}/ge; # A:午前 or 午後 # comment
+ $format =~ s/\x1\x14/uc $ampm{$::lang}/ge; # ↑の大文字 # comment
$format =~ s/\x2\x11/$weekday{en}/ge; # l(lower L):Sunday-Saturday # comment
$format =~ s/\x2\x12/$weekday{en_short}/ge; # D:Mon-Sun # comment
@@ -1335,21 +1337,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
&http_date(unixtime);
-=item o—Í
+=item 出力
-•ÏŠ·‚³‚ꂽ“ú•t•¶Žš—ñ
+変換された日付文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-HTTPƒwƒbƒ_—p‚Ì“ú•t‚É•ÏŠ·‚·‚éB
+HTTPヘッダ用の日付に変換する。
=back
@@ -1378,21 +1380,21 @@
=over 4
-=item “ü—Í
+=item 入力
&getremotehost;
-=item o—Í
+=item 出力
$ENV{REMOTE_HOST}
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ƒŠƒ‚[ƒgƒzƒXƒg‚ðo—Í‚·‚éB
+リモートホストを出力する。
=back
Index: PyukiWiki-Devel/lib/wiki_html.cgi
diff -u PyukiWiki-Devel/lib/wiki_html.cgi:1.45 PyukiWiki-Devel/lib/wiki_html.cgi:1.46
--- PyukiWiki-Devel/lib/wiki_html.cgi:1.45 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_html.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_html.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_html.cgi,v 1.45 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:01
+# $Id: wiki_html.cgi,v 1.46 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -107,7 +107,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
@@ -297,7 +297,7 @@
my($cmd,$pagename,$body)=@_;
my $robots;
my $keyword;
- if($cmd=~/edit|admin|diff|attach|backup/
+ if($cmd=~/edit|admin|diff|attach|backup|setting/
|| $::form{mypage} eq '' && $cmd!~/list|sitemap|recent/
|| $::form{mypage}=~/$::resource{help}|$::resource{rulepage}|$::RecentChanges|$::MenuBar|$::SideBar|$::TitleHeader|$::Header|$::Footer$::BodyHeader$::BodyFooter|$::SkinFooter|$::SandBox|$::InterWikiName|$::InterWikiSandBox|$::non_list/
|| $::meta_keyword eq "" || lc $::meta_keyword eq "disable"
Index: PyukiWiki-Devel/lib/wiki_http.cgi
diff -u PyukiWiki-Devel/lib/wiki_http.cgi:1.47 PyukiWiki-Devel/lib/wiki_http.cgi:1.48
--- PyukiWiki-Devel/lib/wiki_http.cgi:1.47 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_http.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_http.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_http.cgi,v 1.47 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:01
+# $Id: wiki_http.cgi,v 1.48 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -54,7 +54,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
Index: PyukiWiki-Devel/lib/wiki_init.cgi
diff -u PyukiWiki-Devel/lib/wiki_init.cgi:1.45 PyukiWiki-Devel/lib/wiki_init.cgi:1.46
--- PyukiWiki-Devel/lib/wiki_init.cgi:1.45 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_init.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_init.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_init.cgi,v 1.45 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:01
+# $Id: wiki_init.cgi,v 1.46 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -54,7 +54,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
@@ -557,12 +557,12 @@
=cut
sub _init_inline_regex {
- $::inline_regex =qq(($bracket_name)|($embedded_inline));
+ $::inline_regex =qq(($::bracket_name)|($::embedded_inline));
$::inline_regex.=qq(|($::isurl)) # Direct URL # comment
if($::autourllink eq 1);
- $::inline_regex.=qq(|(mailto:$ismail)|($ismail))# Mail # comment
+ $::inline_regex.=qq(|(mailto:$::ismail)|($::ismail))# Mail # comment
if($::automaillink eq 1);
- $::inline_regex.=qq(|($wiki_name)) # LocalLinkLikeThis (WikiName) # comment
+ $::inline_regex.=qq(|($::wiki_name)) # LocalLinkLikeThis (WikiName) # comment
if($::nowikiname ne 1);
}
Index: PyukiWiki-Devel/lib/wiki_link.cgi
diff -u PyukiWiki-Devel/lib/wiki_link.cgi:1.45 PyukiWiki-Devel/lib/wiki_link.cgi:1.46
--- PyukiWiki-Devel/lib/wiki_link.cgi:1.45 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_link.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_link.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_link.cgi,v 1.45 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:01
+# $Id: wiki_link.cgi,v 1.46 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -54,7 +54,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
Index: PyukiWiki-Devel/lib/wiki_plugin.cgi
diff -u PyukiWiki-Devel/lib/wiki_plugin.cgi:1.45 PyukiWiki-Devel/lib/wiki_plugin.cgi:1.46
--- PyukiWiki-Devel/lib/wiki_plugin.cgi:1.45 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_plugin.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_plugin.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_plugin.cgi,v 1.45 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:01
+# $Id: wiki_plugin.cgi,v 1.46 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -13,7 +13,7 @@
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
-# Return:CRLF Code=Shift-JIS 1TAB=4Spaces
+# Return:CRLF Code=EUC-JP 1TAB=4Spaces
######################################################################
=head1 NAME
@@ -54,7 +54,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
@@ -85,21 +85,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-‚È‚µ
+なし
-=item o—Í
+=item 出力
-‚È‚µ
+なし
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-•s‰Â
+不可
-=item ŠT—v
+=item 概要
-Plugin‚Ì“Ç‚Ýž‚ÝA‰Šú‰»‚ð‚·‚éB
+Pluginの読み込み、初期化をする。
=back
@@ -136,32 +136,32 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-‚È‚µ
+なし
-=item o—Í
+=item 出力
-‚È‚µ
+なし
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-•s‰Â
+不可
-=item ŠT—v
+=item 概要
-ExPlugin‚Ì“Ç‚Ýž‚ÝA‰Šú‰»‚ð‚·‚éB
+ExPluginの読み込み、初期化をする。
=back
=cut
sub _exec_explugin {
- # /lib/*.inc.cgi‚ðŒŸõ‚µA‚·‚ׂĎÀs # comment
+ # /lib/*.inc.cgiを検索し、すべて実行 # comment
opendir(DIR,"$::explugin_dir");
while(my $dir=readdir(DIR)) {
if($dir=~/(.*?)\.inc\.cgi$/) {
- next if($1 eq 'gzip'); # gzip.inc.cgi ”pŽ~‚É”º‚¤ # comment
+ next if($1 eq 'gzip'); # gzip.inc.cgi 廃止に伴う # comment
my $explugin=$1;
&exec_explugin_sub($explugin);
}
@@ -174,21 +174,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-explugin–¼Ì
+explugin名称
-=item o—Í
+=item 出力
-‚È‚µ
+なし
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-•s‰Â
+不可
-=item ŠT—v
+=item 概要
-ExPlugin‚Ì“Ç‚Ýž‚ÝA‰Šú‰»‚ð‚·‚éAexec_expluginŠÖ”‚̃TƒuŠÖ”
+ExPluginの読み込み、初期化をする、exec_explugin関数のサブ関数
=back
@@ -200,7 +200,7 @@
return if($explugin eq $_);
}
if (&exist_explugin($explugin) eq 1) {
- # initƒƒ\ƒbƒh‚ÌŽÀs # comment
+ # initメソッドの実行 # comment
$::debug.="Load Explugin $explugin\n";
my $action = "\&plugin_" . $explugin . "_init";
push(@::loaded_explugin,$explugin);
@@ -211,7 +211,7 @@
$::_exec_plugined{$explugin} = 2;
$::IN_HEAD.=&jscss_include($explugin);
}
- # d•¡ŠÖ”‚ÌŒŸ¸ # comment
+ # 重複関数の検査 # comment
foreach(split(/,/,$ret{func})) {
if($_exec_plugined_func{$_} ne '' ) {
&skinex("\t\t$ErrorPage","$::resource{dupexplugin}<ul><li>$_exec_plugined_func{$_}<li>$explugin</li></ul>");
@@ -220,7 +220,7 @@
$_exec_plugined_func{$_}=$explugin;
$::functions=$ret{$_};
}
- # d•¡ã‘‚«ŠÖ”‚ÌŒŸ¸ # comment
+ # 重複上書き関数の検査 # comment
foreach(split(/,/,$ret{value})) {
if($_exec_plugined_value{$_} ne '' ) {
&skinex("\t\t$ErrorPage","$::resource{dupexplugin}<ul><li>$_exec_plugined_value{$_}<li>$explugin</li></ul>");
@@ -229,7 +229,7 @@
$_exec_plugined_value{$_}=$explugin;
$::values=$ret{$_};
}
- # ƒwƒbƒ_‚ðÝ’è # comment
+ # ヘッダを設定 # comment
$::HTTP_HEADER.="$ret{http_header}\n";
$::IN_HEAD.=$ret{header};
$::IN_CSSHEAD.=$ret{cssheader};
@@ -237,9 +237,9 @@
$::IN_JSHEADVALUE.=$ret{jsheadervalue};
$::IN_BODY.=$ret{bodytag};
- # I—¹ŽžŠÖ”‚ðÝ’è # comment
+ # 終了時関数を設定 # comment
$explugin_last.="$ret{last_func},";
- # msg, body ݒ莞A•\Ž¦‚µ‚ÄI—¹iƒGƒ‰[Žž“™—pj # comment
+ # msg, body 設定時、表示して終了（エラー時等用） # comment
if (($ret{msg} ne '') && ($ret{body} ne '')) {
$exec = 0;
&skinex($ret{msg}, $ret{body});
@@ -254,21 +254,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&exist_plugin(ƒvƒ‰ƒOƒCƒ“–¼);
+&exist_plugin(プラグイン名);
-=item o—Í
+=item 出力
-0:‚È‚µ 1:PyukiWiki 2:YukiWiki
+0:なし 1:PyukiWiki 2:YukiWiki
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ƒvƒ‰ƒOƒCƒ“‚ð“Ç‚Ýž‚Þ
+プラグインを読み込む
=back
@@ -317,21 +317,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&exist_explugin(ƒvƒ‰ƒOƒCƒ“–¼);
+&exist_explugin(プラグイン名);
-=item o—Í
+=item 出力
-0:‚È‚µ 1:“Ç‚Ýž‚ÝÏ‚Ý
+0:なし 1:読み込み済み
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-•s‰Â
+不可
-=item ŠT—v
+=item 概要
-Šg’£ƒvƒ‰ƒOƒCƒ“‚ð“Ç‚Ýž‚Þ
+拡張プラグインを読み込む
=back
@@ -364,21 +364,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
&exec_explugin_last;
-=item o—Í
+=item 出力
-0:‚È‚µ 1:“Ç‚Ýž‚ÝÏ‚Ý
+0:なし 1:読み込み済み
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-•s‰Â
+不可
-=item ŠT—v
+=item 概要
-Šg’£ƒvƒ‰ƒOƒCƒ“‚ð‚ÌÅIˆ—‚ð‚·‚éB
+拡張プラグインをの最終処理をする。
=back
@@ -401,21 +401,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&embedded_to_html(•¶Žš—ñ);
+&embedded_to_html(文字列);
-=item o—Í
+=item 出力
-•¶Žš—ñ
+文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ƒuƒƒbƒNŒ^ƒvƒ‰ƒOƒCƒ“‚ðŽÀs‚·‚éB
+ブロック型プラグインを実行する。
=back
@@ -447,21 +447,21 @@
=over 4
-=item “ü—Í’l
+=item 入力値
-&embedded_inline(•¶Žš—ñ);
+&embedded_inline(文字列);
-=item o—Í
+=item 出力
-•¶Žš—ñ
+文字列
-=item ƒI[ƒo[ƒ‰ƒCƒh
+=item オーバーライド
-‰Â
+可
-=item ŠT—v
+=item 概要
-ƒCƒ“ƒ‰ƒCƒ“Œ^ƒvƒ‰ƒOƒCƒ“‚ðŽÀs‚·‚éB
+インライン型プラグインを実行する。
=back
Index: PyukiWiki-Devel/lib/wiki_skin.cgi
diff -u PyukiWiki-Devel/lib/wiki_skin.cgi:1.1 PyukiWiki-Devel/lib/wiki_skin.cgi:1.2
--- PyukiWiki-Devel/lib/wiki_skin.cgi:1.1 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_skin.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_skin.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_skin.cgi,v 1.1 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:01
+# $Id: wiki_skin.cgi,v 1.2 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:05
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -54,7 +54,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
@@ -158,6 +158,10 @@
&escapeoff($::use_escapeoff);
+ if(!-r $::skin_file) {
+ &print_error("Can't read $::skin_file");
+ }
+
require $::skin_file;
$::IN_HEAD.=<<EOM if($::rss_lines>0 && $::IN_HEAD!~/rss\+xml/);
<link rel="alternate" type="application/rss+xml" title="RSS" href="?cmd=rss10@{[$_exec_plugined{lang} > 1 ? "&lang=$::lang" : ""]}" />
@@ -316,7 +320,7 @@
=item 入力値
-&skinhead(ページ名);
+&skinhead(ページ名, HTML);
=item 出力
@@ -335,7 +339,9 @@
=cut
sub _skinhead {
+ my($page, $body)=@_;
# add v0.2.1
+
$::IN_HEAD=<<EOM;
$::IN_CSSFILES
$::IN_JSLOADER
@@ -359,6 +365,8 @@
}
//--></script>
EOM
+
+ return $body;
}
=lang ja
Index: PyukiWiki-Devel/lib/wiki_spam.cgi
diff -u PyukiWiki-Devel/lib/wiki_spam.cgi:1.47 PyukiWiki-Devel/lib/wiki_spam.cgi:1.48
--- PyukiWiki-Devel/lib/wiki_spam.cgi:1.47 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_spam.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_spam.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_spam.cgi,v 1.47 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:01
+# $Id: wiki_spam.cgi,v 1.48 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -54,7 +54,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
@@ -118,8 +118,7 @@
if ($::deny_log) {
&getremotehost;
open $fp, ">>$::deny_log";
- print $fp <<EOM;
-<<$title @{[date("Y-m-d H:i:s")]}>>
+ my $envs=<<EOM;
HTTP_USER_AGENT:$::ENV{'HTTP_USER_AGENT'}
HTTP_REFERER:$::ENV{'HTTP_REFERER'}
REMOTE_ADDR:$::ENV{'REMOTE_ADDR'}
@@ -128,24 +127,81 @@
HTTP_ACCEPT_LANGUAGE:$::ENV{'HTTP_ACCEPT_LANGUAGE'}
HTTP_ACCEPT:$::ENV{'HTTP_ACCEPT'}
HTTP_HOST:$::ENV{'HTTP_HOST'}
+MYPAGE:$::form{mypage}
+LANG:$::lang
+EOM
+
+ print $fp <<EOM;
+<<$title @{[date("Y-m-d H:i:s")]}>>
+$envs
EOM
close $fp;
+ my $forms;
+ foreach(sort keys %form) {
+ $forms.=<<EOM;
+$_
+$::form{$_}
+
+EOM
+ }
+ my $msg=<<EOM;
+<<$title @{[date("Y-m-d H:i:s")]}>>
+-------------------------------------
+envs
+-------------------------------------
+$envs
+
+-------------------------------------
+forms
+-------------------------------------
+$forms
+EOM
+
+ &send_mail_to_admin($::form{mypage}, "Spam", $msg);
+
}
if ($::filter_flg == 1) {
- open($fp, "$::black_log");
- while (<$fp>) {
- tr/\r\n//d;
- s/\./\\\./g;
- if ($_ ne '' && $::ENV{'REMOTE_ADDR'} =~ /$_/i) {
- close($fp);
- return 0;
+ my $denylistflg=0;
+
+ if(-r "$::black_log") {
+ open($fp, "$::black_log");
+ while (<$fp>) {
+ tr/\r\n//d;
+ s/\./\\\./g;
+ my($ip, $time)=split(/\t/, $_);
+ if ($time ne '' && $::ENV{'REMOTE_ADDR'} =~ /$ip/i) {
+ $denylistflg++;
+ close($fp);
+ }
}
+ close($fp);
+ }
+ if(!$denylistflg) {
+ open($fp, ">>$::black_log");
+ print $fp $::ENV{'REMOTE_ADDR'} . "\t" . time . "\n";
+ close $fp;
+ }
+
+ $denylistflg=0;
+ if(-r $::deny_list) {
+ open($fp, "$::deny_list");
+ while (<$fp>) {
+ tr/\r\n//d;
+ s/\./\\\./g;
+ my($ip, $time)=split(/\t/, $_);
+ next if (!(time < $time + 0 + $::deny_expire));
+ if($::ENV{'REMOTE_ADDR'} =~ /$ip/i) {
+ $denylistflg++;
+ }
+ }
+ close($fp);
+ }
+ if($denylistflg <= $::auto_add_deny) {
+ open($fp, ">>$::deny_list");
+ print $fp $::ENV{'REMOTE_ADDR'} . "\t" . time . "\n";
+ close $fp;
}
- close($fp);
- open($fp, ">>$::black_log");
- print $fp $::ENV{'REMOTE_ADDR'} . "\n"; # リモート # comment
- close $fp;
}
}
@@ -167,6 +223,8 @@
2の場合Over Httpと日本語チェックのみをする。
+3の場合、無効フォームへのポストのみのチェック
+
=item 出力
なし
@@ -185,16 +243,42 @@
sub _spam_filter {
my ($chk_str, $level, $uricount, $mailcount, $retflg) = @_;
+ my $reason;
+
if(-r $::deny_list) {
+ my $denycount=0;
open(R, $::deny_list) || &print_error("$::deny_list can't read");
foreach(<R>) {
+ my($ip, $time)=split(/\t/,$_);
+ chmop;
+
if($ENV{REMOTE_HOST} eq "") {
- if($ENV{REMOTE_ADDR}=~/$_/) {
- return "spam";
+ if($ENV{REMOTE_HOST}=~/$ip/) {
+ next if (!(time < $time + 0 + $::deny_expire));
+ $denycount++;
+ next if($denycount <= $::auto_add_deny);
+ &snapshot('Blacklisted');
+ return "spam" if($retflg+0 eq 1);
+ $reason=$::resource{auth_fobidden_reason_always};
+ &skinex($::form{mypage},
+ &message("$::resource{auth_writefobidden} - $reason"), 0);
+ &close_db;
+ return "spam" if($retflg+0 eq 1);
+ exit;
}
}
- if($ENV{REMOTE_ADDR}=~/$_/ || $ENV{REMOTE_HOST}=~/$_/) {
- return "spam";
+ if($ENV{REMOTE_ADDR}=~/$ip/) {
+ next if (!(time < $time + 0 + $::deny_expire));
+ $denycount++;
+ next if($denycount <= $::auto_add_deny);
+ &snapshot('Blacklisted');
+ return "spam" if($retflg+0 eq 1);
+ $reason=$::resource{auth_fobidden_reason_always};
+ &skinex($::form{mypage},
+ &message("$::resource{auth_writefobidden} - $reason"), 0);
+ &close_db;
+ return "spam" if($retflg+0 eq 1);
+ exit;
}
}
}
@@ -208,24 +292,42 @@
$uricount=$::chk_uri_count;
}
+ # レベル 3 無効フォームのポスト（警告出力のみ） # comment
+ if ($level eq 3) {
+ &snapshot('Ignore Form');
+ return "Ignore Form" if($retflg+0 eq 1);
+ $reason=$::resource{auth_fobidden_reason_ignoreform};
+
# レベル 2 を除きOver Httpチェックを行う。 # comment
# changed by nanami and v 0.2.0-p2 fix
- if (($level ne 1) && ($uricount > 0) && (($chk_str =~ s/https?:\/\///g) >= $uricount)) {
+ } elsif (($level ne 1) && ($uricount > 0) && (($chk_str =~ s/https?:\/\///g) >= $uricount)) {
&snapshot('Over http');
return "Over http" if($retflg+0 eq 1);
+ $reason=$::resource{auth_fobidden_reason_overhttp};
+
# Over Mailチェックを行う。
} elsif (($level ne 1) && ($mailcount+0 > 0) && (($chk_str =~ s/$::ismail//g) >= $uricount)) {
&snapshot('Over Mail', $retflg+0);
return "Over Mail" if($retflg+0 eq 1);
+ $reason=$::resource{auth_fobidden_reason_overmail};
+
# レベルが 1 の時のみ 日本語チェックを行う。 # comment
# changed by nanami and v 0.2.0 fix
} elsif (($level >= 1) && ($::chk_jp_only == 1) && ($chk_str !~ /$chk_jp_regex/)) {
&snapshot('No Japanese', $retflg+0);
return "No Japanese" if($retflg+0 eq 1);
+ $reason=$::resource{auth_fobidden_reason_nojapanese};
+
} else {
return;
}
- &skinex($::form{mypage}, &message($::resource{auth_writefobidden}), 0);
+ if($reason ne "") {
+ &skinex($::form{mypage},
+ &message("$::resource{auth_writefobidden} - $reason"), 0);
+ } else {
+ &skinex($::form{mypage},
+ &message("$::resource{auth_writefobidden}"), 0);
+ }
&close_db;
return "spam" if($retflg+0 eq 1);
exit;
Index: PyukiWiki-Devel/lib/wiki_sub.cgi
diff -u PyukiWiki-Devel/lib/wiki_sub.cgi:1.45 PyukiWiki-Devel/lib/wiki_sub.cgi:1.46
--- PyukiWiki-Devel/lib/wiki_sub.cgi:1.45 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_sub.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_sub.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_sub.cgi,v 1.45 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 03:05:13
+# $Id: wiki_sub.cgi,v 1.46 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -56,7 +56,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
@@ -100,6 +100,7 @@
"close_diff"=>\&close_diff,
"open_backup"=>\&open_backup,
"close_backup"=>\&close_backup,
+"init_db"=>\&init_db,
"getbasehref"=>\&getbasehref,
"jscss_include"=>\&jscss_include,
"getcookie"=>\&getcookie,
@@ -234,6 +235,8 @@
sub open_backup {&load_wiki_module("db");return &_open_backup(@_);}
# Function close_backup (wiki_db.cgi) # comment
sub close_backup {&load_wiki_module("db");return &_close_backup(@_);}
+# Function init_db (wiki_db.cgi) # comment
+sub init_db {&load_wiki_module("db");return &_init_db(@_);}
# Function getbasehref (wiki_func.cgi) # comment
sub getbasehref {&load_wiki_module("func");return &_getbasehref(@_);}
# Function jscss_include (wiki_func.cgi) # comment
Index: PyukiWiki-Devel/lib/wiki_wiki.cgi
diff -u PyukiWiki-Devel/lib/wiki_wiki.cgi:1.48 PyukiWiki-Devel/lib/wiki_wiki.cgi:1.49
--- PyukiWiki-Devel/lib/wiki_wiki.cgi:1.48 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_wiki.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_wiki.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_wiki.cgi,v 1.48 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:03
+# $Id: wiki_wiki.cgi,v 1.49 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -54,7 +54,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
Index: PyukiWiki-Devel/lib/wiki_write.cgi
diff -u PyukiWiki-Devel/lib/wiki_write.cgi:1.45 PyukiWiki-Devel/lib/wiki_write.cgi:1.46
--- PyukiWiki-Devel/lib/wiki_write.cgi:1.45 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/wiki_write.cgi Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# wiki_write.cgi - This is PyukiWiki, yet another Wiki clone.
-# $Id: wiki_write.cgi,v 1.45 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:03
+# $Id: wiki_write.cgi,v 1.46 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.info/
@@ -54,7 +54,7 @@
=item Nekyo
-L<>
+obsoleted
=item Nanami
Index: PyukiWiki-Devel/lib/xframe.inc.pl
diff -u PyukiWiki-Devel/lib/xframe.inc.pl:1.164 PyukiWiki-Devel/lib/xframe.inc.pl:1.165
--- PyukiWiki-Devel/lib/xframe.inc.pl:1.164 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/xframe.inc.pl Sat Sep 8 13:25:44 2012
@@ -1,9 +1,9 @@
######################################################################
# xframe.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: xframe.inc.pl,v 1.164 2012/08/16 01:24:27 papu Exp $
-# Build on 2012-08-16 02:02:03
+# $Id: xframe.inc.pl,v 1.165 2012/09/08 04:25:44 papu Exp $
+# Build on 2012-09-08 13:12:06
#
-# "PyukiWiki" ver 0.2.1-beta1 $$
+# "PyukiWiki" ver 0.2.1-beta2 $$
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2007 Nekyo
# Copyright (C) 2005-2012 PyukiWiki Developers Team
Index: PyukiWiki-Devel/lib/xframe.inc.pl.ja.pod
diff -u PyukiWiki-Devel/lib/xframe.inc.pl.ja.pod:1.159 PyukiWiki-Devel/lib/xframe.inc.pl.ja.pod:1.160
--- PyukiWiki-Devel/lib/xframe.inc.pl.ja.pod:1.159 Thu Aug 16 10:24:27 2012
+++ PyukiWiki-Devel/lib/xframe.inc.pl.ja.pod Sat Sep 8 13:25:44 2012
@@ -1,4 +1,4 @@
-#$Id: xframe.inc.pl.ja.pod,v 1.159 2012/08/16 01:24:27 papu Exp $
+#$Id: xframe.inc.pl.ja.pod,v 1.160 2012/09/08 04:25:44 papu Exp $
__END__
=encoding euc-jp
@@ -7,16 +7,19 @@
xframe.inc.pl - PyukiWiki プラグイン
+=head1 重要度
+
+★★☆☆☆
+
=head1 概要
-IEの互換表示ボタンを強制的になくすプラグイン
+クリックジャッキング対策を行なう。
=head1 説明
-Internet Explorere 8 以降で互換表示ボタンが表示されるのを阻止します。
+外部サイトからフレームタグで表示指定された時に、セキュリティー確保の理由で表示できなくするプラグイン
-なお、他のコンテンツやスキンのCSSの互換が悪い場合には使用しないで下さい。
-ブラウジングできるようにします。
+Internet Explorer 8 から対応されています。
=head1 使用方法
@@ -30,6 +33,14 @@
$XFRAME::MODE="SAMEORIGIN" - Top-level-browsing-contextが一致した時のみ、他のWebページ上のframe又はiframe上での表示を許可する。
+=head1 備考
+
+クリックジャッキングとは、外部から判断のつかない悪意のある攻撃者サイトに誘導された利用者が、気づかない間に標的サイト上で不正操作（ショッピングカートの送信、メール送信、広告のクリック、会員サービスからの退会）を引き起こすクリックをさせられる可能性があります。攻撃事例はまだ少ないものの、Twitterにおいて利用者の意図しない投稿をさせられてしまう事件がありました。
+
+JavaScriptを用いたクリックジャッキング対策もありますが、今ではブラウザー側で、X-FRAME-OPTIONSを設定することで、外部サイトからFRAME、またはIFRAMEで表示しようとした時に、阻止することができます。
+
+なお、このExpluginでは、HTTPヘッダで出力していますが、HTMLで出力することも可能で、または、ウェブサーバー上で、「X-FRAME-OPTIONS」ヘッダに、「DENY」か「SAMEORIGIN」を記述することでも、実現可能です。
+
=head1 上書きする関数
なし
@@ -57,7 +68,6 @@
L<http://www.jpcert.or.jp/ed/2009/ed090001.pdf>
-
=back
=head1 著者