現在のページ名を表示するpagenameプラグインを追加。

diff --git a/plugin/info/Install.pm b/plugin/info/Install.pm
index 262ddff..385725e 100644 (file)
--- a/plugin/info/Install.pm
+++ b/plugin/info/Install.pm
@@ -12,6 +12,7 @@ sub install{
        
        $wiki->add_inline_plugin("counter","plugin::info::Counter","WIKI");
        $wiki->add_inline_plugin("lastmodified","plugin::info::LastModified","WIKI");
+       $wiki->add_inline_plugin("pagename","plugin::info::PageName","WIKI");
        $wiki->add_paragraph_plugin("outline","plugin::info::Outline","HTML");
        $wiki->add_paragraph_plugin("todayslink","plugin::info::TodaysLink","HTML");
        

diff --git a/plugin/info/PageName.pm b/plugin/info/PageName.pm
new file mode 100644 (file)
index 0000000..576f605
--- /dev/null
+++ b/plugin/info/PageName.pm
@@ -0,0 +1,30 @@
+####################################################################
+#
+# <p>ɽ¼¨Ãæ¤Î¥Ú¡¼¥¸¤Î¥Ú¡¼¥¸Ì¾¤òɽ¼¨¤·¤Þ¤¹¡£</p>
+# <pre>
+# ¥Ú¡¼¥¸Ì¾¡§{{pagename}}
+# </pre>
+#
+####################################################################
+package plugin::info::PageName;
+use strict;
+
+#==================================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#==================================================================
+sub new {
+    my $class = shift;
+    my $self = {};
+    return bless $self,$class;
+}
+
+#==================================================================
+# ¥¤¥ó¥é¥¤¥ó¥á¥½¥Ã¥É
+#==================================================================
+sub inline {
+       my $self = shift;
+       my $wiki = shift;
+       return $wiki->get_CGI()->param('page');
+}
+
+1;