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'; |
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 |
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}; |
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=>" |
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$ |