/[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.3 by w, Sun Jan 26 01:43:24 2003 UTC revision 1.9 by wakaba, Fri Jan 16 08:06:53 2004 UTC
# Line 1  Line 1 
1    package main;
2  use strict;  use strict;
3  #  
4  # You MUST modify following '$modifier_...' variables.  ## [OBSOLETE] URI (or part of URI) of Wiki CGI script itself and its external addons
5  #          ## Note: If your Wiki CGI script URI is <http://foo.example/path/to/wiki.cgi>,
6  # our $modifier_dbtype = 'AnyDBM_File';  # Fast, not available on some server, page size limited.          ##              cookie-path: /path/to/
7  # our $modifier_dbtype = 'dbmopen';      # Fast, not available on some server, page size limited.          ##              script-short-name: wiki.cgi
8  #our $modifier_dbtype = 'Yuki::YukiWikiDB';     # Slow, available on all environment.          ##       URI parts MUST NOT contains "&" and/or non-URI characters.
9  #our $modifier_dbtype = 'Yuki::YukiWikiDB2';     # Slow, available on all environment.    our %uri = (
10  our $modifier_dbtype = 'Yuki::YukiWikiDBMeta';     # Slow, available on all environment.      cookie_path         => '/~wakaba/-temp/expwiki/',
11  our $url_cgi; {      external_script     => '../wiki/script/',
12      my $scheme = 'http';      script_short_name   => 'wiki',
13      $scheme = lc $1 if $main::ENV{SERVER_PROTOCOL} =~ m#([A-Za-z0-9+.%-]+)#;      ## If you use CVS repository of WikiDatabase,
14      $url_cgi = "$scheme://$main::ENV{SERVER_NAME}:$main::ENV{SERVER_PORT}/~wakaba/wiki/wiki";      #cvs_repository     => 'http://path-to-viewcvs/path-to-repository/',
15          ## - MUST NOT include [&<>"] and/or non-URI characters    );
16  }    $uri{wiki_abs} = "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}";
17  our %uri = (    $main::url_cgi = $uri{wiki_abs};
18    external_script       => 'script/',    $uri{wiki} = qq($uri{cookie_path}$uri{script_short_name});    
19  );  
20  $uri{wiki} = $url_cgi;  ## Path to modules and databases
21  $SuikaWiki::Plugin::plugin_directory = q(lib/SuikaWiki/Plugin/);    push @main::INC, qw'lib ../wiki/lib lib';
22  our %PathTo = ( ## Path to your data, from the main CGI script (NOT from this config script)  
23    CacheHeadline => q(./wikidata/.headline.cache),  ## These lines should be removed after utf8 support
24    CachePrefix   => q(./wikidata/.cache.),  $Message::Util::Formatter::Base::Token = qr/[\w._+\x80-\xFF-]+/;
25    CacheSearchResult     => q(./wikidata/.search.cache),  require Message::Util::Formatter::Base;
26    WikiDataBase  => q(./wikidata/page),  
27  );  ## Constructing a new instance of the WikiEngine
28  our $use_exists = 0; # If you can use 'exists' method for your DB.    require SuikaWiki::Implementation;
29  ##############################    our $WIKI = SuikaWiki::Implementation->new;
30  our %PageName = (  
31    FrontPage     => 'HomePage',    ## Obsolete interface
32    IndexPage     => 'IndexPage',    our %PathTo = (       ## Path to your data, relative to the main CGI script (NOT to this config script)
33    SearchPage    => 'SearchPage',      CachePrefix         => q(./wikidata/.cache.),  # WikiPlugin
34    CreatePage    => 'CreatePage',      TempPrefix  => q(./wikidata/.tmp.),            # WikiPlugin, Image
35    ErrorPage     => 'ErrorPage',      convert     => q(/usr/X11R6/bin/convert),      # Image
36    RecentChanges => 'RecentChanges',    );
37    AdminSpecialPage      => "\x11\x11Admin\x11Special\x11Page\x11\x11",  
38    UserAgentList => 'WikiUserAgentList',  ## Filesystem path mapping
39  );    for (
40  our $kanjicode = 'euc';       [db__content__dir        => q"./wikidata/page"],
41  our $lang = 'ja';       [db__content__error_log  => q"./wikidata/log/db-content.log"],
42         [db__lock__dir           => q"./wikidata/lock/"],
43  $wiki::useragent::UseLog = 0;   ## Use User-Agent name log (WikiUserAgentList) or not    ) {
44  $wiki::diff::UseDiff = 1;       ## Use diff mode or not      $WIKI->{config}->{path_to}->{$_->[0]} = $_->[1];
45      }
46  ## Definition of views  
47    ## Debug mode
48  my %vd;    $WIKI->{config}->{debug} = {
49  $vd{links} = <<'EOH';      general => 1,
50    %styles-wiki-html(page=>\"WikiStyleList:HTML\");      db => 0,
51    %link-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,title=>\"%res(name=>EditThisPageLink);\");      view => 1,
52    %link-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,title=>\"%res(name=>AdminEditThisPageLink);\",add_param=>\"admin=1\");    };
53    %link-wiki(rel=>view,class=>wiki-cmd,title=>\"%res(name=>ViewThisPageLink);\",up_to_date);  
54    %link-wiki(rel=>myself,class=>wiki,title=>\"%res(name=>GoToMyselfLink);\");  ## WikiPlugin
55    %link-wiki(page=>IndexPage,rel=>index,class=>wiki,title=>\"%res(name=>GoToIndexPageLink);\");    push @{$WIKI->{event}->{plugin_manager_loaded}}, sub {
56    %link-wiki(page=>HomePage,rel=>home,class=>wiki,title=>\"%res(name=>GoToHomePageLink);\");      my $wiki = shift;
57    %link-wiki(page=>WikiNews,rel=>News,class=>wiki,title=>\"%res(name=>GoToWikiNewsLink);\");      $wiki->{plugin}->load_directory (qw(
58    %link-wiki(page=>RecentChanges,rel=>News,class=>wiki,title=>\"%res(name=>GoToRecentChangesLink);\");        lib/SuikaWiki/Plugin/
59    %link-wiki(page=>RecentChanges,mode=>rss,rel=>News,class=>wiki,title=>\"%res(name=>GoToRssPageLink);\",type=>\"application/xml\");        misc/plugins/
60    %link-wiki(page=>SearchPage,rel=>search,class=>wiki,title=>\"%res(name=>GoToSearchPageLink);\");        misc/plugins/format/
61    %link-wiki(page=>WikiHelp,mode=>read,rel=>help,class=>wiki,title=>\"%res(name=>GoToWikiHelpLink);\");        misc/plugins/view/
62    %link-wiki(page=>WikiPageLicense,rel=>copyright,class=>wiki,title=>\"%res(name=>GoToWikiPageLicenseLink);\");      ));
63    %link-wiki(mode=>map,rel=>contents,class=>wiki-cmd,title=>\"%res(name=>ShowMapOfThisPageLink);\");      require 'wikidata/config.ph';
64    %link-wiki(mode=>RandomJump,up_to_date,rel=>lucky,class=>\"wiki randomlink\",title=>\"%res(name=>GoSomewhereLink);\");    };
65  EOH  
66    #%link-viewcvs(href=>\"http://path-to-viewcvs/path-to-repository/\",rel=>history,class=>wiki-cmd,title=>\"%res(name=>ViewHistoryOfThisPageLink);\",hreflang=>en);  ## WikiDatabase : Mapping logical to physical
67  $vd{links} .= q(  %link-wiki(mode=>diff,rel=>history,class=>wiki-cmd,title=>\"%res(name=>ViewDiffOfThisPageLink);\");) if $wiki::diff::UseDiff;    push @{$WIKI->{event}->{database_loaded}}, sub {
68  $vd{links} .= <<EOH;        ## Main content
69    %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);\\\");        $WIKI->{db}->_set_prop_db (content => {-db_open => sub {
70    %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);\\\");          require SuikaWiki::DB::FileSystem::YukiWikiDBNS;
71  EOH          SuikaWiki::DB::FileSystem::YukiWikiDBNS->new
72  $vd{navbar} = <<'EOH';            (directory => $WIKI->{config}->{path_to}->{db__content__dir},
73    %anchor-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,label=>\\\"%res(name=>EditThisPage);\\\",title=>\\\"%res(name=>EditThisPageLong,accesskey=>E);\\\");             logfile   => $WIKI->{config}->{path_to}->{db__content__error_log},
74    %anchor-wiki(rel=>view,up_to_date,class=>wiki-cmd,label=>\\\"%res(name=>ViewThisPage);\\\",title=>\\\"%res(name=>ViewThisPageLong);\\\");             suffix    => '.txt',
75    %anchor-wiki(page=>CreatePage,class=>wiki,label=>\\\"%res(name=>GoToCreatePage);\\\",title=>\\\"%res(name=>GoToCreatePageLong);\\\");             -lock => &{$WIKI->{var}->{db}->{lock_prop}} ('content'));
76    %anchor-wiki(page=>IndexPage,class=>wiki,label=>\\\"%res(name=>GoToIndexPage);\\\",title=>\\\"%res(name=>GoToIndexPageLong);\\\");        }, -db_close => sub {
77    %anchor-wiki(page=>HomePage,class=>wiki,label=>\\\"%res(name=>GoToHomePage);\\\",title=>\\\"%res(name=>GoToHomePageLong);\\\");          my %opt = @_;
78    %anchor-wiki(page=>SearchPage,class=>wiki,label=>\\\"%res(name=>GoToSearchPage);\\\",title=>\\\"%res(name=>GoToSearchPageLong);\\\");          $opt{prop_info}->{-db}->close;
79    %anchor-wiki(mode=>RandomJump,up_to_date,rel=>lucky,class=>\\\"wiki randomlink\\\",label=>\\\"%res(name=>GoSomewhere);\\\",title=>\\\"%res(name=>GoSomewhereLong);\\\");          delete $opt{prop_info}->{-db};
80    %anchor-wiki(page=>RecentChanges,class=>wiki,label=>\\\"%res(name=>GoToRecentChanges);\\\",title=>\\\"%res(name=>GoToRecentChangesLong);\\\");        }});
81  EOH        
82          ## Last modified
83  our %ViewDefinition = (        $WIKI->{db}->_set_prop_db (lastmodified => {-db_open => sub {
84  read => {media => {type => 'text/html', charset => 1, expires => 120}, check => sub {1},          require SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09;
85    #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 120},          SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09->new
86    template => <<EOH},            (directory => $WIKI->{config}->{path_to}->{db__content__dir},
87  %html-start;%html-head(title=>"%res(name=>\\"View:WebPageTitle\\");",link_meta=>"$vd{links}");             -lock => &{$WIKI->{var}->{db}->{lock_prop}} ('lastmodified'));
88  %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"        }, -prop => 'last_modified', -db_close => sub {
89    %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");          my %opt = @_;
90    %section(level=>2,id=>read,add_to_toc=>0,content=>\\"%read(comment);\\");          $opt{prop_info}->{-db}->close;
91    %section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\");          delete $opt{prop_info}->{-db};
92    %section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\");        }});
93    %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");    
94    %section(id=>last-modified,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"LastModified=\\\\\\");%last-modified;\\");    ## OBSOLETE interface for transition
95    %section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");    ## Don't remove until WikiResource is reimplemented
96    %section(id=>footer,add_to_toc=>0,content=>\\"      $WIKI->{db}->get (content => ['dummy']);
97      <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>      *main::database = $WIKI->{db}->{prop}->{content}->{-db}->{db_hash};
98      <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>      $SuikaWiki::Plugin::DB = $WIKI->{db};
99      <a href=\\\\\\"http://suika.fam.cx/gate/cvs/wakaba/wiki/\\\\\\" title=\\\\\\"%res(name=>\\\\\\"About:SuikaWiki:JumpToCVS\\\\\\");\\\\\\">%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;</a>      for (@{$SuikaWiki::Plugin::On{WikiDatabaseLoaded}||[]}) { &{$_} }
100    \\");      
101  %apply-user-preferred-style;");%html-end;      package wiki::dummy;
102  EOH      sub meta {undef};
103  map => {media => {type => 'text/html', charset => 1, expires => 120}, check => sub {1},      sub list_items {};
104    #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 120},      sub STORE {};
105    template => <<EOH},    };
106  %html-start;%html-head(title=>"%res(name=>\\"Map:WebPageTitle\\");",link_meta=>"$vd{links}");  
107  %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"    ## WikiName of special purpose WikiPages
108    %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");    $WIKI->{config}->{page} = {
109    %section(level=>2,id=>\\"link-map\\",title=>\\"Map:Title\\",heading,content=>\\"      Default         => [qw/HomePage/],
110      <p>%res(name=>\\\\\\"Map:Description\\\\\\");</p>      NewPageTemplate => [qw/Wiki NewPageTemplate/],
111      %link-map;    };
112    \\");    
113    %section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\");    ## [OBSOLETE] Name of Special WikiPage (linked as parts of navigations)
114    %section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\");    our %PageName = (
115    %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");      FrontPage   => 'HomePage',
116    %section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");      InterWikiName       => 'Wiki//InterWikiName',
117    %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");      MenuBar     => 'Wiki//MenuBar',
118  %apply-user-preferred-style;");%html-end;      RefererDontRecord   => 'Wiki//Referer//IgnoreSite',
119  EOH      RefererSiteName     => 'Wiki//Referer//SiteName',
120        ResourceNS  => 'Wiki//Resource//',
121  edit => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},      StyleList   => 'Wiki//Style//List//',
122    #xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},    );
123    template => <<EOH},    
124  %html-start;%html-head(title=>"%res(name=>\\"Edit:WebPageTitle\\");",link_meta=>"$vd{links}  %html-meta(name=>ROBOTS,content=>NOINDEX);");    ## WikiNamespace constants
125  %section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>"    $WIKI->{config}->{name}->{space}->{separator} = '//';
126    %section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\");    $WIKI->{config}->{name}->{space}->{separator_reg} = qr#//#;
127    %section(level=>2,id=>edit,title=>\\"Edit:Title\\",heading,content=>\\"    
128      %edit-form;    ## Default character code
129      %section(level=>3,id=>edit-help,add_to_toc=>0,content=>\\\\\\"%read(page=>WikiEditHelp);\\\\\\");    $WIKI->{config}->{charset}->{internal} = 'euc-jp';
130    \\");    $WIKI->{config}->{charset}->{output} = 'iso-2022-jp';
131    %section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\");    $WIKI->{config}->{charset}->{uri_param} = ''; # auto detect
132    %section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\");    $WIKI->{config}->{charset}->{uri_param_encode} = 'euc-jp';
133    %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");    $WIKI->{config}->{charset}->{uri_query} = ''; # auto detect
134    %section(id=>last-modified,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"LastModified=\\\\\\");%last-modified;\\");    $WIKI->{config}->{charset}->{uri_query_encode} = 'euc-jp';
135    %section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");    $WIKI->{config}->{charset}->{uri_path_info} = 'utf-8';
136    %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");    
137  %apply-user-preferred-style;");%html-end;    ## Expires duration templates
138  EOH    $WIKI->{config}->{entity}->{expires} = {
139  adminedit => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1},      edit      => {delta => 60},
140    xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60},      view      => {delta => 2*3600},
141    template => <<EOH},      lm_flaged => {delta => 30*24*3600},
142  %html-start;%html-head(title=>"%res(name=>\\"Edit:Admin:WebPageTitle\\");",link_meta=>"$vd{links}  %html-meta(name=>ROBOTS,content=>NOINDEX);");    };
143  %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:Title\\",heading,content=>\\"%edit-form(admin);\\");  
   %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);'},  
 rss => {media => {type => 'application/rss+xml', charset => 1, expires => 3600},  
   check => sub { ref $_[0]->format_converter ($_[0]->{magic} => 'RSS') ? 1 : 0 },  
   template => '%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  
144    
145  =head1 NAME  =head1 NAME
146    
147  suikawiki-config.ph --- SuikaWiki: site configuration script  suikawiki-config.ph --- SuikaWiki: Configuration of the wiki
148    
149  =head1 LICENSE  =head1 LICENSE
150    
# Line 257  modify it under the same terms as Perl i Line 155  modify it under the same terms as Perl i
155    
156  =cut  =cut
157    
158  1;  1; # $Date$
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24