/[pub]/suikawiki/script/default/suikawiki-config.ph
Suika

Diff of /suikawiki/script/default/suikawiki-config.ph

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by wakaba, Sat Jul 19 04:45:55 2003 UTC revision 1.6 by wakaba, Sat Oct 25 06:40:08 2003 UTC
# Line 1  Line 1 
1    package main;
2  use strict;  use strict;
3    
4    
5  ## URI (or part of URI) of Wiki CGI itself and its external addons  ## URI (or part of URI) of Wiki CGI itself and its external addons
6          ## Note: If your Wiki CGI URI is <http://foo.example/path/to/wiki.cgi>,          ## Note: If your Wiki CGI URI is <http://foo.example/path/to/wiki.cgi>,
7          ##              cookie-path: /path/to/          ##              cookie-path: /path/to/
8          ##              script-short-name: wiki.cgi          ##              script-short-name: wiki.cgi
9          ##       URI parts MUST NOT contains "&" and/or non-URI characters.          ##       URI parts MUST NOT contains "&" and/or non-URI characters.
10    our %uri = (    our %uri = (
11      cookie_path         => '/temp/wiki/',      cookie_path         => '/~wakaba/-temp/expwiki/',
12      external_script     => 'script/',      external_script     => '../wiki/script/',
13      script_short_name   => 'wiki',      script_short_name   => 'wiki',
14        ## If you use CVS repository of WikiDatabase,
15        #cvs_repository     => 'http://path-to-viewcvs/path-to-repository/',
16    );    );
17    our $url_cgi; {    our $url_cgi = "http://".($main::ENV{HTTP_HOST} || $main::ENV{SERVER_NAME}.($main::ENV{SERVER_PORT}==80?'':":$main::ENV{SERVER_PORT}"))."$uri{cookie_path}$uri{script_short_name}";
18      my $scheme = 'http';    $uri{wiki_abs} = $url_cgi;
19      $scheme = lc $1 if $main::ENV{SERVER_PROTOCOL} =~ m#([A-Za-z0-9+.%-]+)#;    $uri{wiki} = qq($uri{cookie_path}$uri{script_short_name});    
     $url_cgi = "$scheme://$main::ENV{SERVER_NAME}:$main::ENV{SERVER_PORT}$uri{cookie_path}$uri{script_short_name}";  
   }  
   $uri{wiki} = $url_cgi;  
20    
21  ## Path to modules and databases  ## Path to modules and databases
22    use lib qw!lib!;    push @main::INC, qw'lib ../wiki/lib lib';
23    $SuikaWiki::Plugin::plugin_directory = q(lib/SuikaWiki/Plugin/);  
24      require SuikaWiki::Implementation;
25      our $WIKI = SuikaWiki::Implementation->new;
26    
27    our %PathTo = (       ## Path to your data, from the main CGI script (NOT from this config script)    our %PathTo = (       ## Path to your data, from the main CGI script (NOT from this config script)
28      CachePrefix         => q(./wikidata/.cache.),      CachePrefix         => q(./wikidata/.cache.),  # WikiPlugin
29      WikiDataBase        => q(./wikidata/page),      TempPrefix  => q(./wikidata/.tmp.),            # WikiPlugin, Image
30        convert     => q(/usr/X11R6/bin/convert),      # Image
31    );    );
32    
33  ## Type of WikiPage Database  ## Filesystem path mapping
34    #our $modifier_dbtype = 'AnyDBM_File';  # Fast, not available on some server, page size limited.    for (
35    #our $modifier_dbtype = 'dbmopen';      # Fast, not available on some server, page size limited.       [db__content__dir        => q"./wikidata/page"],
36    #our $modifier_dbtype = 'Yuki::YukiWikiDB';     # Slow, available on all environment.       [db__content__error_log  => q"./wikidata/log/db-content.log"],
37    #our $modifier_dbtype = 'Yuki::YukiWikiDB2';     # Slow, available on all environment.       [db__lock__dir           => q"./wikidata/lock/"],
38    our $modifier_dbtype = 'Yuki::YukiWikiDBMeta';     # Slow, available on all environment.    ) {
39    our $use_exists = 1; # If you can use 'exists' method for your DB.      $WIKI->{config}->{path_to}->{$_->[0]} = $_->[1];
40      }
41    
42    ## Plugin
43      push @{$WIKI->{event}->{plugin_manager_loaded}}, sub {
44        ## Obsolete interface
45        push @SuikaWiki::Plugin::plugin_directory, (
46            q(../wiki/lib/SuikaWiki/Plugin/),
47            q(../wiki/misc/plugins/),
48            q(lib/SuikaWiki/Plugin/),
49            q(misc/plugins/),
50        );
51        SuikaWiki::Plugin->import_plugins ();
52        require 'wikidata/config.ph';
53      };
54    
55    ## Database mapping
56      push @{$WIKI->{event}->{database_loaded}}, sub {
57          ## Main content
58          $WIKI->{db}->_set_prop_db (content => {-db_open => sub {
59            require SuikaWiki::DB::FileSystem::YukiWikiDBNS;
60            SuikaWiki::DB::FileSystem::YukiWikiDBNS->new
61              (directory => $WIKI->{config}->{path_to}->{db__content__dir},
62               logfile   => $WIKI->{config}->{path_to}->{db__content__error_log},
63               suffix    => '.txt',
64               -lock => &{$WIKI->{var}->{db}->{lock_prop}} ('content'));
65          }, -own => 1});
66          
67          ## Last modified
68          $WIKI->{db}->_set_prop_db (lastmodified => {-db_open => sub {
69            require SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09;
70            SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09->new
71              (directory => $WIKI->{config}->{path_to}->{db__content__dir},
72               -lock => &{$WIKI->{var}->{db}->{lock_prop}} ('lastmodified'));
73          }, -prop => 'last_modified', -own => 1});
74      };      
75    
76      push @{$WIKI->{event}->{database_loaded}}, sub {
77        $WIKI->{db}->get (content => ['dummy']);
78        *main::database = $WIKI->{db}->{prop}->{content}->{-db}->{db_hash};
79        $SuikaWiki::Plugin::DB = $WIKI->{db};
80        for (@{$SuikaWiki::Plugin::On{WikiDatabaseLoaded}||[]}) { &{$_} }
81        
82        package wiki::dummy;
83        sub meta {undef};
84        sub list_items {};
85        sub STORE {};
86      };
87    
88    
89  ## Name of Special WikiPage (linked as parts of navigations)  ## Name of Special WikiPage (linked as parts of navigations)
90    our %PageName = (    our %PageName = (
91      FrontPage   => 'HomePage',      FrontPage   => 'HomePage',
92      IndexPage   => 'IndexPage',      IndexPage   => 'IndexPage',
93      SearchPage  => 'SearchPage',      InterWikiName       => 'Wiki//InterWikiName',
94      CreatePage  => 'CreatePage',      SearchPage  => 'Wiki//Page//Search',
95        CreatePage  => 'Wiki//Page//Create',
96        MenuBar     => 'Wiki//MenuBar',
97      RecentChanges       => 'RecentChanges',      RecentChanges       => 'RecentChanges',
98      UserAgentList       => 'WikiUserAgentList',      RefererDontRecord   => 'Wiki//Referer//IgnoreSite',
99        RefererSiteName     => 'Wiki//Referer//SiteName',
100        ResourceNS  => 'Wiki//Resource//',
101        StyleList   => 'Wiki//Style//List//',
102        UserAgentList       => 'Wiki//UserAgentList',
103      AdminSpecialPage    => "\x11\x11Admin\x11Special\x11Page\x11\x11",      AdminSpecialPage    => "\x11\x11Admin\x11Special\x11Page\x11\x11",
104    );    );
105      $WIKI->{config}->{page} = {
106  ## (Should be reimplemented)      Default         => [qw/HomePage/],
107    our $kanjicode = 'euc';      NewPageTemplate => [qw/Wiki NewPageTemplate/],
108    our $lang = 'ja';    };
109    $wiki::useragent::UseLog = 0; ## Use User-Agent name log (WikiUserAgentList) or not    our %PageOf = %{$WIKI->{config}->{page}};
110    
111      $WIKI->{config}->{charset}->{internal} = 'euc-jp';
112      $WIKI->{config}->{charset}->{output} = 'iso-2022-jp';
113      $WIKI->{config}->{charset}->{uri_param} = ''; # auto detect
114      $WIKI->{config}->{charset}->{uri_query} = ''; # auto detect
115      our $kanjicode = 'euc'; # obsolete
116    
117      $WIKI->{config}->{entity}->{expires} = {
118        edit => {delta => 60},
119        view => {delta => 2*3600},
120        lm_flaged => {delta => 30*24*3600},
121      };
122    
123  ## Misc. options  ## Misc. options
124    $wiki::diff::UseDiff = 1;     ## Use diff mode or not    $SuikaWiki::Plugin::UserAgent::LoggingName = 1;
125            ## Use UA-name log? (require UserAgent plugin module)
 ## Namespace of WikiName  
 package wiki::page::ns;  
   our $delimiter = '//';  
   our $self = '.';  
   our $parent = '..';  
 package main;  
126    
127  ## Definition of views  ## Definition of views
128    
129  my %vd;  require SuikaWiki::View;
 $vd{links} = <<'EOH';  
   %styles-wiki-html(page=>\"WikiStyleList:HTML\");  
   %link-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,title=>\"%res(name=>EditThisPageLink);\");  
   %link-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,title=>\"%res(name=>AdminEditThisPageLink);\",add_param=>\"admin=1\");  
   %link-wiki(rel=>view,class=>wiki-cmd,title=>\"%res(name=>ViewThisPageLink);\",up_to_date);  
   %link-wiki(rel=>myself,class=>wiki,title=>\"%res(name=>GoToMyselfLink);\");  
   %link-wiki(page=>IndexPage,rel=>index,class=>wiki,title=>\"%res(name=>GoToIndexPageLink);\");  
   %link-wiki(page=>HomePage,rel=>home,class=>wiki,title=>\"%res(name=>GoToHomePageLink);\");  
   %link-wiki(page=>WikiNews,rel=>News,class=>wiki,title=>\"%res(name=>GoToWikiNewsLink);\");  
   %link-wiki(page=>RecentChanges,rel=>News,class=>wiki,title=>\"%res(name=>GoToRecentChangesLink);\");  
   %link-wiki(page=>RecentChanges,mode=>rss,rel=>News,class=>wiki,title=>\"%res(name=>GoToRssPageLink);\",type=>\"application/xml\");  
   %link-wiki(page=>SearchPage,rel=>search,class=>wiki,title=>\"%res(name=>GoToSearchPageLink);\");  
   %link-wiki(page=>WikiHelp,mode=>read,rel=>help,class=>wiki,title=>\"%res(name=>GoToWikiHelpLink);\");  
   %link-wiki(page=>WikiPageLicense,rel=>copyright,class=>wiki,title=>\"%res(name=>GoToWikiPageLicenseLink);\");  
   %link-wiki(mode=>map,rel=>sitemap,class=>wiki-cmd,title=>\"%res(name=>ShowMapOfThisPageLink);\");  
   %link-wiki(mode=>RandomJump,up_to_date,rel=>lucky,class=>\"wiki randomlink\",title=>\"%res(name=>GoSomewhereLink);\");  
   %link-wiki(page=>WikiMenuBar,mode=>mininav,rel=>\"sidebar navigator\",class=>wiki);  
   %link-favicon(use_page_icon);  
 EOH  
   #%link-viewcvs(href=>\"http://path-to-viewcvs/path-to-repository/\",rel=>history,class=>wiki-cmd,title=>\"%res(name=>ViewHistoryOfThisPageLink);\",hreflang=>en);  
 $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);\\\");  
   %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);\\\");  
 EOH  
 $vd{navbar} = <<'EOH';  
   %anchor-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,label=>\\\"%res(name=>EditThisPage);\\\",title=>\\\"%res(name=>EditThisPageLong,accesskey=>E);\\\");  
   %anchor-wiki(rel=>view,up_to_date,class=>wiki-cmd,label=>\\\"%res(name=>ViewThisPage);\\\",title=>\\\"%res(name=>ViewThisPageLong);\\\");  
   %anchor-wiki(page=>CreatePage,class=>wiki,label=>\\\"%res(name=>GoToCreatePage);\\\",title=>\\\"%res(name=>GoToCreatePageLong);\\\");  
   %anchor-wiki(page=>IndexPage,class=>wiki,label=>\\\"%res(name=>GoToIndexPage);\\\",title=>\\\"%res(name=>GoToIndexPageLong);\\\");  
   %anchor-wiki(page=>HomePage,class=>wiki,label=>\\\"%res(name=>GoToHomePage);\\\",title=>\\\"%res(name=>GoToHomePageLong);\\\");  
   %anchor-wiki(page=>SearchPage,class=>wiki,label=>\\\"%res(name=>GoToSearchPage);\\\",title=>\\\"%res(name=>GoToSearchPageLong);\\\");  
   %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  
   
 our %ViewDefinition = (  
 read => {media => {type => 'text/html', charset => 1, expires => 120}, check => sub {1},  
   #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 120},  
   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=>"  
   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");  
   %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(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");  
   %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  
 map => {media => {type => 'text/html', charset => 1, expires => 120}, check => sub {1},  
   #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 120},  
   template => <<EOH},  
 %html-start;%html-head(title=>"%res(name=>\\"Map:WebPageTitle\\");",link_meta=>"$vd{links}");  
 %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=>\\"link-map\\",title=>\\"Map:Title\\",heading,content=>\\"  
     <p>%res(name=>\\\\\\"Map:Description\\\\\\");</p>  
     %link-map;  
   \\");  
   %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(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");  
   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");  
 %apply-user-preferred-style;");%html-end;  
 EOH  
130    
131  edit => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},  push @{$SuikaWiki::Plugin::On{Load}}, sub {
132    #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},    SuikaWiki::View->definition ('read')->property (template => <<'EOH');
133    template => <<EOH},  %html-document(title=>{%res(name=>{View:WebPageTitle});}p,link-meta=>{%predefined-template(name=>links);}p,content=>{
134  %html-start;%html-head(title=>"%res(name=>\\"Edit:WebPageTitle\\");",link_meta=>"$vd{links}  %html-meta(name=>ROBOTS,content=>NOINDEX);");    %section(level=>1,add-to-toc=>0,type=>body,title=>{%ns-short-page-name;}p,heading,content=>{
135  %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"      %section(id=>tools1,class=>tools,add-to-toc=>0,content=>{%predefined-template(name=>navbar);}p);
136    %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");      %section(level=>2,id=>read,add-to-toc=>0,content=>{
137    %section(level=>2,id=>edit,title=>\\"Edit:Title\\",heading,content=>\\"        %if-calender(month,true=>{
138      %edit-form;          %format(context=>form_input,template=>{%calender;});
139      %section(level=>3,id=>edit-help,add_to_toc=>0,content=>\\\\\\"%read(page=>WikiEditHelp);\\\\\\");        },false=>{
140    \\");          %if-calender(true=>{
141    %section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\");            %format(context=>form_input,template=>{%calender-months;});
142    %section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\");          });
143    %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");        });
144    %section(id=>last-modified,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"LastModified=\\\\\\");%last-modified;\\");        %read(comment);
145    %section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");      }p);
146    %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");      %section(level=>2,id=>children,title=>{%res(name=>{Children:Title});}p,heading,
147  %apply-user-preferred-style;");%html-end;      content=>{%page-list(ns=>{%page-name;}p,recursive=>0,type=>both,template=>{%res(name=>{Children:Item});}p);}p);
148  EOH      %section(level=>2,id=>see-also,title=>{%res(name=>SeeAlso);}p,heading,content=>{%search-result;}p);
149  adminedit => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},      %section(level=>2,id=>referer,title=>{%res(name=>Referer);}p,heading,content=>{%referer-list;}p);
150    xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},      %section(level=>2,id=>toc,title=>{%res(name=>{TOC:Title});}p,heading,add_to_toc=>0,content=>{%toc(drag);}p);
151    template => <<EOH},      %section(id=>last-modified,add_to_toc=>0,content=>{%res(name=>{LastModified=});%last-modified;}p);
152  %html-start;%html-head(title=>"%res(name=>\\"Edit:Admin:WebPageTitle\\");",link_meta=>"$vd{links}  %html-meta(name=>ROBOTS,content=>NOINDEX);");      %section(class=>tools,add_to_toc=>0,content=>{%predefined-template(name=>navbar);}p);
153  %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"      %section(id=>footer,add-to-toc=>0,content=>{%predefined-template(name=>footer);}p);
154    %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");    }p);
155    %section(level=>2,id=>edit,title=>\\"Edit:Title\\",heading,content=>\\"%edit-form(admin);\\");  }p);%log-hotness;
156    %section(level=>2,id=>edit,title=>\\"Edit:Rename:Title\\",heading,content=>  EOH
157      \\"%wp-rename-form-start;    SuikaWiki::View->definition ('wrote')->property (template => SuikaWiki::View->definition ('-wrote')->property ('template').q(%log-hotness(weight=>2);));
158      %format(context=>form_input,template=>\\\\\\\"    SuikaWiki::View->definition ('WithMenu')->property (template => SuikaWiki::View->definition ('WithMenu')->property ('template').q(%log-hotness;));
159        %text(id=>to,label=>\\\\\\\\\\\\\\\"Edit:Rename:To\\\\\\\\\\\\\\\",size=>10);  };
       %submit;  
     \\\\\\\");  
     %form-end;\\"  
   );  
   %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=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");  
 %apply-user-preferred-style;");%html-end;  
 EOH  
 -conflict => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},  
   #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},  
   template => <<EOH},  
 %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=>\\"  
     <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>  
       %conflict-diff;  
     \\\\\\");  
   \\");  
   %section(level=>2,id=>edit,title=>\\"Edit:Title\\",heading,content=>\\"  
     <p>%res(name=>\\\\\\"Edit:Conflict:Edit:Description\\\\\\");</p>  
     %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;\\");  
   %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(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");  
   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");  
 %apply-user-preferred-style;");%html-end;  
 EOH  
 -wrote => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},  
   xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},  
   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}\\");  
   <p>%res(name=>\\"Edit:SavedSuccessfully\\");</p>  
   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");  
 %apply-user-preferred-style;");%html-end;  
 EOH  
 -deleted => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},  
   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);");  
 %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}\\");  
   <p>%res(name=>\\"Edit:PageIsDeletedSuccessfully\\");</p>  
   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");  
 %apply-user-preferred-style;");%html-end;  
 EOH  
 -error => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},  
   xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},  
   template => <<EOH},  
 %html-start;%html-head(title=>"%res(name=>\\"Error: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=>error,title=>\\"Error:Title\\",heading,content=>\\"  
     <p>%error-message;</p>  
   \\");  
   %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");  
   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");  
 %apply-user-preferred-style;");%html-end;  
 EOH  
   
 css => {media => {type => 'text/css', charset => 1, expires => 3600},  
   check => sub { ref $_[0]->format_converter ($_[0]->{magic} => 'CSS') ? 1 : 0 },  
   template => '%read(to=>CSS);'},  
 image_jpeg => {media => {type => 'image/jpeg', expires => 240*3600},  
   check => sub { ref ($_[0]->format_converter ($_[0]->{magic} => 'image_jpeg'))  
                  && $_[0]->{magic} =~ m#image-type="image/jpeg"# ? 1 : 0 },  
   template => '%read(to=>image_jpeg);'},  
 image_png => {media => {type => 'image/png', expires => 240*3600},  
   check => sub { ref ($_[0]->format_converter ($_[0]->{magic} => 'image_png'))  
                  && $_[0]->{magic} =~ m#image-type="image/png"# ? 1 : 0 },  
   template => '%read(to=>image_png);'},  
 rss => {media => {type => 'application/rss+xml', charset => 1, expires => 3600},  
   check => sub { ref $_[0]->format_converter ($_[0]->{magic} => 'RSS') ? 1 : 0 },  
   template => '<?xml version="1.0"?>%styles-wiki-xml(page=>"WikiStyleList:RSS");%read(to=>RSS);'},  
 -UnsupportedMediaType => {media => {type => 'text/html', charset => 1, expires => -1},  
   xmedia => {type => 'application/xhtml+xml', charset => 1, expires => -1},  
   check => sub {1}, template => <<EOH},  
 %html-start;%html-head(title=>"%page-name;",link_meta=>"$vd{links}");  
 %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,title=>\\"UnsupportedMediaType:Title\\",heading,content=>\\"  
     %res(name=>\\\\\\"UnsupportedMediaType:Description\\\\\\");  
   \\");  
   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");  
 %apply-user-preferred-style;");%html-end;  
 EOH  
 );  
   
   
 $ViewDefinition{diff} = {media => {type => 'text/html', charset => 1, expires => 120},  
   #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 120},  
   template => <<EOH, check => sub {1}} if $wiki::diff::UseDiff;  
 %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=>"  
   %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");  
   %section(level=>2,id=>\\"diff\\",title=>\\"Diff:Title\\",heading,content=>\\"  
     <p>%res(name=>\\\\\\"Diff:Notice\\\\\\");</p>  
     %diff-between-previous;  
   \\");  
   %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}\\\");  
   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");  
 ");  
 EOH  
   
 $ViewDefinition{mininav} = {%{$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,content=>"  
   %section(level=>2,id=>side-menu,class=>\\"mininav\\",add_to_toc=>0,content=>\\"  
     %read;  
     %anchor-wiki(rel=>view,mode=>mininav,class=>wiki-cmd,target=>_self,label=>\\\\\\"%res(name=>ReloadThisPage);\\\\\\",title=>\\\\\\"%res(name=>ReloadThisPageLong);\\\\\\");  
   \\");  
 %apply-user-preferred-style;");%html-end;  
 EOH  
   
 $ViewDefinition{pi_wp__rename} = {media => {type => 'text/html', charset => 1,  
   expires => 60}, check => sub {1},  
   #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},  
   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}\\");  
   %section(level=>2,id=>edit,title=>\\"Edit:Rename:Title\\",heading,content=>\\"%wp-renaming;\\");  
   %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");  
 %apply-user-preferred-style;");%html-end;  
 EOH  
160    
161  =head1 NAME  =head1 NAME
162    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24