/[pub]/suikawiki/wikidata/suikawiki-config.ph

Diff of /suikawiki/wikidata/suikawiki-config.ph

Parent Directory | Revision Log | View Patch Patch

-revision 1.4 by w,
Sun Jan 26 02:39:48 2003 UTC
+revision 1.12.4.3 by wakaba,
Sat Mar 13 06:34:19 2004 UTC
 Line 1
+ =head1 NAME
+ suikawiki-config.ph - SuikaWiki: Configuration for SuikaWiki HTTP CGI Driver
+ =head1 DESCRIPTION
+ This is a configuration file for SuikaWiki Driver for HTTP CGI Script
+ (SWHCS).  Basic options such as WikiDB directory mapping and
+ special purpose WikiPage names can be customized with this file.
+ More complex customizing, e.g. modifying navigation bar or
+ adding new mode, is also possible by config.ph (generated from
+ config.wp2) and WikiPlugin modules.  For more information,
+ see <http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki>.
+ This file is part of SuikaWiki.
+ =cut
+ package wiki::driver::http;
  use strict;
- #
+ use Message::Util::Error;
- # You MUST modify following '$modifier_...' variables.
- #
+ push our @Config, sub ($) {
- # our $modifier_dbtype = 'AnyDBM_File';  # Fast, not available on some server, page size limited.
+   my $WIKI = shift;
- # our $modifier_dbtype = 'dbmopen';      # Fast, not available on some server, page size limited.
+   use Cwd qw(abs_path);
- #our $modifier_dbtype = 'Yuki::YukiWikiDB';     # Slow, available on all environment.
- #our $modifier_dbtype = 'Yuki::YukiWikiDB2';     # Slow, available on all environment.
+   ## -- Filesystem path mapping
- our $modifier_dbtype = 'Yuki::YukiWikiDBMeta';     # Slow, available on all environment.
+   for (
- our $url_cgi; {
+      [db__cache__dir          => q"./wikidata/lock/"],
-     my $scheme = 'http';
+      [db__cache_struct__file  => q"./wikidata/lock/struct.db"],
-     $scheme = lc $1 if $main::ENV{SERVER_PROTOCOL} =~ m#([A-Za-z0-9+.%-]+)#;
+      [db__content__dir        => q"./wikidata/page/"],
-     $url_cgi = "$scheme://$main::ENV{SERVER_NAME}:$main::ENV{SERVER_PORT}/~wakaba/suikawiki/wiki";
+      [db__content__error_log  => q"./wikidata/log/db-content.log"],
-         ## - MUST NOT include [&<>"] and/or non-URI characters
+      [db__bdb__home_dir       => q"./wikidata/lock/"],
- }
+      [db__bdb__log_dir        => q"./wikidata/log/bdb/"],
- our %uri = (
+      [db__bdb__log_file       => q"./wikidata/log/bdb.log"],
-   cookie_path   => '/~wakaba/suikawiki/',
+      [db__bdb__temp_dir       => q"./wikidata/lock/"],
-   external_script       => '../wiki/script/',
+      [db__lock__dir           => q"./wikidata/lock/"],
- );
+      [db__lock__log_file      => q"./wikidata/log/lock.log"],
- $uri{wiki} = $url_cgi;
+      [db__log__dir            => q"./wikidata/log/"],
- $SuikaWiki::Plugin::plugin_directory = q(../wiki/lib/SuikaWiki/Plugin/);
+      [db__temp__dir           => q"./wikidata/lock/"],
- our %PathTo = ( ## Path to your data, from the main CGI script (NOT from this config script)
+   ) {
-   CachePrefix   => q(./wikidata/.cache.),
+     ## On system that does not set current directory as main script
-   WikiDataBase  => q(./wikidata/page),
+     ## directory, you should specify it instead of using "abs_path".
- );
+     $WIKI->{config}->{path_to}->{$_->[0]} = abs_path $_->[1];
- ##############################
+   }
- our %PageName = (
-   FrontPage     => 'HomePage',
+   ## -- WikiPlugin
-   IndexPage     => 'IndexPage',
+   push @{$WIKI->{event}->{plugin_manager_loaded}}, sub {
-   SearchPage    => 'SearchPage',
+     my $wiki = shift;
-   CreatePage    => 'CreatePage',
-   ErrorPage     => 'ErrorPage',
+     ## Installed plugin modules
-   RecentChanges => 'RecentChanges',
+     $wiki->{plugin}->load_directory (qw(
-   AdminSpecialPage      => "\x11\x11Admin\x11Special\x11Page\x11\x11",
+       lib/SuikaWiki/Plugin/
-   UserAgentList => 'WikiUserAgentList',
+       misc/plugins/
- );
+       misc/plugins/form/
- our $kanjicode = 'euc';
+       misc/plugins/format/
- our $lang = 'ja';
+       misc/plugins/link/
+       misc/plugins/view/
- $wiki::useragent::UseLog = 0;   ## Use User-Agent name log (WikiUserAgentList) or not
+     ));
- $wiki::diff::UseDiff = 1;       ## Use diff mode or not
+     ## Configuration file as pseudo-plugin module
- my %vd;
+     require 'wikidata/config.ph';
- $vd{links} = <<'EOH';
+   };
-   %styles-wiki-html(page=>\"WikiStyleList:HTML\");
-   %link-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,title=>\"%res(name=>EditThisPageLink);\");
+   ## -- WikiDatabase: Mapping logical to physical
-   %link-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,title=>\"%res(name=>AdminEditThisPageLink);\",add_param=>\"admin=1\");
+   push @{$WIKI->{event}->{database_loaded}}, sub {
-   %link-wiki(rel=>view,class=>wiki-cmd,title=>\"%res(name=>ViewThisPageLink);\",up_to_date);
+       my $wiki = shift;
-   %link-wiki(rel=>myself,class=>wiki,title=>\"%res(name=>GoToMyselfLink);\");
-   %link-wiki(page=>IndexPage,rel=>index,class=>wiki,title=>\"%res(name=>GoToIndexPageLink);\");
+       ## Main content
-   %link-wiki(page=>HomePage,rel=>home,class=>wiki,title=>\"%res(name=>GoToHomePageLink);\");
+       $wiki->{db}->_set_prop_db (content => {-db_open => sub {
-   %link-wiki(page=>WikiNews,rel=>News,class=>wiki,title=>\"%res(name=>GoToWikiNewsLink);\");
+         require SuikaWiki::DB::FileSystem::YukiWikiDBNS;
-   %link-wiki(page=>RecentChanges,rel=>News,class=>wiki,title=>\"%res(name=>GoToRecentChangesLink);\");
+         SuikaWiki::DB::FileSystem::YukiWikiDBNS->new
-   %link-wiki(page=>RecentChanges,mode=>rss,rel=>News,class=>wiki,title=>\"%res(name=>GoToRssPageLink);\",type=>\"application/xml\");
+           (directory => $wiki->{config}->{path_to}->{db__content__dir},
-   %link-wiki(page=>SearchPage,rel=>search,class=>wiki,title=>\"%res(name=>GoToSearchPageLink);\");
+            logfile   => $wiki->{config}->{path_to}->{db__content__error_log},
-   %link-wiki(page=>WikiHelp,mode=>read,rel=>help,class=>wiki,title=>\"%res(name=>GoToWikiHelpLink);\");
+            suffix    => '.txt',
-   %link-wiki(page=>WikiPageLicense,rel=>copyright,class=>wiki,title=>\"%res(name=>GoToWikiPageLicenseLink);\");
+            -lock => $wiki->{var}->{db}->{lock_prop}->('content'));
-   %link-wiki(mode=>map,rel=>contents,class=>wiki-cmd,title=>\"%res(name=>ShowMapOfThisPageLink);\");
+       }, -db_close => sub {
-   %link-wiki(mode=>RandomJump,up_to_date,rel=>lucky,class=>\"wiki randomlink\",title=>\"%res(name=>GoSomewhereLink);\");
+         my %opt = @_;
- EOH
+         $opt{prop_info}->{-db}->close;
-   #%link-viewcvs(href=>\"http://path-to-viewcvs/path-to-repository/\",rel=>history,class=>wiki-cmd,title=>\"%res(name=>ViewHistoryOfThisPageLink);\",hreflang=>en);
+         delete $opt{prop_info}->{-db};
- $vd{links} .= q(  %link-wiki(mode=>diff,rel=>history,class=>wiki-cmd,title=>\"%res(name=>ViewDiffOfThisPageLink);\");) if $wiki::diff::UseDiff;
+       }});
- $vd{links} .= <<EOH;
-   %link-wiki(href=>\\\"javascript:var%20WikiName=prompt('Please%20input%20the%20WikiName:','','Jump%20to%20SuikaWiki');if(WikiName)%7B_content.location.href='$url_cgi%3F'+encodeURIComponent(WikiName)%7D\\\",rel=>jump,class=>wiki-cmd,title=>\\\"%res(name=>JumpToLink);\\\");
+       ## Last modified
-   %link-wiki(href=>\\\"javascript:var%20WikiName=prompt('Please%20input%20the%20WikiName:','','Jump%20to%20SuikaWiki');if(WikiName)%7B_content.location.href='$url_cgi%3Fmycmd=edit;mypage='+encodeURIComponent(WikiName)%7D\\\",rel=>jump,class=>wiki-cmd,title=>\\\"%res(name=>JumpToEditLink);\\\");
+       $wiki->{db}->_set_prop_db (lastmodified => {-db_open => sub {
- EOH
+         require SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09;
- $vd{navbar} = <<'EOH';
+         SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09->new
-   %anchor-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,label=>\\\"%res(name=>EditThisPage);\\\",title=>\\\"%res(name=>EditThisPageLong,accesskey=>E);\\\");
+           (directory => $wiki->{config}->{path_to}->{db__content__dir},
-   %anchor-wiki(rel=>view,up_to_date,class=>wiki-cmd,label=>\\\"%res(name=>ViewThisPage);\\\",title=>\\\"%res(name=>ViewThisPageLong);\\\");
+            -lock => $wiki->{var}->{db}->{lock_prop}->('lastmodified'));
-   %anchor-wiki(page=>CreatePage,class=>wiki,label=>\\\"%res(name=>GoToCreatePage);\\\",title=>\\\"%res(name=>GoToCreatePageLong);\\\");
+       }, -prop => 'last_modified', -db_close => sub {
-   %anchor-wiki(page=>IndexPage,class=>wiki,label=>\\\"%res(name=>GoToIndexPage);\\\",title=>\\\"%res(name=>GoToIndexPageLong);\\\");
+         my %opt = @_;
-   %anchor-wiki(page=>HomePage,class=>wiki,label=>\\\"%res(name=>GoToHomePage);\\\",title=>\\\"%res(name=>GoToHomePageLong);\\\");
+         $opt{prop_info}->{-db}->close;
-   %anchor-wiki(page=>SearchPage,class=>wiki,label=>\\\"%res(name=>GoToSearchPage);\\\",title=>\\\"%res(name=>GoToSearchPageLong);\\\");
+         delete $opt{prop_info}->{-db};
-   %anchor-wiki(mode=>RandomJump,up_to_date,rel=>lucky,class=>\\\"wiki randomlink\\\",label=>\\\"%res(name=>GoSomewhere);\\\",title=>\\\"%res(name=>GoSomewhereLong);\\\");
+       }});
-   %anchor-wiki(page=>RecentChanges,class=>wiki,label=>\\\"%res(name=>GoToRecentChanges);\\\",title=>\\\"%res(name=>GoToRecentChangesLong);\\\");
- EOH
+       ## Cache DBs
+       require SuikaWiki::DB::FileSystem::SuikaWikiCache09;
- our %ViewDefinition = (
+       my $cachedb = SuikaWiki::DB::FileSystem::SuikaWikiCache09->new
- read => {media => {type => 'text/html', charset => 1, expires => 120}, check => sub {1},
+             (directory => $wiki->{config}->{path_to}->{db__cache__dir});
-   #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 120},
+       $wiki->{db}->_set_prop_db (m__search_result =>
-   template => <<EOH},
+         {-db => $cachedb, -prop => 'search_result', -db_close => sub {
- %html-start;%html-head(title=>"%res(name=>\\"View:WebPageTitle\\");",link_meta=>"$vd{links}");
+           my %opt = @_;
- %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"
+           $opt{prop_info}->{-db}->close;
-   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");
+           delete $opt{prop_info}->{-db};
-   %section(level=>2,id=>read,add_to_toc=>0,content=>\\"%read(comment);\\");
+         }});
-   %section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\");
+       $wiki->{db}->_set_prop_db (wpp__headsummary =>
-   %section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\");
+         {-db => $cachedb, -prop => 'headsummary', -db_close => sub {
-   %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");
+           my %opt = @_;
-   %section(id=>last-modified,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"LastModified=\\\\\\");%last-modified;\\");
+           $opt{prop_info}->{-db}->close;
-   %section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");
+           delete $opt{prop_info}->{-db};
-   %section(id=>footer,add_to_toc=>0,content=>\\"
+         }});
-     <a href=\\\\\\"http://www.hyuki.com/yukiwiki/\\\\\\" title=\\\\\\"YukiWiki 2.0.beta1.2002-05-29 &copy; 2000-2002 by Hiroshi Yuki\\\\\\">%res(name=>\\\\\\"About:Name:YukiWiki\\\\\\");</a>
+       $wiki->{db}->_set_prop_db (ref__item_template =>
-     <a href=\\\\\\"http://digit.que.ne.jp/work/\\\\\\" title=\\\\\\"WalWiki 2.0.beta1.wal.1 &copy; 2000-2002 by Makio Tsukamoto\\\\\\">%res(name=>\\\\\\"About:Name:WalWiki\\\\\\");</a>
+         {-db => $cachedb, -prop => 'refereritem', -db_close => sub {
-     <a href=\\\\\\"http://suika.fam.cx/gate/cvs/wakaba/wiki/\\\\\\" title=\\\\\\"%res(name=>\\\\\\"About:SuikaWiki:JumpToCVS\\\\\\");\\\\\\">%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;</a>
+           my %opt = @_;
-   \\");
+           $opt{prop_info}->{-db}->close;
- %apply-user-preferred-style;");%html-end;
+           delete $opt{prop_info}->{-db};
- EOH
+         }});
- map => {media => {type => 'text/html', charset => 1, expires => 120}, check => sub {1},
-   #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 120},
+       ## Berkely DB Environment Preparation
-   template => <<EOH},
+       use BerkeleyDB;
- %html-start;%html-head(title=>"%res(name=>\\"Map:WebPageTitle\\");",link_meta=>"$vd{links}");
+       my $bdbenv = new BerkeleyDB::Env
- %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"
+          -Home => $wiki->{config}->{path_to}->{db__bdb__home_dir},
-   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");
+          -Config => {
-   %section(level=>2,id=>\\"link-map\\",title=>\\"Map:Title\\",heading,content=>\\"
+            DB_DATA_DIR => $wiki->{config}->{path_to}->{db__content__dir},
-     <p>%res(name=>\\\\\\"Map:Description\\\\\\");</p>
+            DB_LOG_DIR => $wiki->{config}->{path_to}->{db__bdb__log_dir},
-     %link-map;
+            DB_TMP_DIR => $wiki->{config}->{path_to}->{db__bdb__temp_dir},
-   \\");
+          },
-   %section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\");
+          -ErrFile => $wiki->{config}->{path_to}->{db__bdb__log_file},
-   %section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\");
+          -Flags => DB_CREATE | DB_INIT_LOCK | DB_INIT_LOG | DB_INIT_MPOOL,
-   %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");
+          -Verbose => $wiki->{config}->{debug}->{db};
-   %section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");
-   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");
+       $wiki->{db}->_set_prop_db (content__structured => {-db_open => sub {
- %apply-user-preferred-style;");%html-end;
+         require SuikaWiki::DB::Hash;
- EOH
+         new SuikaWiki::DB::Hash constructor => sub {
+           use MLDBM qw(BerkeleyDB::Hash);# Storable);
- edit => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},
+           tie my %mldb, 'MLDBM',
-   #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},
+                         -Filename => $wiki->{config}->{path_to}
-   template => <<EOH},
+                                           ->{db__cache_struct__file},
- %html-start;%html-head(title=>"%res(name=>\\"Edit:WebPageTitle\\");",link_meta=>"$vd{links}  %html-meta(name=>ROBOTS,content=>NOINDEX);");
+                         -Env => $bdbenv,
- %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"
+                         -Flags => DB_CREATE,
-   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");
+                         -Mode => 0644;
-   %section(level=>2,id=>edit,title=>\\"Edit:Title\\",heading,content=>\\"
+           \%mldb;
-     %edit-form;
+        };
-     %section(level=>3,id=>edit-help,add_to_toc=>0,content=>\\\\\\"%read(page=>WikiEditHelp);\\\\\\");
+       }});
-   \\");
-   %section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\");
+       ## Referer Database (See Referer plugin module)
-   %section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\");
+       $wiki->{db}->_set_prop_db (referer => {-db_open => sub {
-   %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");
+         require SuikaWiki::DB::Hash;
-   %section(id=>last-modified,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"LastModified=\\\\\\");%last-modified;\\");
+         new SuikaWiki::DB::Hash constructor => sub {
-   %section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");
+           tie my %db, 'BerkeleyDB::Hash',
-   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");
+                         -Filename => 'referer.db',
- %apply-user-preferred-style;");%html-end;
+                         -Env => $bdbenv,
- EOH
+                         -Flags => DB_CREATE,
- adminedit => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},
+                         -Mode => 0644;
-   xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},
+           \%db;
-   template => <<EOH},
+        };
- %html-start;%html-head(title=>"%res(name=>\\"Edit:Admin:WebPageTitle\\");",link_meta=>"$vd{links}  %html-meta(name=>ROBOTS,content=>NOINDEX);");
+       }});
- %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"
-   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");
+       ## HTTP Request Logging Database (See RequestLog plugin module)
-   %section(level=>2,id=>edit,title=>\\"Edit:Title\\",heading,content=>\\"%edit-form(admin);\\");
+       $wiki->{db}->_set_prop_db (log__http_request => {-db_open => sub {
-   %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");
+         require SuikaWiki::DB::Hash;
-   %section(id=>last-modified,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"LastModified=\\\\\\");%last-modified;\\");
+         new SuikaWiki::DB::Hash constructor => sub {
-   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");
+           tie my %db, 'BerkeleyDB::Hash',
- %apply-user-preferred-style;");%html-end;
+                         -Filename => 'http-request-log.db',
- EOH
+                         -Env => $bdbenv,
- -conflict => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},
+                         -Flags => DB_CREATE,
-   #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},
+                         -Mode => 0644;
-   template => <<EOH},
+           \%db;
- %html-start;%html-head(title=>"%res(name=>\\"Edit:Conflict:WebPageTitle\\");",link_meta=>"$vd{links}  %html-meta(name=>ROBOTS,content=>NOINDEX);");
+        };
- %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"
+       }});
-   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");
-   %section(level=>2,id=>edit-conflict,title=>\\"Edit:Conflict:Title\\",heading,content=>\\"
+       ## Additional WikiDB properties should be defined here
-     <p>%res(name=>\\\\\\"Edit:Conflict:Description\\\\\\");</p>
+       # ...
-     %conflict-form;
+   };
-     %section(level=>3,id=>edit-conflict-diff,title=>\\\\\\"Edit:Conflict:Diff:Title\\\\\\",heading,content=>\\\\\\"
-       <p>%res(name=>\\\\\\\\\\\\\\"Edit:Conflict:Diff:Description\\\\\\\\\\\\\\");</p>
+   push @{$WIKI->{event}->{input_close}}, sub {
-       %conflict-diff;
+     my ($wiki, $event) = @_;
-     \\\\\\");
+     try {
-   \\");
+       SuikaWiki::Plugin->module_package ('Referer')
-   %section(level=>2,id=>edit,title=>\\"Edit:Title\\",heading,content=>\\"
+                      ->add_referer (wiki => $wiki,
-     <p>%res(name=>\\\\\\"Edit:Conflict:Edit:Description\\\\\\");</p>
+                                     uri => $wiki->{input}->meta_variable
-     %edit-form;
+                                              ('HTTP_REFERER'));
-     %section(level=>3,id=>edit-help,add_to_toc=>0,content=>\\\\\\"%read(page=>WikiEditHelp);\\\\\\");
+     } catch SuikaWiki::Plugin::error with {
-   \\");
+       my $err = shift;
-   %section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\");
+       $err->raise unless $err->{-type} eq 'PLUGIN_NOT_FOUND';
-   %section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\");
+     };
-   %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");
+     try {
-   %section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");
+       SuikaWiki::Plugin->module_package ('RequestLog')
-   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");
+                      ->http_request_log (wiki => $wiki,
- %apply-user-preferred-style;");%html-end;
+                                          prop => 'log__http_request');
- EOH
+     } catch SuikaWiki::Plugin::error with {
- -wrote => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},
+       my $err = shift;
-   xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},
+       $err->raise unless $err->{-type} eq 'PLUGIN_NOT_FOUND';
-   template => <<EOH},
+     };
- %html-start;%html-head(title=>"%res(name=>\\"Edit:Wrote:WebPageTitle\\");",link_meta=>"$vd{links}  %html-meta(name=>ROBOTS,content=>NOINDEX);");
+   };
- %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"
-   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");
+   ## -- WikiName of special purpose WikiPages
-   <p>%res(name=>\\"Edit:SavedSuccessfully\\");</p>
+   $WIKI->{config}->{page} = {
-   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");
+     Default         => $WIKI->name ([qw/HomePage/]),
- %apply-user-preferred-style;");%html-end;
+     InterWikiName   => $WIKI->name ([qw/Wiki InterWikiName/]),
- EOH
+     NewPageTemplate => $WIKI->name ([qw/Wiki NewPageTemplate/]),
- -deleted => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},
+     'StyleSheetList(text/html)' => $WIKI->name ([qw<Wiki Style List text/html>]),
-   xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},
+   };
-   template => <<EOH},
- %html-start;%html-head(title=>"%res(name=>\\"Edit:Deleted:WebPageTitle\\");",link_meta=>"$vd{links}  %html-meta(name=>ROBOTS,content=>NOINDEX);");
+   ## -- WikiNamespace constants
- %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"
+   $WIKI->{config}->{name}->{space} = {
-   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");
+     separator => '//',
-   <p>%res(name=>\\"Edit:PageIsDeletedSuccessfully\\");</p>
+     separator_reg => qr#\s*//\s*#,
-   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");
+     self => '.',
- %apply-user-preferred-style;");%html-end;
+     parent => '..',
- EOH
+   };
- -error => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},
-   xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},
+   ## -- Default character codes
-   template => <<EOH},
+   $WIKI->{config}->{charset} = {
- %html-start;%html-head(title=>"%res(name=>\\"Error:WebPageTitle\\");",link_meta=>"$vd{links}  %html-meta(name=>ROBOTS,content=>NOINDEX);");
+     ## Internal code - MUST be ASCII + 8bit coding scheme
- %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"
+       internal => 'euc-jp',
-   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");
+     ## Default output code
-   %section(level=>2,id=>error,title=>\\"Error:Title\\",heading,content=>\\"
+       output => 'iso-2022-jp',
-     <p>%error-message;</p>
+     ## "query" part in URI reference
-   \\");
+       uri_query => '', # auto-detected
-   %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");
+       uri_query_encode => 'euc-jp',     ## For compatibility w/ SuikaWiki 2
-   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");
+       uri_param => '', # auto-detected
- %apply-user-preferred-style;");%html-end;
+       uri_param_encode => 'euc-jp',     ## For compatibility w/ SuikaWiki 2
- EOH
+     ## PATH_INFO part in URI reference
+       uri_path_info => 'x-utf-8-10646', ## Reserved for future use
- css => {media => {type => 'text/css', charset => 1, expires => 3600},
+     ## Fragment identifier in URI reference
-   check => sub { ref $_[0]->format_converter ($_[0]->{magic} => 'CSS') ? 1 : 0 },
+       uri_fragment => 'x-punycode',     ## Reserved for possible future use
-   template => '%read(to=>CSS);'},
+   };
- rss => {media => {type => 'application/rss+xml', charset => 1, expires => 3600},
-   check => sub { ref $_[0]->format_converter ($_[0]->{magic} => 'RSS') ? 1 : 0 },
+   ## -- Expires duration templates
-   template => '%read(to=>RSS);'},
+   $WIKI->{config}->{entity}->{expires} = {
- -UnsupportedMediaType => {media => {type => 'text/html', charset => 1, expires => -1},
+     edit      => {delta => 60},
-   xmedia => {type => 'application/xhtml+xml', charset => 1, expires => -1},
+     view      => {delta => 2*3600},
-   check => sub {1}, template => <<EOH},
+     lm_flaged => {delta => 30*24*3600},
- %html-start;%html-head(title=>"%page-name;",link_meta=>"$vd{links}");
+     stylesheet => {delta => 30*24*3600},
- %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"
+     error     => {delta => 60},
-   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");
+   };
-   %section(level=>2,title=>\\"UnsupportedMediaType:Title\\",heading,content=>\\"
-     %res(name=>\\\\\\"UnsupportedMediaType:Description\\\\\\");
+   ## -- Debug mode
-   \\");
+   $WIKI->{config}->{debug} = {
-   %section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\");
+     general => 0,
-   %section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\");
+     db => 0,
-   %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");
+     format => 0,
-   %section(class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");
+     view => 0,
-   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");
+   };
- %apply-user-preferred-style;");%html-end;
- EOH
+ };
- );
+ =head1 SEE ALSO
- $ViewDefinition{diff} = {media => {type => 'text/html', charset => 1, expires => 120},
+ C<lib/suikawiki.pl>, C<wiki.cgi>,
-   #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 120},
+ <http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki>,
-   template => <<EOH, check => sub {1}} if $wiki::diff::UseDiff;
+ <http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SWHCS>
- %html-start;%html-head(title=>"%res(name=>\\"Diff:WebPageTitle\\");",link_meta=>"$vd{links}");
- %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"
+ =head1 LICENSE
-   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");
-   %section(level=>2,id=>\\"diff\\",title=>\\"Diff:Title\\",heading,content=>\\"
+ Copyright 2003-2004 Wakaba <w@suika.fam.cx>.  All rights reserved.
-     <p>%res(name=>\\\\\\"Diff:Notice\\\\\\");</p>
-     %diff-between-previous;
+ This program is free software; you can redistribute it and/or
-   \\");
+ modify it under the same terms as Perl itself.
-   %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");
-   %section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");
+ =cut
-   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");
- %apply-user-preferred-style;");%html-end;
- EOH
- $ViewDefinition{WithMenu} = {%{$ViewDefinition{read}}, template => <<EOH};
- %html-start;%html-head(title=>"%res(name=>\\"View:WebPageTitle\\");",link_meta=>"$vd{links}");
- %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"
-   <div id=\\\"myuri\\\">%uri-wiki();</div>
-   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"
-     %anchor-wiki(rel=>view,up_to_date,mode=>default,class=>wiki-cmd,label=>\\\\\\"%res(name=>ReloadThisPage);\\\\\\",title=>\\\\\\"%res(name=>ReloadThisPageLong);\\\\\\");
-     $vd{navbar}
-   \\");
-   %section(level=>2,id=>side-menu,add_to_toc=>0,content=>\\"%read(page=>WikiMenuBar);\\");
-   %section(id=>content-frame,add_to_toc=>0,content=>\\"
-     %section(level=>2,id=>read,add_to_toc=>0,content=>\\\\\\"%read(comment);\\\\\\");
-     %section(level=>2,id=>\\\\\\"see-also\\\\\\",title=>SeeAlso,heading,content=>\\\\\\"%search-result;\\\\\\");
-     %section(level=>2,id=>referer,title=>Referer,heading,content=>\\\\\\"%referer-list;\\\\\\");
-     %section(level=>2,id=>toc,title=>\\\\\\"TOC:Title\\\\\\",heading,add_to_toc=>0,content=>\\\\\\"%toc(drag);\\\\\\");
-     %section(id=>last-modified,add_to_toc=>0,content=>\\\\\\"%res(name=>\\\\\\\\\\\\\\"LastModified=\\\\\\\\\\\\\\");%last-modified;\\\\\\");
-     %section(id=>footer,add_to_toc=>0,content=>\\\\\\"
-       <a href=\\\\\\\\\\\\\\"http://www.hyuki.com/yukiwiki/\\\\\\\\\\\\\\" title=\\\\\\\\\\\\\\"YukiWiki 2.0.beta1.2002-05-29 &copy; 2000-2002 by Hiroshi Yuki\\\\\\\\\\\\\\">%res(name=>\\\\\\\\\\\\\\"About:Name:YukiWiki\\\\\\\\\\\\\\");</a>
-       <a href=\\\\\\\\\\\\\\"http://digit.que.ne.jp/work/\\\\\\\\\\\\\\" title=\\\\\\\\\\\\\\"WalWiki 2.0.beta1.wal.1 &copy; 2000-2002 by Makio Tsukamoto\\\\\\\\\\\\\\">%res(name=>\\\\\\\\\\\\\\"About:Name:WalWiki\\\\\\\\\\\\\\");</a>
-       <a href=\\\\\\\\\\\\\\"http://suika.fam.cx/gate/cvs/wakaba/wiki/\\\\\\\\\\\\\\" title=\\\\\\\\\\\\\\"%res(name=>\\\\\\\\\\\\\\"About:SuikaWiki:JumpToCVS\\\\\\\\\\\\\\");\\\\\\\\\\\\\\">%res(name=>\\\\\\\\\\\\\\"About:Name:SuikaWiki\\\\\\\\\\\\\\"); %wiki-version;</a>
-     \\\\\\");
-   \\");
- %apply-user-preferred-style;");%html-end;
- EOH
-;
+; # $Date$

 Legend:



Removed from v.1.4
 


changed lines


 
Added in v.1.12.4.3
 Legend:



Removed from v.1.4
 


changed lines


 
Added in v.1.12.4.3
-Removed from v.1.4
+Added in v.1.12.4.3

admin@suikawiki.org	ViewVC Help
Powered by ViewVC 1.1.24