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 = 'YukiWikiDB'; # Slow, available on all environment. |
## URI parts MUST NOT contains "&" and/or non-URI characters. |
8 |
our $url_cgi = '/~wakaba/-temp/wiki/wiki'; |
our %uri = ( |
9 |
## - MUST be started by '/' |
cookie_path => '/temp/suikawiki/', |
10 |
## - MUST NOT include [&<>"] and/or non-URI characters |
external_script => '../wiki/script/', |
11 |
our %uri; |
script_short_name => 'wiki', |
12 |
$uri{wiki} = $url_cgi; |
); |
13 |
$uri{cvs_wikipage} = '/gate/cvs/wakaba/suikawiki/wiki/'; |
our $url_cgi; { |
14 |
$SuikaWiki::Plugin::plugin_directory = q(./SuikaWiki/Plugin/); |
my $scheme = 'http'; |
15 |
our %PathTo = ( ## Path to your data, from the main CGI script (NOT from this config script) |
$scheme = lc $1 if $main::ENV{SERVER_PROTOCOL} =~ m#([A-Za-z0-9+.%-]+)#; |
16 |
TouchFile => q(./wikidata/touched.txt), |
$url_cgi = "$scheme://$main::ENV{SERVER_NAME}:$main::ENV{SERVER_PORT}$uri{cookie_path}$uri{script_short_name}"; |
17 |
WikiDataBase => q(./wikidata/page), |
} |
18 |
WikiInfoBase => q(./wikidata/info), |
$uri{wiki} = $url_cgi; |
19 |
WikiDiffBase => q(./wikidata/diff), |
|
20 |
); |
## Path to modules and databases |
21 |
our $use_exists = 0; # If you can use 'exists' method for your DB. |
use lib qw!../wiki/lib!; |
22 |
############################## |
$SuikaWiki::Plugin::plugin_directory = q(../wiki/lib/SuikaWiki/Plugin/); |
23 |
our %PageName = ( |
our %PathTo = ( ## Path to your data, from the main CGI script (NOT from this config script) |
24 |
FrontPage => 'HomePage', |
CachePrefix => q(./wikidata/.cache.), |
25 |
IndexPage => 'IndexPage', |
WikiDataBase => q(./wikidata/page), |
26 |
SearchPage => 'SearchPage', |
); |
27 |
CreatePage => 'CreatePage', |
|
28 |
ErrorPage => 'ErrorPage', |
## Type of WikiPage Database |
29 |
RssPage => 'RssPage', |
#our $modifier_dbtype = 'AnyDBM_File'; # Fast, not available on some server, page size limited. |
30 |
AdminSpecialPage => 'Admin Special Page', # must include spaces. |
#our $modifier_dbtype = 'dbmopen'; # Fast, not available on some server, page size limited. |
31 |
DefaultStyleForHTML => 'WikiHTMLStyle', |
#our $modifier_dbtype = 'Yuki::YukiWikiDB'; # Slow, available on all environment. |
32 |
); |
#our $modifier_dbtype = 'Yuki::YukiWikiDB2'; # Slow, available on all environment. |
33 |
our $kanjicode = 'euc'; |
our $modifier_dbtype = 'Yuki::YukiWikiDBMeta'; # Slow, available on all environment. |
34 |
our $lang = 'ja'; |
our $use_exists = 1; # If you can use 'exists' method for your DB. |
35 |
our %fixedpage = ( |
|
36 |
$PageName{IndexPage} => 1, |
## Name of Special WikiPage (linked as parts of navigations) |
37 |
$PageName{ErrorPage} => 1, |
our %PageName = ( |
38 |
$PageName{RssPage} => 1, |
FrontPage => 'HomePage', |
39 |
RecentChanges => 1, |
IndexPage => 'IndexPage', |
40 |
AdminChangePassword => 1, |
SearchPage => 'SearchPage', |
41 |
CompletedSuccessfully => 1, |
CreatePage => 'CreatePage', |
42 |
WikiUserAgentList => 1, |
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; |
65 |
|
$vd{links} = <<'EOH'; |
66 |
|
%styles-wiki-html(page=>\"WikiStyleList:HTML\"); |
67 |
|
%link-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,title=>\"%res(name=>EditThisPageLink);\"); |
68 |
|
%link-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,title=>\"%res(name=>AdminEditThisPageLink);\",add_param=>\"admin=1\"); |
69 |
|
%link-wiki(rel=>view,class=>wiki-cmd,title=>\"%res(name=>ViewThisPageLink);\",up_to_date); |
70 |
|
%link-wiki(rel=>myself,class=>wiki,title=>\"%res(name=>GoToMyselfLink);\"); |
71 |
|
%link-wiki(page=>IndexPage,rel=>index,class=>wiki,title=>\"%res(name=>GoToIndexPageLink);\"); |
72 |
|
%link-wiki(page=>HomePage,rel=>home,class=>wiki,title=>\"%res(name=>GoToHomePageLink);\"); |
73 |
|
%link-wiki(page=>WikiNews,rel=>News,class=>wiki,title=>\"%res(name=>GoToWikiNewsLink);\"); |
74 |
|
%link-wiki(page=>RecentChanges,rel=>News,class=>wiki,title=>\"%res(name=>GoToRecentChangesLink);\"); |
75 |
|
%link-wiki(page=>RecentChanges,mode=>rss,rel=>News,class=>wiki,title=>\"%res(name=>GoToRssPageLink);\",type=>\"application/xml\"); |
76 |
|
%link-wiki(page=>SearchPage,rel=>search,class=>wiki,title=>\"%res(name=>GoToSearchPageLink);\"); |
77 |
|
%link-wiki(page=>WikiHelp,mode=>read,rel=>help,class=>wiki,title=>\"%res(name=>GoToWikiHelpLink);\"); |
78 |
|
%link-wiki(page=>WikiPageLicense,rel=>copyright,class=>wiki,title=>\"%res(name=>GoToWikiPageLicenseLink);\"); |
79 |
|
%link-wiki(mode=>map,rel=>sitemap,class=>wiki-cmd,title=>\"%res(name=>ShowMapOfThisPageLink);\"); |
80 |
|
%link-wiki(mode=>RandomJump,up_to_date,rel=>lucky,class=>\"wiki randomlink\",title=>\"%res(name=>GoSomewhereLink);\"); |
81 |
|
%link-wiki(page=>WikiMenuBar,mode=>mininav,rel=>\"sidebar navigator\",class=>wiki); |
82 |
|
%link-favicon(use_page_icon); |
83 |
|
EOH |
84 |
|
#%link-viewcvs(href=>\"http://path-to-viewcvs/path-to-repository/\",rel=>history,class=>wiki-cmd,title=>\"%res(name=>ViewHistoryOfThisPageLink);\",hreflang=>en); |
85 |
|
$vd{links} .= q( %link-wiki(mode=>diff,rel=>history,class=>wiki-cmd,title=>\"%res(name=>ViewDiffOfThisPageLink);\");) if $wiki::diff::UseDiff; |
86 |
|
$vd{links} .= <<EOH; |
87 |
|
%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);\\\"); |
88 |
|
%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);\\\"); |
89 |
|
EOH |
90 |
|
$vd{navbar} = <<'EOH'; |
91 |
|
%anchor-wiki(mode=>edit,rel=>edit,class=>wiki-cmd,label=>\\\"%res(name=>EditThisPage);\\\",title=>\\\"%res(name=>EditThisPageLong,accesskey=>E);\\\"); |
92 |
|
%anchor-wiki(rel=>view,up_to_date,class=>wiki-cmd,label=>\\\"%res(name=>ViewThisPage);\\\",title=>\\\"%res(name=>ViewThisPageLong);\\\"); |
93 |
|
%anchor-wiki(page=>CreatePage,class=>wiki,label=>\\\"%res(name=>GoToCreatePage);\\\",title=>\\\"%res(name=>GoToCreatePageLong);\\\"); |
94 |
|
%anchor-wiki(page=>IndexPage,class=>wiki,label=>\\\"%res(name=>GoToIndexPage);\\\",title=>\\\"%res(name=>GoToIndexPageLong);\\\"); |
95 |
|
%anchor-wiki(page=>HomePage,class=>wiki,label=>\\\"%res(name=>GoToHomePage);\\\",title=>\\\"%res(name=>GoToHomePageLong);\\\"); |
96 |
|
%anchor-wiki(page=>SearchPage,class=>wiki,label=>\\\"%res(name=>GoToSearchPage);\\\",title=>\\\"%res(name=>GoToSearchPageLong);\\\"); |
97 |
|
%anchor-wiki(mode=>RandomJump,up_to_date,rel=>lucky,class=>\\\"wiki randomlink\\\",label=>\\\"%res(name=>GoSomewhere);\\\",title=>\\\"%res(name=>GoSomewhereLong);\\\"); |
98 |
|
%anchor-wiki(page=>RecentChanges,class=>wiki,label=>\\\"%res(name=>GoToRecentChanges);\\\",title=>\\\"%res(name=>GoToRecentChangesLong);\\\"); |
99 |
|
EOH |
100 |
|
|
101 |
|
our %ViewDefinition = ( |
102 |
|
read => {media => {type => 'text/html', charset => 1, expires => 120}, check => sub {1}, |
103 |
|
#xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 120}, |
104 |
|
template => <<EOH}, |
105 |
|
%html-start;%html-head(title=>"%res(name=>\\"View:WebPageTitle\\");",link_meta=>"$vd{links}"); |
106 |
|
%section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>" |
107 |
|
%section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\"); |
108 |
|
%section(level=>2,id=>read,add_to_toc=>0,content=>\\"%read(comment);\\"); |
109 |
|
%section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\"); |
110 |
|
%section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\"); |
111 |
|
%section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\"); |
112 |
|
%section(id=>last-modified,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"LastModified=\\\\\\");%last-modified;\\"); |
113 |
|
%section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\"); |
114 |
|
%section(id=>footer,add_to_toc=>0,content=>\\" |
115 |
|
<a href=\\\\\\"http://www.hyuki.com/yukiwiki/\\\\\\" title=\\\\\\"YukiWiki 2.0.beta1.2002-05-29 © 2000-2002 by Hiroshi Yuki\\\\\\">%res(name=>\\\\\\"About:Name:YukiWiki\\\\\\");</a> |
116 |
|
<a href=\\\\\\"http://digit.que.ne.jp/work/\\\\\\" title=\\\\\\"WalWiki 2.0.beta1.wal.1 © 2000-2002 by Makio Tsukamoto\\\\\\">%res(name=>\\\\\\"About:Name:WalWiki\\\\\\");</a> |
117 |
|
<a href=\\\\\\"http://suika.fam.cx/gate/cvs/wakaba/wiki/\\\\\\" title=\\\\\\"%res(name=>\\\\\\"About:SuikaWiki:JumpToCVS\\\\\\");\\\\\\">%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;</a> |
118 |
|
\\"); |
119 |
|
%apply-user-preferred-style;");%html-end; |
120 |
|
%log-hotness(); |
121 |
|
EOH |
122 |
|
map => {media => {type => 'text/html', charset => 1, expires => 120}, check => sub {1}, |
123 |
|
#xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 120}, |
124 |
|
template => <<EOH}, |
125 |
|
%html-start;%html-head(title=>"%res(name=>\\"Map:WebPageTitle\\");",link_meta=>"$vd{links}"); |
126 |
|
%section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>" |
127 |
|
%section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\"); |
128 |
|
%section(level=>2,id=>\\"link-map\\",title=>\\"Map:Title\\",heading,content=>\\" |
129 |
|
<p>%res(name=>\\\\\\"Map:Description\\\\\\");</p> |
130 |
|
%link-map; |
131 |
|
\\"); |
132 |
|
%section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\"); |
133 |
|
%section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\"); |
134 |
|
%section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\"); |
135 |
|
%section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\"); |
136 |
|
%section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\"); |
137 |
|
%apply-user-preferred-style;");%html-end; |
138 |
|
EOH |
139 |
|
|
140 |
|
edit => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1}, |
141 |
|
#xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60}, |
142 |
|
template => <<EOH}, |
143 |
|
%html-start;%html-head(title=>"%res(name=>\\"Edit:WebPageTitle\\");",link_meta=>"$vd{links} %html-meta(name=>ROBOTS,content=>NOINDEX);"); |
144 |
|
%section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>" |
145 |
|
%section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\"); |
146 |
|
%section(level=>2,id=>edit,title=>\\"Edit:Title\\",heading,content=>\\" |
147 |
|
%edit-form; |
148 |
|
%section(level=>3,id=>edit-help,add_to_toc=>0,content=>\\\\\\"%read(page=>WikiEditHelp);\\\\\\"); |
149 |
|
\\"); |
150 |
|
%section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\"); |
151 |
|
%section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\"); |
152 |
|
%section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\"); |
153 |
|
%section(id=>last-modified,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"LastModified=\\\\\\");%last-modified;\\"); |
154 |
|
%section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\"); |
155 |
|
%section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\"); |
156 |
|
%apply-user-preferred-style;");%html-end; |
157 |
|
EOH |
158 |
|
adminedit => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1}, |
159 |
|
xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60}, |
160 |
|
template => <<EOH}, |
161 |
|
%html-start;%html-head(title=>"%res(name=>\\"Edit:Admin:WebPageTitle\\");",link_meta=>"$vd{links} %html-meta(name=>ROBOTS,content=>NOINDEX);"); |
162 |
|
%section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>" |
163 |
|
%section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\"); |
164 |
|
%section(level=>2,id=>edit,title=>\\"Edit:Title\\",heading,content=>\\"%edit-form(admin);\\"); |
165 |
|
%section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\"); |
166 |
|
%section(id=>last-modified,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"LastModified=\\\\\\");%last-modified;\\"); |
167 |
|
%section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\"); |
168 |
|
%apply-user-preferred-style;");%html-end; |
169 |
|
EOH |
170 |
|
-conflict => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1}, |
171 |
|
#xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60}, |
172 |
|
template => <<EOH}, |
173 |
|
%html-start;%html-head(title=>"%res(name=>\\"Edit:Conflict:WebPageTitle\\");",link_meta=>"$vd{links} %html-meta(name=>ROBOTS,content=>NOINDEX);"); |
174 |
|
%section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>" |
175 |
|
%section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\"); |
176 |
|
%section(level=>2,id=>edit-conflict,title=>\\"Edit:Conflict:Title\\",heading,content=>\\" |
177 |
|
<p>%res(name=>\\\\\\"Edit:Conflict:Description\\\\\\");</p> |
178 |
|
%conflict-form; |
179 |
|
%section(level=>3,id=>edit-conflict-diff,title=>\\\\\\"Edit:Conflict:Diff:Title\\\\\\",heading,content=>\\\\\\" |
180 |
|
<p>%res(name=>\\\\\\\\\\\\\\"Edit:Conflict:Diff:Description\\\\\\\\\\\\\\");</p> |
181 |
|
%conflict-diff; |
182 |
|
\\\\\\"); |
183 |
|
\\"); |
184 |
|
%section(level=>2,id=>edit,title=>\\"Edit:Title\\",heading,content=>\\" |
185 |
|
<p>%res(name=>\\\\\\"Edit:Conflict:Edit:Description\\\\\\");</p> |
186 |
|
%edit-form; |
187 |
|
%section(level=>3,id=>edit-help,add_to_toc=>0,content=>\\\\\\"%read(page=>WikiEditHelp);\\\\\\"); |
188 |
|
\\"); |
189 |
|
%section(level=>2,id=>\\"see-also\\",title=>SeeAlso,heading,content=>\\"%search-result;\\"); |
190 |
|
%section(level=>2,id=>referer,title=>Referer,heading,content=>\\"%referer-list;\\"); |
191 |
|
%section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\"); |
192 |
|
%section(class=>tools,add_to_toc=>0,content=>\\\"$vd{navbar}\\\"); |
193 |
|
%section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\"); |
194 |
|
%apply-user-preferred-style;");%html-end; |
195 |
|
EOH |
196 |
|
-wrote => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1}, |
197 |
|
xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60}, |
198 |
|
template => <<EOH}, |
199 |
|
%html-start;%html-head(title=>"%res(name=>\\"Edit:Wrote:WebPageTitle\\");",link_meta=>"$vd{links} %html-meta(name=>ROBOTS,content=>NOINDEX);"); |
200 |
|
%section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>" |
201 |
|
%section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\"); |
202 |
|
<p>%res(name=>\\"Edit:SavedSuccessfully\\");</p> |
203 |
|
%section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\"); |
204 |
|
%apply-user-preferred-style;");%html-end; |
205 |
|
%log-hotness(weight=>2); |
206 |
|
EOH |
207 |
|
-deleted => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1}, |
208 |
|
xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60}, |
209 |
|
template => <<EOH}, |
210 |
|
%html-start;%html-head(title=>"%res(name=>\\"Edit:Deleted:WebPageTitle\\");",link_meta=>"$vd{links} %html-meta(name=>ROBOTS,content=>NOINDEX);"); |
211 |
|
%section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>" |
212 |
|
%section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\"); |
213 |
|
<p>%res(name=>\\"Edit:PageIsDeletedSuccessfully\\");</p> |
214 |
|
%section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\"); |
215 |
|
%apply-user-preferred-style;");%html-end; |
216 |
|
EOH |
217 |
|
-error => {media => {type => 'text/html', charset => 1, expires => 60}, check => sub {1}, |
218 |
|
xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 60}, |
219 |
|
template => <<EOH}, |
220 |
|
%html-start;%html-head(title=>"%res(name=>\\"Error:WebPageTitle\\");",link_meta=>"$vd{links} %html-meta(name=>ROBOTS,content=>NOINDEX);"); |
221 |
|
%section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>" |
222 |
|
%section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\"); |
223 |
|
%section(level=>2,id=>error,title=>\\"Error:Title\\",heading,content=>\\" |
224 |
|
<p>%error-message;</p> |
225 |
|
\\"); |
226 |
|
%section(level=>2,id=>toc,title=>\\"TOC:Title\\",heading,add_to_toc=>0,content=>\\"%toc(drag);\\"); |
227 |
|
%section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\"); |
228 |
|
%apply-user-preferred-style;");%html-end; |
229 |
|
EOH |
230 |
|
|
231 |
|
css => {media => {type => 'text/css', charset => 1, expires => 3600}, |
232 |
|
check => sub { ref $_[0]->format_converter ($_[0]->{magic} => 'CSS') ? 1 : 0 }, |
233 |
|
template => '%read(to=>CSS);'}, |
234 |
|
image_jpeg => {media => {type => 'image/jpeg', expires => 240*3600}, |
235 |
|
check => sub { ref ($_[0]->format_converter ($_[0]->{magic} => 'image_jpeg')) |
236 |
|
&& $_[0]->{magic} =~ m#image-type="image/jpeg"# ? 1 : 0 }, |
237 |
|
template => '%read(to=>image_jpeg);'}, |
238 |
|
image_png => {media => {type => 'image/png', expires => 240*3600}, |
239 |
|
check => sub { ref ($_[0]->format_converter ($_[0]->{magic} => 'image_png')) |
240 |
|
&& $_[0]->{magic} =~ m#image-type="image/png"# ? 1 : 0 }, |
241 |
|
template => '%read(to=>image_png);'}, |
242 |
|
rss => {media => {type => 'application/rss+xml', charset => 1, expires => 3600}, |
243 |
|
check => sub { ref $_[0]->format_converter ($_[0]->{magic} => 'RSS') ? 1 : 0 }, |
244 |
|
template => '<?xml version="1.0"?>%styles-wiki-xml(page=>"WikiStyleList:RSS");%read(to=>RSS);'}, |
245 |
|
-UnsupportedMediaType => {media => {type => 'text/html', charset => 1, expires => -1}, |
246 |
|
xmedia => {type => 'application/xhtml+xml', charset => 1, expires => -1}, |
247 |
|
check => sub {1}, template => <<EOH}, |
248 |
|
%html-start;%html-head(title=>"%page-name;",link_meta=>"$vd{links}"); |
249 |
|
%section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>" |
250 |
|
%section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\"); |
251 |
|
%section(level=>2,title=>\\"UnsupportedMediaType:Title\\",heading,content=>\\" |
252 |
|
%res(name=>\\\\\\"UnsupportedMediaType:Description\\\\\\"); |
253 |
|
\\"); |
254 |
|
%section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\"); |
255 |
|
%apply-user-preferred-style;");%html-end; |
256 |
|
EOH |
257 |
); |
); |
258 |
|
|
259 |
1; |
|
260 |
|
$ViewDefinition{diff} = {media => {type => 'text/html', charset => 1, expires => 120}, |
261 |
|
#xmedia => {type => 'application/xhtml+xml', charset => 1, expires => 120}, |
262 |
|
template => <<EOH, check => sub {1}} if $wiki::diff::UseDiff; |
263 |
|
%html-start;%html-head(title=>"%res(name=>\\"Diff:WebPageTitle\\");",link_meta=>"$vd{links}"); |
264 |
|
%section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>" |
265 |
|
%section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\"$vd{navbar}\\"); |
266 |
|
%section(level=>2,id=>\\"diff\\",title=>\\"Diff:Title\\",heading,content=>\\" |
267 |
|
<p>%res(name=>\\\\\\"Diff:Notice\\\\\\");</p> |
268 |
|
%diff-between-previous; |
269 |
|
\\"); |
270 |
|
%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}\\\"); |
272 |
|
%section(id=>footer,add_to_toc=>0,content=>\\"%res(name=>\\\\\\"About:Name:SuikaWiki\\\\\\"); %wiki-version;\\"); |
273 |
|
"); |
274 |
|
EOH |
275 |
|
|
276 |
|
$ViewDefinition{WithMenu} = {%{$ViewDefinition{read}}, template => <<EOH}; |
277 |
|
%html-start;%html-head(title=>"%res(name=>\\"View:WebPageTitle\\");",link_meta=>"$vd{links}"); |
278 |
|
%log-hotness; |
279 |
|
%section(level=>1,add_to_toc=>0,type=>body,title=>"%page-name;",heading,content=>" |
280 |
|
<div id=\\\"myuri\\\">%img-favicon(use_page_icon);%uri-wiki();</div> |
281 |
|
%section(id=>tools1,class=>tools,add_to_toc=>0,content=>\\" |
282 |
|
%anchor-wiki(rel=>view,up_to_date,mode=>default,class=>wiki-cmd,label=>\\\\\\"%res(name=>ReloadThisPage);\\\\\\",title=>\\\\\\"%res(name=>ReloadThisPageLong);\\\\\\"); |
283 |
|
$vd{navbar} |
284 |
|
\\"); |
285 |
|
%section(level=>2,id=>side-menu,add_to_toc=>0,content=>\\"%read(page=>WikiMenuBar);\\"); |
286 |
|
%section(id=>content-frame,add_to_toc=>0,content=>\\" |
287 |
|
%section(level=>2,id=>read,add_to_toc=>0,content=>\\\\\\"%read(comment);\\\\\\"); |
288 |
|
%section(level=>2,id=>\\\\\\"see-also\\\\\\",title=>SeeAlso,heading,content=>\\\\\\"%search-result;\\\\\\"); |
289 |
|
%section(level=>2,id=>referer,title=>Referer,heading,content=>\\\\\\"%referer-list;\\\\\\"); |
290 |
|
%section(level=>2,id=>toc,title=>\\\\\\"TOC:Title\\\\\\",heading,add_to_toc=>0,content=>\\\\\\"%toc(drag);\\\\\\"); |
291 |
|
%section(id=>last-modified,add_to_toc=>0,content=>\\\\\\"%res(name=>\\\\\\\\\\\\\\"LastModified=\\\\\\\\\\\\\\");%last-modified;\\\\\\"); |
292 |
|
%section(id=>footer,add_to_toc=>0,content=>\\\\\\" |
293 |
|
<a href=\\\\\\\\\\\\\\"http://www.hyuki.com/yukiwiki/\\\\\\\\\\\\\\" title=\\\\\\\\\\\\\\"YukiWiki 2.0.beta1.2002-05-29 © 2000-2002 by Hiroshi Yuki\\\\\\\\\\\\\\">%res(name=>\\\\\\\\\\\\\\"About:Name:YukiWiki\\\\\\\\\\\\\\");</a> |
294 |
|
<a href=\\\\\\\\\\\\\\"http://digit.que.ne.jp/work/\\\\\\\\\\\\\\" title=\\\\\\\\\\\\\\"WalWiki 2.0.beta1.wal.1 © 2000-2002 by Makio Tsukamoto\\\\\\\\\\\\\\">%res(name=>\\\\\\\\\\\\\\"About:Name:WalWiki\\\\\\\\\\\\\\");</a> |
295 |
|
<a href=\\\\\\\\\\\\\\"http://suika.fam.cx/gate/cvs/wakaba/wiki/\\\\\\\\\\\\\\" title=\\\\\\\\\\\\\\"%res(name=>\\\\\\\\\\\\\\"About:SuikaWiki:JumpToCVS\\\\\\\\\\\\\\");\\\\\\\\\\\\\\">%res(name=>\\\\\\\\\\\\\\"About:Name:SuikaWiki\\\\\\\\\\\\\\"); %wiki-version;</a> |
296 |
|
\\\\\\"); |
297 |
|
\\"); |
298 |
|
%apply-user-preferred-style;");%html-end; |
299 |
|
EOH |
300 |
|
|
301 |
|
$ViewDefinition{mininav} = {%{$ViewDefinition{read}}, template => <<EOH}; |
302 |
|
%html-start;%html-head(title=>"%res(name=>\\"View:WebPageTitle\\");",link_meta=>"$vd{links}"); |
303 |
|
%section(level=>1,add_to_toc=>0,type=>body,content=>" |
304 |
|
%section(level=>2,id=>side-menu,class=>\\"mininav\\",add_to_toc=>0,content=>\\" |
305 |
|
%read; |
306 |
|
%anchor-wiki(rel=>view,mode=>mininav,class=>wiki-cmd,target=>_self,label=>\\\\\\"%res(name=>ReloadThisPage);\\\\\\",title=>\\\\\\"%res(name=>ReloadThisPageLong);\\\\\\"); |
307 |
|
\\"); |
308 |
|
%apply-user-preferred-style;");%html-end; |
309 |
|
EOH |
310 |
|
|
311 |
|
=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$ |