suikawiki/wikidata/suikawiki-config.ph

=head1 NAME

suikawiki-config.ph - SuikaWiki: Configuration for SuikaWiki HTTP CGI Driver

=head1 DESCRIPTION

This is a configuration file for SuikaWiki Driver for HTTP CGI Script
(SWHCS).  Basic options such as WikiDB directory mapping and
special purpose WikiPage names can be customized with this file.

More complex customizing, e.g. modifying navigation bar or
adding new mode, is also possible by config.ph (generated from
config.wp2) and WikiPlugin modules.  For more information,
see <http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki>.

This file is part of SuikaWiki.

=cut

package wiki::driver::http;
use strict;

  ## These lines should be removed after utf8 support
  BEGIN {
    $Message::Util::Formatter::Base::Token = qr/[\w._+\x80-\xFF-]+/;
    require Message::Util::Formatter::Base;
  }
  use Message::Util::Error;

BEGIN {
  if ($main::ENV{REQUEST_URI} =~ /\#/) {
    require SuikaWiki::Output::HTTP;
    my $out = SuikaWiki::Output::HTTP->new;
    $out->{status_code} = 401;
    $out->{status_phrase} = q<Request-URI MUST NOT have Fragment Identifier>;
    $out->{entity}->{media_type} = q<text/html>;
    $out->{entity}->{charset} = q<iso-8859-1>;
    $out->{entity}->{language} = [q<en>];
    $out->{entity}->{body_is_octet_stream} = 1;
    my $ua = $main::ENV{HTTP_USER_AGENT};
    for ($ua) {
      s/&/&amp;/g; s/</&lt;/g; s/([^\x20-\x7E])/sprintf '&#x%02X;', ord $1/ge;
    };
    $out->{entity}->{body} = qq<
      <!DOCTYPE html SYSTEM>
      <title>401 Bad Request-URI</title>
      <h1>Bad Request-URI</h1>
      <p>Your Request-URI has fragment identifier but it is not allowed here.
      It might be a bug of your user agent ($ua).  Please contact to the UA
      vendor.</p>
    >;
    $out->output (output => 'http-cgi');
    exit;
  }
}

push our @Config, sub ($) {
  my $WIKI = shift;
  use Cwd qw(abs_path);
  
  ## -- Filesystem path mapping
  for (
     [db__cache__dir          => q"./wikidata/cache/"],
     [db__cache_struct__file  => q"./wikidata/cache/struct.db"],
     [db__content__dir        => q"./wikidata/page/"],
     [db__content__error_log  => q"./wikidata/log/db-content.log"],
     [db__bdb__home_dir       => q"./wikidata/lock/"],
     [db__bdb__log_dir        => q"./wikidata/log/bdb/"],
     [db__bdb__log_file       => q"./wikidata/log/bdb.log"],
     [db__bdb__temp_dir       => q"./wikidata/lock/"],
     [db__lock__dir           => q"./wikidata/lock/"],
     [db__lock__log_file      => q"./wikidata/log/lock.log"],
     [db__log__dir            => q"./wikidata/log/"],
     [db__temp__dir           => q"./wikidata/lock/"],
     [namazu__index_dir       => q"/var/namazu/index/suikawiki"],
  ) {
    ## On system that does not set current directory as main script
    ## directory, you should specify it instead of using "abs_path".
    $WIKI->{config}->{path_to}->{$_->[0]} = abs_path $_->[1];
  }
  
  ## -- Namazu URI Mapping (See SuikaWiki:SuikaWiki//Namazu) --
  $WIKI->{config}->{nmz__uri_to_uri} = sub {
    my ($nmzuri, %opt) = @_;
    if ($nmzuri =~ s!^\Q$opt{o}->{wiki}->{config}->{path_to}->{db__content__dir}\E/*!!o) {
      $nmzuri =~ s/\.txt$//;
      return $opt{o}->{wiki}->uri_reference
                      (page => $opt{o}->{wiki}->name ([
        map {s/([0-9A-F][0-9A-F])/pack 'C', hex $1/ge; $_}
        split m!\.ns/!, $nmzuri
      ]), base => 1);
    } else {
      $nmzuri =~ s<^/home/wakaba/public_html/([^.]+)><http://suika.fam.cx/~wakaba/$1>;
      return ($nmzuri, $nmzuri);
    }
  };

  ## -- WikiPlugin
  push @{$WIKI->{event}->{plugin_manager_loaded}}, sub {
    my $wiki = shift;
    
    ## Installed plugin modules
    $wiki->{plugin}->load_directory (qw(
      lib/SuikaWiki/Plugin/
      misc/plugins/
      misc/plugins/form/
      misc/plugins/format/
      misc/plugins/link/
      misc/plugins/view/
    ));

    ## Configuration file as pseudo-plugin module
    require 'wikidata/config.ph';
  };

  ## -- WikiDatabase: Mapping logical to physical
  push @{$WIKI->{event}->{database_loaded}}, sub {
      my $wiki = shift;
      
      ## Main content
      $wiki->{db}->_set_prop_db (content => {-db_open => sub {
        require SuikaWiki::DB::FileSystem::LeafFile;
        SuikaWiki::DB::FileSystem::LeafFile->new
          (base_directory => $wiki->{config}->{path_to}->{db__content__dir},
           directory_suffix => '.ns',
           file_suffix    => '.txt',
           root_key => $wiki->{config}->{page}->{Default},
           -lock => $wiki->{var}->{db}->{lock_prop}->('content'));
      }, -db_close => sub {
        my %opt = @_;
        $opt{prop_info}->{-db}->close;
        delete $opt{prop_info}->{-db};
      }});
      
      ## Last modified
      $wiki->{db}->_set_prop_db (lastmodified => {-db_open => sub {
        require SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09;
        SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09->new
          (directory => $wiki->{config}->{path_to}->{db__content__dir},
           -lock => $wiki->{var}->{db}->{lock_prop}->('lastmodified'));
      }, -prop => 'last_modified', -db_close => sub {
        my %opt = @_;
        $opt{prop_info}->{-db}->close;
        delete $opt{prop_info}->{-db};
      }});
      
      ## Cache DBs
      require SuikaWiki::DB::FileSystem::SuikaWikiCache09;
      my $cachedb = SuikaWiki::DB::FileSystem::SuikaWikiCache09->new
            (directory => $wiki->{config}->{path_to}->{db__cache__dir}, 
             expires => 86400 * 3, removes => 86400 * 3); # 3 days
      $wiki->{db}->_set_prop_db (m__search_result =>
        {-db => $cachedb, -prop => 'search_result', -db_close => sub {
          my %opt = @_;
          $opt{prop_info}->{-db}->close;
          delete $opt{prop_info}->{-db};
        }});
      $wiki->{db}->_set_prop_db (wpp__headsummary =>
        {-db => $cachedb, -prop => 'headsummary', -db_close => sub {
          my %opt = @_;
          $opt{prop_info}->{-db}->close;
          delete $opt{prop_info}->{-db};
        }});
      $wiki->{db}->_set_prop_db (ref__item_template =>
        {-db => $cachedb, -prop => 'refereritem', -db_close => sub {
          my %opt = @_;
          $opt{prop_info}->{-db}->close;
          delete $opt{prop_info}->{-db};
        }});

      ## Berkely DB Environment Preparation
      use BerkeleyDB;
      my $bdbenv = new BerkeleyDB::Env
         -Home => $wiki->{config}->{path_to}->{db__bdb__home_dir},
         -Config => {
           DB_DATA_DIR => $wiki->{config}->{path_to}->{db__content__dir},
           DB_LOG_DIR => $wiki->{config}->{path_to}->{db__bdb__log_dir},
           DB_TMP_DIR => $wiki->{config}->{path_to}->{db__bdb__temp_dir},
         },
         -ErrFile => $wiki->{config}->{path_to}->{db__bdb__log_file},
         -Flags => DB_CREATE | DB_INIT_LOCK | DB_INIT_LOG | DB_INIT_MPOOL,
         -Verbose => $wiki->{config}->{debug}->{db};

      $wiki->{db}->_set_prop_db (content__structured => {-db_open => sub {
        require SuikaWiki::DB::Hash;
        new SuikaWiki::DB::Hash constructor => sub {
          use MLDBM qw(BerkeleyDB::Hash);# Storable);
          tie my %mldb, 'MLDBM',
                        -Filename => $wiki->{config}->{path_to}
                                          ->{db__cache_struct__file},
                        -Env => $bdbenv,
                        -Flags => DB_CREATE,
                        -Mode => 0644;
          \%mldb;
       };
      }});
      
      ## Referer Database (See Referer plugin module)
      $wiki->{db}->_set_prop_db (referer => {-db_open => sub {
        require SuikaWiki::DB::FileSystem::Count;
        SuikaWiki::DB::FileSystem::Count->new
          (base_directory => $wiki->{config}->{path_to}->{db__content__dir},
           directory_suffix => '.ns',
           file_suffix    => '.ref',
           root_key => $wiki->{config}->{page}->{Default},
           auto_mkdir => 0,
           -lock => $wiki->{var}->{db}->{lock_prop}->('referer'));
      }, -db_close => sub {
        my %opt = @_;
        $opt{prop_info}->{-db}->close;
        delete $opt{prop_info}->{-db};
      }});

      ## HTTP Request Logging Database (See RequestLog plugin module)
      $wiki->{db}->_set_prop_db (log__http_request => {-db_open => sub {
        require SuikaWiki::DB::Hash;
        new SuikaWiki::DB::Hash constructor => sub {
          tie my %db, 'BerkeleyDB::Hash',
                        -Filename => 'http-request-log.db',
                        -Env => $bdbenv,
                        -Flags => DB_CREATE,
                        -Mode => 0644;
          \%db;
       };
      }});
      
      ## Additional WikiDB properties should be defined here
      # ...    
  };

  push @{$WIKI->{event}->{input_close}}, sub {
    my ($wiki, $event) = @_;
    try {
      SuikaWiki::Plugin->module_package ('Referer')
                     ->add_referer (wiki => $wiki,
                                    uri => $wiki->{input}->meta_variable
                                             ('HTTP_REFERER'));
    } catch SuikaWiki::Plugin::error with {
      my $err = shift;
      $err->raise unless $err->{-type} eq 'PLUGIN_NOT_FOUND';
    };
    try {
      SuikaWiki::Plugin->module_package ('RequestLog')
                     ->http_request_log (wiki => $wiki,
                                         prop => 'log__http_request');
    } catch SuikaWiki::Plugin::error with {
      my $err = shift;
      $err->raise unless $err->{-type} eq 'PLUGIN_NOT_FOUND';
    };
  };

  ## -- WikiName of special purpose WikiPages
  $WIKI->{config}->{page} = {
    Default         => $WIKI->name ([qw/HomePage/]),
    InterWikiName   => $WIKI->name ([qw/Wiki InterWikiName/]),
    NewPageTemplate => $WIKI->name ([qw/Wiki NewPageTemplate/]),
    'StyleSheetList(text/html)' => $WIKI->name ([qw<Wiki Style List text/html>]),
  };
  
  ## -- WikiNamespace constants
  $WIKI->{config}->{name}->{space} = {
    separator => '//',
    separator_reg => qr#\s*//\s*#,
    self => '.',
    parent => '..',
    root => '//',
  };
  
  ## -- Default character codes
  $WIKI->{config}->{charset} = {
    ## Internal code - MUST be ASCII + 8bit coding scheme
      internal => 'euc-jp',
    ## Default output code
      output => 'iso-2022-jp',
    ## "query" part in URI reference
      uri_query => '', # auto-detected
      uri_query_encode => 'euc-jp',     ## For compatibility w/ SuikaWiki 2
      uri_param => '', # auto-detected
      uri_param_encode => 'euc-jp',     ## For compatibility w/ SuikaWiki 2
    ## PATH_INFO part in URI reference
      uri_path_info => 'x-utf-8-10646', ## Reserved for future use
    ## Fragment identifier in URI reference
      uri_fragment => 'x-punycode',     ## Reserved for possible future use
  };
  
  ## -- Expires duration templates
  $WIKI->{config}->{entity}->{expires} = {
    edit      => {delta => 60},
    view      => {delta => 2*3600},
    list      => {delta => 60},
    lm_flaged => {delta => 30*24*3600},
    stylesheet => {delta => 30*24*3600},
    error     => {delta => 60},
  };

  ## -- Debug mode
  $WIKI->{config}->{debug} = {
    general => 0,
    db => 0,
    format => 0,
    view => 0,
  };

};

=head1 SEE ALSO

C<lib/suikawiki.pl>, C<wiki.cgi>,
<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki>,
<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SWHCS>

=head1 LICENSE

Copyright 2003-2004 Wakaba <w@suika.fam.cx>.  All rights reserved.

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

1; # $Date: 2004/04/01 04:53:58 $
1	=head1 NAME
2
3	suikawiki-config.ph - SuikaWiki: Configuration for SuikaWiki HTTP CGI Driver
4
5	=head1 DESCRIPTION
6
7	This is a configuration file for SuikaWiki Driver for HTTP CGI Script
8	(SWHCS). Basic options such as WikiDB directory mapping and
9	special purpose WikiPage names can be customized with this file.
10
11	More complex customizing, e.g. modifying navigation bar or
12	adding new mode, is also possible by config.ph (generated from
13	config.wp2) and WikiPlugin modules. For more information,
14	see <http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki>.
15
16	This file is part of SuikaWiki.
17
18	=cut
19
20	package wiki::driver::http;
21	use strict;
22
23	## These lines should be removed after utf8 support
24	BEGIN {
25	$Message::Util::Formatter::Base::Token = qr/[\w._+\x80-\xFF-]+/;
26	require Message::Util::Formatter::Base;
27	}
28	use Message::Util::Error;
29
30	BEGIN {
31	if ($main::ENV{REQUEST_URI} =~ /\#/) {
32	require SuikaWiki::Output::HTTP;
33	my $out = SuikaWiki::Output::HTTP->new;
34	$out->{status_code} = 401;
35	$out->{status_phrase} = q<Request-URI MUST NOT have Fragment Identifier>;
36	$out->{entity}->{media_type} = q<text/html>;
37	$out->{entity}->{charset} = q<iso-8859-1>;
38	$out->{entity}->{language} = [q<en>];
39	$out->{entity}->{body_is_octet_stream} = 1;
40	my $ua = $main::ENV{HTTP_USER_AGENT};
41	for ($ua) {
42	s/&/&/g; s/</</g; s/([^\x20-\x7E])/sprintf '&#x%02X;', ord $1/ge;
43	};
44	$out->{entity}->{body} = qq<
45	<!DOCTYPE html SYSTEM>
46	<title>401 Bad Request-URI</title>
47	<h1>Bad Request-URI</h1>
48	<p>Your Request-URI has fragment identifier but it is not allowed here.
49	It might be a bug of your user agent ($ua). Please contact to the UA
50	vendor.</p>
51	>;
52	$out->output (output => 'http-cgi');
53	exit;
54	}
55	}
56
57	push our @Config, sub ($) {
58	my $WIKI = shift;
59	use Cwd qw(abs_path);
60
61	## -- Filesystem path mapping
62	for (
63	[db__cache__dir => q"./wikidata/cache/"],
64	[db__cache_struct__file => q"./wikidata/cache/struct.db"],
65	[db__content__dir => q"./wikidata/page/"],
66	[db__content__error_log => q"./wikidata/log/db-content.log"],
67	[db__bdb__home_dir => q"./wikidata/lock/"],
68	[db__bdb__log_dir => q"./wikidata/log/bdb/"],
69	[db__bdb__log_file => q"./wikidata/log/bdb.log"],
70	[db__bdb__temp_dir => q"./wikidata/lock/"],
71	[db__lock__dir => q"./wikidata/lock/"],
72	[db__lock__log_file => q"./wikidata/log/lock.log"],
73	[db__log__dir => q"./wikidata/log/"],
74	[db__temp__dir => q"./wikidata/lock/"],
75	[namazu__index_dir => q"/var/namazu/index/suikawiki"],
76	) {
77	## On system that does not set current directory as main script
78	## directory, you should specify it instead of using "abs_path".
79	$WIKI->{config}->{path_to}->{$_->[0]} = abs_path $_->[1];
80	}
81
82	## -- Namazu URI Mapping (See SuikaWiki:SuikaWiki//Namazu) --
83	$WIKI->{config}->{nmz__uri_to_uri} = sub {
84	my ($nmzuri, %opt) = @_;
85	if ($nmzuri =~ s!^\Q$opt{o}->{wiki}->{config}->{path_to}->{db__content__dir}\E/*!!o) {
86	$nmzuri =~ s/\.txt$//;
87	return $opt{o}->{wiki}->uri_reference
88	(page => $opt{o}->{wiki}->name ([
89	map {s/([0-9A-F][0-9A-F])/pack 'C', hex $1/ge; $_}
90	split m!\.ns/!, $nmzuri
91	]), base => 1);
92	} else {
93	$nmzuri =~ s<^/home/wakaba/public_html/([^.]+)><http://suika.fam.cx/~wakaba/$1>;
94	return ($nmzuri, $nmzuri);
95	}
96	};
97
98	## -- WikiPlugin
99	push @{$WIKI->{event}->{plugin_manager_loaded}}, sub {
100	my $wiki = shift;
101
102	## Installed plugin modules
103	$wiki->{plugin}->load_directory (qw(
104	lib/SuikaWiki/Plugin/
105	misc/plugins/
106	misc/plugins/form/
107	misc/plugins/format/
108	misc/plugins/link/
109	misc/plugins/view/
110	));
111
112	## Configuration file as pseudo-plugin module
113	require 'wikidata/config.ph';
114	};
115
116	## -- WikiDatabase: Mapping logical to physical
117	push @{$WIKI->{event}->{database_loaded}}, sub {
118	my $wiki = shift;
119
120	## Main content
121	$wiki->{db}->_set_prop_db (content => {-db_open => sub {
122	require SuikaWiki::DB::FileSystem::LeafFile;
123	SuikaWiki::DB::FileSystem::LeafFile->new
124	(base_directory => $wiki->{config}->{path_to}->{db__content__dir},
125	directory_suffix => '.ns',
126	file_suffix => '.txt',
127	root_key => $wiki->{config}->{page}->{Default},
128	-lock => $wiki->{var}->{db}->{lock_prop}->('content'));
129	}, -db_close => sub {
130	my %opt = @_;
131	$opt{prop_info}->{-db}->close;
132	delete $opt{prop_info}->{-db};
133	}});
134
135	## Last modified
136	$wiki->{db}->_set_prop_db (lastmodified => {-db_open => sub {
137	require SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09;
138	SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09->new
139	(directory => $wiki->{config}->{path_to}->{db__content__dir},
140	-lock => $wiki->{var}->{db}->{lock_prop}->('lastmodified'));
141	}, -prop => 'last_modified', -db_close => sub {
142	my %opt = @_;
143	$opt{prop_info}->{-db}->close;
144	delete $opt{prop_info}->{-db};
145	}});
146
147	## Cache DBs
148	require SuikaWiki::DB::FileSystem::SuikaWikiCache09;
149	my $cachedb = SuikaWiki::DB::FileSystem::SuikaWikiCache09->new
150	(directory => $wiki->{config}->{path_to}->{db__cache__dir},
151	expires => 86400 * 3, removes => 86400 * 3); # 3 days
152	$wiki->{db}->_set_prop_db (m__search_result =>
153	{-db => $cachedb, -prop => 'search_result', -db_close => sub {
154	my %opt = @_;
155	$opt{prop_info}->{-db}->close;
156	delete $opt{prop_info}->{-db};
157	}});
158	$wiki->{db}->_set_prop_db (wpp__headsummary =>
159	{-db => $cachedb, -prop => 'headsummary', -db_close => sub {
160	my %opt = @_;
161	$opt{prop_info}->{-db}->close;
162	delete $opt{prop_info}->{-db};
163	}});
164	$wiki->{db}->_set_prop_db (ref__item_template =>
165	{-db => $cachedb, -prop => 'refereritem', -db_close => sub {
166	my %opt = @_;
167	$opt{prop_info}->{-db}->close;
168	delete $opt{prop_info}->{-db};
169	}});
170
171	## Berkely DB Environment Preparation
172	use BerkeleyDB;
173	my $bdbenv = new BerkeleyDB::Env
174	-Home => $wiki->{config}->{path_to}->{db__bdb__home_dir},
175	-Config => {
176	DB_DATA_DIR => $wiki->{config}->{path_to}->{db__content__dir},
177	DB_LOG_DIR => $wiki->{config}->{path_to}->{db__bdb__log_dir},
178	DB_TMP_DIR => $wiki->{config}->{path_to}->{db__bdb__temp_dir},
179	},
180	-ErrFile => $wiki->{config}->{path_to}->{db__bdb__log_file},
181	-Flags => DB_CREATE \| DB_INIT_LOCK \| DB_INIT_LOG \| DB_INIT_MPOOL,
182	-Verbose => $wiki->{config}->{debug}->{db};
183
184	$wiki->{db}->_set_prop_db (content__structured => {-db_open => sub {
185	require SuikaWiki::DB::Hash;
186	new SuikaWiki::DB::Hash constructor => sub {
187	use MLDBM qw(BerkeleyDB::Hash);# Storable);
188	tie my %mldb, 'MLDBM',
189	-Filename => $wiki->{config}->{path_to}
190	->{db__cache_struct__file},
191	-Env => $bdbenv,
192	-Flags => DB_CREATE,
193	-Mode => 0644;
194	\%mldb;
195	};
196	}});
197
198	## Referer Database (See Referer plugin module)
199	$wiki->{db}->_set_prop_db (referer => {-db_open => sub {
200	require SuikaWiki::DB::FileSystem::Count;
201	SuikaWiki::DB::FileSystem::Count->new
202	(base_directory => $wiki->{config}->{path_to}->{db__content__dir},
203	directory_suffix => '.ns',
204	file_suffix => '.ref',
205	root_key => $wiki->{config}->{page}->{Default},
206	auto_mkdir => 0,
207	-lock => $wiki->{var}->{db}->{lock_prop}->('referer'));
208	}, -db_close => sub {
209	my %opt = @_;
210	$opt{prop_info}->{-db}->close;
211	delete $opt{prop_info}->{-db};
212	}});
213
214	## HTTP Request Logging Database (See RequestLog plugin module)
215	$wiki->{db}->_set_prop_db (log__http_request => {-db_open => sub {
216	require SuikaWiki::DB::Hash;
217	new SuikaWiki::DB::Hash constructor => sub {
218	tie my %db, 'BerkeleyDB::Hash',
219	-Filename => 'http-request-log.db',
220	-Env => $bdbenv,
221	-Flags => DB_CREATE,
222	-Mode => 0644;
223	\%db;
224	};
225	}});
226
227	## Additional WikiDB properties should be defined here
228	# ...
229	};
230
231	push @{$WIKI->{event}->{input_close}}, sub {
232	my ($wiki, $event) = @_;
233	try {
234	SuikaWiki::Plugin->module_package ('Referer')
235	->add_referer (wiki => $wiki,
236	uri => $wiki->{input}->meta_variable
237	('HTTP_REFERER'));
238	} catch SuikaWiki::Plugin::error with {
239	my $err = shift;
240	$err->raise unless $err->{-type} eq 'PLUGIN_NOT_FOUND';
241	};
242	try {
243	SuikaWiki::Plugin->module_package ('RequestLog')
244	->http_request_log (wiki => $wiki,
245	prop => 'log__http_request');
246	} catch SuikaWiki::Plugin::error with {
247	my $err = shift;
248	$err->raise unless $err->{-type} eq 'PLUGIN_NOT_FOUND';
249	};
250	};
251
252	## -- WikiName of special purpose WikiPages
253	$WIKI->{config}->{page} = {
254	Default => $WIKI->name ([qw/HomePage/]),
255	InterWikiName => $WIKI->name ([qw/Wiki InterWikiName/]),
256	NewPageTemplate => $WIKI->name ([qw/Wiki NewPageTemplate/]),
257	'StyleSheetList(text/html)' => $WIKI->name ([qw<Wiki Style List text/html>]),
258	};
259
260	## -- WikiNamespace constants
261	$WIKI->{config}->{name}->{space} = {
262	separator => '//',
263	separator_reg => qr#\s//\s#,
264	self => '.',
265	parent => '..',
266	root => '//',
267	};
268
269	## -- Default character codes
270	$WIKI->{config}->{charset} = {
271	## Internal code - MUST be ASCII + 8bit coding scheme
272	internal => 'euc-jp',
273	## Default output code
274	output => 'iso-2022-jp',
275	## "query" part in URI reference
276	uri_query => '', # auto-detected
277	uri_query_encode => 'euc-jp', ## For compatibility w/ SuikaWiki 2
278	uri_param => '', # auto-detected
279	uri_param_encode => 'euc-jp', ## For compatibility w/ SuikaWiki 2
280	## PATH_INFO part in URI reference
281	uri_path_info => 'x-utf-8-10646', ## Reserved for future use
282	## Fragment identifier in URI reference
283	uri_fragment => 'x-punycode', ## Reserved for possible future use
284	};
285
286	## -- Expires duration templates
287	$WIKI->{config}->{entity}->{expires} = {
288	edit => {delta => 60},
289	view => {delta => 2*3600},
290	list => {delta => 60},
291	lm_flaged => {delta => 30243600},
292	stylesheet => {delta => 30243600},
293	error => {delta => 60},
294	};
295
296	## -- Debug mode
297	$WIKI->{config}->{debug} = {
298	general => 0,
299	db => 0,
300	format => 0,
301	view => 0,
302	};
303
304	};
305
306	=head1 SEE ALSO
307
308	C<lib/suikawiki.pl>, C<wiki.cgi>,
309	<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki>,
310	<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SWHCS>
311
312	=head1 LICENSE
313
314	Copyright 2003-2004 Wakaba <w@suika.fam.cx>. All rights reserved.
315
316	This program is free software; you can redistribute it and/or
317	modify it under the same terms as Perl itself.
318
319	=cut
320
321	1; # $Date: 2004/04/01 04:53:58 $