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

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

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

revision 1.5 by wakaba, Thu Mar 27 07:29:20 2003 UTC revision 1.6 by wakaba, Thu Mar 27 07:52:24 2003 UTC
# Line 1  Line 1 
1  use strict;  use strict;
2  #  
3  # You MUST modify following '$modifier_...' variables.  ## URI (or part of URI) of Wiki CGI itself and its external addons
4  #          ## Note: If your Wiki CGI URI is <http://foo.example/path/to/wiki.cgi>,
5  # our $modifier_dbtype = 'AnyDBM_File';  # Fast, not available on some server, page size limited.          ##              cookie-path: /path/to/
6  # our $modifier_dbtype = 'dbmopen';      # Fast, not available on some server, page size limited.          ##              script-short-name: wiki.cgi
7  #our $modifier_dbtype = 'Yuki::YukiWikiDB';     # Slow, available on all environment.          ##       URI parts MUST NOT contains "&" and/or non-URI characters.
8  #our $modifier_dbtype = 'Yuki::YukiWikiDB2';     # Slow, available on all environment.    our %uri = (
9  our $modifier_dbtype = 'Yuki::YukiWikiDBMeta';     # Slow, available on all environment.      cookie_path         => '/temp/suikawiki/',
10  our $url_cgi; {      external_script     => '../wiki/script/',
11        script_short_name   => 'wiki',
12      );
13      our $url_cgi; {
14      my $scheme = 'http';      my $scheme = 'http';
15      $scheme = lc $1 if $main::ENV{SERVER_PROTOCOL} =~ m#([A-Za-z0-9+.%-]+)#;      $scheme = lc $1 if $main::ENV{SERVER_PROTOCOL} =~ m#([A-Za-z0-9+.%-]+)#;
16      $url_cgi = "$scheme://$main::ENV{SERVER_NAME}:$main::ENV{SERVER_PORT}/temp/suikawiki/wiki";      $url_cgi = "$scheme://$main::ENV{SERVER_NAME}:$main::ENV{SERVER_PORT}$uri{cookie_path}$uri{script_short_name}";
17          ## - MUST NOT include [&<>"] and/or non-URI characters    }
18  }    $uri{wiki} = $url_cgi;
19  our %uri = (  
20    cookie_path   => '/temp/suikawiki/',  ## Path to modules and databases
21    external_script       => '../wiki/script/',    use lib qw!../wiki/lib!;
22  );    $SuikaWiki::Plugin::plugin_directory = q(../wiki/lib/SuikaWiki/Plugin/);
23  $uri{wiki} = $url_cgi;    our %PathTo = (       ## Path to your data, from the main CGI script (NOT from this config script)
24  use lib qw!../wiki/lib!;      CachePrefix         => q(./wikidata/.cache.),
25  $SuikaWiki::Plugin::plugin_directory = q(../wiki/lib/SuikaWiki/Plugin/);      WikiDataBase        => q(./wikidata/page),
26  our %PathTo = ( ## Path to your data, from the main CGI script (NOT from this config script)    );
27    CachePrefix   => q(./wikidata/.cache.),  
28    WikiDataBase  => q(./wikidata/page),  ## Type of WikiPage Database
29  );    #our $modifier_dbtype = 'AnyDBM_File';  # Fast, not available on some server, page size limited.
30  ##############################    #our $modifier_dbtype = 'dbmopen';      # Fast, not available on some server, page size limited.
31  our %PageName = (    #our $modifier_dbtype = 'Yuki::YukiWikiDB';     # Slow, available on all environment.
32    FrontPage     => 'HomePage',    #our $modifier_dbtype = 'Yuki::YukiWikiDB2';     # Slow, available on all environment.
33    IndexPage     => 'IndexPage',    our $modifier_dbtype = 'Yuki::YukiWikiDBMeta';     # Slow, available on all environment.
34    SearchPage    => 'SearchPage',    our $use_exists = 1; # If you can use 'exists' method for your DB.
   CreatePage    => 'CreatePage',  
   ErrorPage     => 'ErrorPage',  
   RecentChanges => 'RecentChanges',  
   AdminSpecialPage      => "\x11\x11Admin\x11Special\x11Page\x11\x11",  
   UserAgentList => 'WikiUserAgentList',  
 );  
 our $kanjicode = 'euc';  
 our $lang = 'ja';  
35    
36  $wiki::useragent::UseLog = 0;   ## Use User-Agent name log (WikiUserAgentList) or not  ## Name of Special WikiPage (linked as parts of navigations)
37  $wiki::diff::UseDiff = 1;       ## Use diff mode or not    our %PageName = (
38        FrontPage   => 'HomePage',
39        IndexPage   => 'IndexPage',
40        SearchPage  => 'SearchPage',
41        CreatePage  => 'CreatePage',
42        RecentChanges       => 'RecentChanges',
43        UserAgentList       => 'WikiUserAgentList',
44        AdminSpecialPage    => "\x11\x11Admin\x11Special\x11Page\x11\x11",
45      );
46    
47    ## (Should be reimplemented)
48      our $kanjicode = 'euc';
49      our $lang = 'ja';
50      $wiki::useragent::UseLog = 0; ## Use User-Agent name log (WikiUserAgentList) or not
51    
52    ## Misc. options
53      $wiki::diff::UseDiff = 1;     ## Use diff mode or not
54    
55    ## Namespace of WikiName
56    package wiki::page::ns;
57      our $delimiter = '//';
58      our $self = '.';
59      our $parent = '..';
60    package main;
61    
62    ## Definition of views
63    
64  my %vd;  my %vd;
65  $vd{links} = <<'EOH';  $vd{links} = <<'EOH';
# Line 231  rss => {media => {type => 'application/r Line 251  rss => {media => {type => 'application/r
251    %section(level=>2,title=>\\"UnsupportedMediaType:Title\\",heading,content=>\\"    %section(level=>2,title=>\\"UnsupportedMediaType:Title\\",heading,content=>\\"
252      %res(name=>\\\\\\"UnsupportedMediaType:Description\\\\\\");      %res(name=>\\\\\\"UnsupportedMediaType:Description\\\\\\");
253    \\");    \\");
   %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}\\");  
254    %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");    %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");
255  %apply-user-preferred-style;");%html-end;  %apply-user-preferred-style;");%html-end;
256  EOH  EOH
# Line 254  $ViewDefinition{diff} = {media => {type Line 270  $ViewDefinition{diff} = {media => {type
270    %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");    %section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\");
271    %section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");    %section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\");
272    %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");    %section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\");
273  %apply-user-preferred-style;");%html-end;  ");
274  EOH  EOH
275    
276  $ViewDefinition{WithMenu} = {%{$ViewDefinition{read}}, template => <<EOH};  $ViewDefinition{WithMenu} = {%{$ViewDefinition{read}}, template => <<EOH};
# Line 281  $ViewDefinition{WithMenu} = {%{$ViewDefi Line 297  $ViewDefinition{WithMenu} = {%{$ViewDefi
297    \\");    \\");
298  %apply-user-preferred-style;");%html-end;  %apply-user-preferred-style;");%html-end;
299  EOH  EOH
300    
301  $ViewDefinition{mininav} = {%{$ViewDefinition{read}}, template => <<EOH};  $ViewDefinition{mininav} = {%{$ViewDefinition{read}}, template => <<EOH};
302  %html-start;%html-head(title=>"%res(name=>\\"View:WebPageTitle\\");",link_meta=>"$vd{links}");  %html-start;%html-head(title=>"%res(name=>\\"View:WebPageTitle\\");",link_meta=>"$vd{links}");
303  %section(level=>1,add_to_toc=>0,type=>body,content=>"  %section(level=>1,add_to_toc=>0,type=>body,content=>"
# Line 291  $ViewDefinition{mininav} = {%{$ViewDefin Line 308  $ViewDefinition{mininav} = {%{$ViewDefin
308  %apply-user-preferred-style;");%html-end;  %apply-user-preferred-style;");%html-end;
309  EOH  EOH
310    
311  1;  =head1 NAME
312    
313    suikawiki-config.ph --- SuikaWiki: site configuration script
314    
315    =head1 LICENSE
316    
317    Copyright 2003 Wakaba <w@suika.fam.cx>
318    
319    This program is free software; you can redistribute it and/or
320    modify it under the same terms as Perl itself.
321    
322    =cut
323    
324    1; # $Date$
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24