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;

use Message::Util::QName::General [q<ExpandedURI>], {
  'bt' => q<http://suika.fam.cx/~wakaba/archive/2004/8/11/sw-bt#>,
  'log' => q<http://suika.fam.cx/~wakaba/-temp/2004/05/01/reqlog#>,
  'media-type' => q<http://suika.fam.cx/~wakaba/-temp/2004/04/24/mt#>,
  'pe' => q<http://suika.fam.cx/~wakaba/archive/2004/7/20/sw-propedit#>,
  'relrev' => q<http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev#>,
  'ss' => q<http://suika.fam.cx/~wakaba/archive/2004/05/sw-stylesheet#>,
  'sw' => q<http://suika.fam.cx/~wakaba/archive/2004/7/20/sw#>,
  'sw09' => q<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki%2F0.9#>,
};

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 FindBin q($Bin);
  use File::Spec;
  
  ## -- 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__request_log__dir    => q"./wikidata/rlog/"],
     [db__static__dir         => q"./wikidata/static/"],
     [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]} = File::Spec->rel2abs ($_->[1], $Bin);
  }
  
  ## -- 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};
      }});

      ## Properties
      $wiki->{db}->_set_prop_db (content_prop => {-db_open => sub {
        require SuikaWiki::DB::FileSystem::LeafProp;
        SuikaWiki::DB::FileSystem::LeafProp->new
          (base_directory => $wiki->{config}->{path_to}->{db__content__dir},
           directory_suffix => '.ns',
           file_suffix    => '.prop',
           root_key => $wiki->{config}->{page}->{Default},
           -lock => $wiki->{var}->{db}->{lock_prop}->('content_prop'));
      }, -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};
      }});
      
      ## Static version
      $wiki->{db}->_set_prop_db (static__css => {-db_open => sub {
        require SuikaWiki::DB::FileSystem::LeafFileP;
        SuikaWiki::DB::FileSystem::LeafFileP->new
          (base_directory => $wiki->{config}->{path_to}->{db__static__dir},
           directory_suffix => '.ns',
           file_suffix    => '.css',
           root_key => $wiki->{config}->{page}->{Default});
      }, -db_close => sub {
        my %opt = @_;
        $opt{prop_info}->{-db}->close;
        delete $opt{prop_info}->{-db};
      }});
      $wiki->{config}->{ExpandedURI q<ss:use-static>} = 1;
      ## URI maker for LeafFileP generated files
      $wiki->{config}->{ExpandedURI q<ss:wikiname-to-uri>} = sub {
        my (undef, %opt) = @_;
        my $page = join '.ns/',
                   map {s/([^0-9A-Za-z_-])/sprintf '+%02X', ord $1/ge;$_}
                   @{$opt{wikiname}};
        return URI->new ('wikidata/static/' . $page . '.css' .
                         ($opt{lm} ? '?x-lm=' . $opt{lm} : ''));
      };
      ## Reverse mapping of generate-uri
      $wiki->{config}->{ExpandedURI q<ss:uri-to-wikiname>} = sub {
        my (undef, %opt) = @_;
        $opt{uri} =~ s!^.+/wikidata/static/!!g;
        $opt{uri} =~ s/\?[^?]*$//g;
        $opt{uri} =~ s/\.css$//g;
        return $opt{wiki}->name
          ([map {s/\+([0-9A-Fa-f_-][0-9A-Fa-f_-])/pack 'CC', hex $1/ge;$_}
            split m!.ns/!, $opt{uri}]);
      };


      ## 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::FileSystem::Count;
        SuikaWiki::DB::FileSystem::Count->new
          (base_directory => $wiki->{config}->{path_to}->{db__request_log__dir},
           directory_suffix => '.ns',
           file_suffix    => '.rlog',
           root_key => $wiki->{config}->{page}->{Default},
           auto_mkdir => 1);
      }, -db_close => sub {
        my %opt = @_;
        $opt{prop_info}->{-db}->close;
        delete $opt{prop_info}->{-db};
      }});
      
      ## Additional WikiDB properties should be defined here
      # ...    
  };

  push @{$WIKI->{event}->{input_close}}, sub {
    my ($wiki, $event) = @_;
    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';
    };
  };

  $WIKI->{config}->{engine_max_access} = 15;

  ## -- 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>]),
    ExpandedURI q<log:root> => $WIKI->name ([]),
  };
  
  ## -- 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
  };

  ## -- User option for media types
  $WIKI->{config}->{ExpandedURI q<media-type:accept-media-type>} = {
    q<IMT:text/css##> => 1,
    q<IMT:text/plain##> => 1,
    q<IMT:text/x-suikawiki;version="0.9"##> => 1,
    q<IMT:text/x-suikawiki;version="0.10"##> => 1,
    q<IMT:text/x.suikawiki.image;version="0.9"##> => 1,
    q<IMT:application/x.suikawiki.config;version="2.0"##> => 1,
  };
  
  ## -- 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},
  };

  ## -- User-editable content properties
  $WIKI->{config}->{ExpandedURI q<pe:prop>} = {
    'abstract' => {uri => ExpandedURI q<sw:abstract>,
                   ExpandedURI q<media-type:media-type-prop>
                       => ExpandedURI q<sw:abstract--type>},
    'abstract--type' => {uri => ExpandedURI q<sw:abstract--type>,
                         type => ExpandedURI q<media-type:media-type>,
                         depend => [qw/abstract/]},
    'category' => {uri => ExpandedURI q<sw:category>, is_list => 1,
                   type => ExpandedURI q<sw:WikiName>,
                   ExpandedURI q<pe:revWNList> => ExpandedURI q<pe:inCategory>},
    'keyword' => {uri => ExpandedURI q<sw:keyword>, is_list => 1},
    'license' => {uri => ExpandedURI q<sw:license>,
                  ExpandedURI q<media-type:media-type-prop>
                      => ExpandedURI q<sw:license--type>},
    'license--type' => {uri => ExpandedURI q<sw:license--type>,
                         type => ExpandedURI q<media-type:media-type>,
                         depend => [qw/license/]},
    'obsolete' => {uri => ExpandedURI q<sw:obsolete>, is_list => 1,
                   type => ExpandedURI q<sw:WikiName>},
    'rel-contents' => {uri => ExpandedURI q<relrev:contents>, is_list => 1,
                       type => ExpandedURI q<sw:WikiName>},
    'rel-index' => {uri => ExpandedURI q<relrev:index>, is_list => 1,
                    type => ExpandedURI q<sw:WikiName>},
    'rel-next' => {uri => ExpandedURI q<relrev:next>, is_list => 1,
                   type => ExpandedURI q<sw:WikiName>,
                   ExpandedURI q<pe:revWNList> => ExpandedURI q<relrev:prev>},
    'rel-prev' => {uri => ExpandedURI q<relrev:prev>, is_list => 1,
                   type => ExpandedURI q<sw:WikiName>,
                   ExpandedURI q<pe:revWNList> => ExpandedURI q<relrev:next>},
    'rel-up' => {uri => ExpandedURI q<relrev:up>, is_list => 1,
                 type => ExpandedURI q<sw:WikiName>,
                 ExpandedURI q<pe:revWNList> => ExpandedURI q<relrev:down>},

  ## For BugTrack plugin
    'bt--status' => {uri => ExpandedURI q<bt:status>},
    'bt--priority' => {uri => ExpandedURI q<bt:priority>},
    'bt--category' => {uri => ExpandedURI q<bt:category>, is_list => 1},
    'bt--subject' => {uri => ExpandedURI q<bt:subject>},
  };

  ## -- 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/09/21 03:18:49 $
1	wakaba	1.13	=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	w	1.1	use strict;
22	wakaba	1.6
23	wakaba	1.13	## 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	wakaba	1.6	}
28	wakaba	1.13	use Message::Util::Error;
29	wakaba	1.6
30	wakaba	1.15	use Message::Util::QName::General [q<ExpandedURI>], {
31	wakaba	1.22	'bt' => q<http://suika.fam.cx/~wakaba/archive/2004/8/11/sw-bt#>,
32	wakaba	1.16	'log' => q<http://suika.fam.cx/~wakaba/-temp/2004/05/01/reqlog#>,
33	wakaba	1.15	'media-type' => q<http://suika.fam.cx/~wakaba/-temp/2004/04/24/mt#>,
34	wakaba	1.19	'pe' => q<http://suika.fam.cx/~wakaba/archive/2004/7/20/sw-propedit#>,
35			'relrev' => q<http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev#>,
36	wakaba	1.18	'ss' => q<http://suika.fam.cx/~wakaba/archive/2004/05/sw-stylesheet#>,
37	wakaba	1.19	'sw' => q<http://suika.fam.cx/~wakaba/archive/2004/7/20/sw#>,
38			'sw09' => q<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki%2F0.9#>,
39	wakaba	1.15	};
40
41	wakaba	1.14	BEGIN {
42			if ($main::ENV{REQUEST_URI} =~ /\#/) {
43			require SuikaWiki::Output::HTTP;
44			my $out = SuikaWiki::Output::HTTP->new;
45			$out->{status_code} = 401;
46			$out->{status_phrase} = q<Request-URI MUST NOT have Fragment Identifier>;
47			$out->{entity}->{media_type} = q<text/html>;
48			$out->{entity}->{charset} = q<iso-8859-1>;
49			$out->{entity}->{language} = [q<en>];
50			$out->{entity}->{body_is_octet_stream} = 1;
51			my $ua = $main::ENV{HTTP_USER_AGENT};
52			for ($ua) {
53			s/&/&/g; s/</</g; s/([^\x20-\x7E])/sprintf '&#x%02X;', ord $1/ge;
54			};
55			$out->{entity}->{body} = qq<
56			<!DOCTYPE html SYSTEM>
57			<title>401 Bad Request-URI</title>
58			<h1>Bad Request-URI</h1>
59			<p>Your Request-URI has fragment identifier but it is not allowed here.
60			It might be a bug of your user agent ($ua). Please contact to the UA
61			vendor.</p>
62			>;
63			$out->output (output => 'http-cgi');
64			exit;
65			}
66			}
67
68	wakaba	1.13	push our @Config, sub ($) {
69			my $WIKI = shift;
70	wakaba	1.16	use FindBin q($Bin);
71			use File::Spec;
72	wakaba	1.13
73			## -- Filesystem path mapping
74			for (
75	wakaba	1.14	[db__cache__dir => q"./wikidata/cache/"],
76			[db__cache_struct__file => q"./wikidata/cache/struct.db"],
77	wakaba	1.13	[db__content__dir => q"./wikidata/page/"],
78			[db__content__error_log => q"./wikidata/log/db-content.log"],
79			[db__bdb__home_dir => q"./wikidata/lock/"],
80			[db__bdb__log_dir => q"./wikidata/log/bdb/"],
81			[db__bdb__log_file => q"./wikidata/log/bdb.log"],
82			[db__bdb__temp_dir => q"./wikidata/lock/"],
83			[db__lock__dir => q"./wikidata/lock/"],
84			[db__lock__log_file => q"./wikidata/log/lock.log"],
85			[db__log__dir => q"./wikidata/log/"],
86	wakaba	1.16	[db__request_log__dir => q"./wikidata/rlog/"],
87	wakaba	1.18	[db__static__dir => q"./wikidata/static/"],
88	wakaba	1.13	[db__temp__dir => q"./wikidata/lock/"],
89			[namazu__index_dir => q"/var/namazu/index/suikawiki"],
90			) {
91			## On system that does not set current directory as main script
92			## directory, you should specify it instead of using "abs_path".
93	wakaba	1.17	$WIKI->{config}->{path_to}->{$_->[0]} = File::Spec->rel2abs ($_->[1], $Bin);
94	wakaba	1.13	}
95
96			## -- Namazu URI Mapping (See SuikaWiki:SuikaWiki//Namazu) --
97			$WIKI->{config}->{nmz__uri_to_uri} = sub {
98			my ($nmzuri, %opt) = @_;
99			if ($nmzuri =~ s!^\Q$opt{o}->{wiki}->{config}->{path_to}->{db__content__dir}\E/*!!o) {
100			$nmzuri =~ s/\.txt$//;
101			return $opt{o}->{wiki}->uri_reference
102			(page => $opt{o}->{wiki}->name ([
103			map {s/([0-9A-F][0-9A-F])/pack 'C', hex $1/ge; $_}
104			split m!\.ns/!, $nmzuri
105			]), base => 1);
106			} else {
107			$nmzuri =~ s<^/home/wakaba/public_html/([^.]+)><http://suika.fam.cx/~wakaba/$1>;
108			return ($nmzuri, $nmzuri);
109			}
110			};
111
112			## -- WikiPlugin
113			push @{$WIKI->{event}->{plugin_manager_loaded}}, sub {
114			my $wiki = shift;
115
116			## Installed plugin modules
117			$wiki->{plugin}->load_directory (qw(
118			lib/SuikaWiki/Plugin/
119			misc/plugins/
120			misc/plugins/form/
121			misc/plugins/format/
122			misc/plugins/link/
123			misc/plugins/view/
124			));
125
126			## Configuration file as pseudo-plugin module
127			require 'wikidata/config.ph';
128			};
129
130			## -- WikiDatabase: Mapping logical to physical
131			push @{$WIKI->{event}->{database_loaded}}, sub {
132			my $wiki = shift;
133
134			## Main content
135			$wiki->{db}->_set_prop_db (content => {-db_open => sub {
136	wakaba	1.14	require SuikaWiki::DB::FileSystem::LeafFile;
137			SuikaWiki::DB::FileSystem::LeafFile->new
138			(base_directory => $wiki->{config}->{path_to}->{db__content__dir},
139			directory_suffix => '.ns',
140			file_suffix => '.txt',
141			root_key => $wiki->{config}->{page}->{Default},
142	wakaba	1.19	-lock => $wiki->{var}->{db}->{lock_prop}->('content'));
143	wakaba	1.15	}, -db_close => sub {
144			my %opt = @_;
145			$opt{prop_info}->{-db}->close;
146			delete $opt{prop_info}->{-db};
147			}});
148
149			## Properties
150			$wiki->{db}->_set_prop_db (content_prop => {-db_open => sub {
151			require SuikaWiki::DB::FileSystem::LeafProp;
152			SuikaWiki::DB::FileSystem::LeafProp->new
153			(base_directory => $wiki->{config}->{path_to}->{db__content__dir},
154			directory_suffix => '.ns',
155			file_suffix => '.prop',
156			root_key => $wiki->{config}->{page}->{Default},
157	wakaba	1.19	-lock => $wiki->{var}->{db}->{lock_prop}->('content_prop'));
158	wakaba	1.13	}, -db_close => sub {
159			my %opt = @_;
160			$opt{prop_info}->{-db}->close;
161			delete $opt{prop_info}->{-db};
162			}});
163
164			## Last modified
165			$wiki->{db}->_set_prop_db (lastmodified => {-db_open => sub {
166			require SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09;
167			SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09->new
168			(directory => $wiki->{config}->{path_to}->{db__content__dir},
169			-lock => $wiki->{var}->{db}->{lock_prop}->('lastmodified'));
170			}, -prop => 'last_modified', -db_close => sub {
171			my %opt = @_;
172			$opt{prop_info}->{-db}->close;
173			delete $opt{prop_info}->{-db};
174			}});
175
176	wakaba	1.18	## Static version
177			$wiki->{db}->_set_prop_db (static__css => {-db_open => sub {
178			require SuikaWiki::DB::FileSystem::LeafFileP;
179			SuikaWiki::DB::FileSystem::LeafFileP->new
180			(base_directory => $wiki->{config}->{path_to}->{db__static__dir},
181			directory_suffix => '.ns',
182			file_suffix => '.css',
183			root_key => $wiki->{config}->{page}->{Default});
184			}, -db_close => sub {
185			my %opt = @_;
186			$opt{prop_info}->{-db}->close;
187			delete $opt{prop_info}->{-db};
188			}});
189			$wiki->{config}->{ExpandedURI q<ss:use-static>} = 1;
190			## URI maker for LeafFileP generated files
191			$wiki->{config}->{ExpandedURI q<ss:wikiname-to-uri>} = sub {
192			my (undef, %opt) = @_;
193			my $page = join '.ns/',
194			map {s/([^0-9A-Za-z_-])/sprintf '+%02X', ord $1/ge;$_}
195			@{$opt{wikiname}};
196	wakaba	1.22	return URI->new ('wikidata/static/' . $page . '.css' .
197			($opt{lm} ? '?x-lm=' . $opt{lm} : ''));
198	wakaba	1.18	};
199			## Reverse mapping of generate-uri
200			$wiki->{config}->{ExpandedURI q<ss:uri-to-wikiname>} = sub {
201			my (undef, %opt) = @_;
202			$opt{uri} =~ s!^.+/wikidata/static/!!g;
203			$opt{uri} =~ s/\?[^?]*$//g;
204			$opt{uri} =~ s/\.css$//g;
205			return $opt{wiki}->name
206			([map {s/\+([0-9A-Fa-f_-][0-9A-Fa-f_-])/pack 'CC', hex $1/ge;$_}
207			split m!.ns/!, $opt{uri}]);
208			};
209
210
211	wakaba	1.13	## Cache DBs
212			require SuikaWiki::DB::FileSystem::SuikaWikiCache09;
213			my $cachedb = SuikaWiki::DB::FileSystem::SuikaWikiCache09->new
214			(directory => $wiki->{config}->{path_to}->{db__cache__dir},
215			expires => 86400 * 3, removes => 86400 * 3); # 3 days
216			$wiki->{db}->_set_prop_db (m__search_result =>
217			{-db => $cachedb, -prop => 'search_result', -db_close => sub {
218			my %opt = @_;
219			$opt{prop_info}->{-db}->close;
220			delete $opt{prop_info}->{-db};
221			}});
222			$wiki->{db}->_set_prop_db (wpp__headsummary =>
223			{-db => $cachedb, -prop => 'headsummary', -db_close => sub {
224			my %opt = @_;
225			$opt{prop_info}->{-db}->close;
226			delete $opt{prop_info}->{-db};
227			}});
228			$wiki->{db}->_set_prop_db (ref__item_template =>
229			{-db => $cachedb, -prop => 'refereritem', -db_close => sub {
230			my %opt = @_;
231			$opt{prop_info}->{-db}->close;
232			delete $opt{prop_info}->{-db};
233			}});
234
235			## Berkely DB Environment Preparation
236			use BerkeleyDB;
237			my $bdbenv = new BerkeleyDB::Env
238			-Home => $wiki->{config}->{path_to}->{db__bdb__home_dir},
239			-Config => {
240			DB_DATA_DIR => $wiki->{config}->{path_to}->{db__content__dir},
241			DB_LOG_DIR => $wiki->{config}->{path_to}->{db__bdb__log_dir},
242			DB_TMP_DIR => $wiki->{config}->{path_to}->{db__bdb__temp_dir},
243			},
244			-ErrFile => $wiki->{config}->{path_to}->{db__bdb__log_file},
245			-Flags => DB_CREATE \| DB_INIT_LOCK \| DB_INIT_LOG \| DB_INIT_MPOOL,
246			-Verbose => $wiki->{config}->{debug}->{db};
247
248			$wiki->{db}->_set_prop_db (content__structured => {-db_open => sub {
249			require SuikaWiki::DB::Hash;
250			new SuikaWiki::DB::Hash constructor => sub {
251			use MLDBM qw(BerkeleyDB::Hash);# Storable);
252			tie my %mldb, 'MLDBM',
253			-Filename => $wiki->{config}->{path_to}
254			->{db__cache_struct__file},
255			-Env => $bdbenv,
256			-Flags => DB_CREATE,
257			-Mode => 0644;
258			\%mldb;
259			};
260			}});
261
262			## Referer Database (See Referer plugin module)
263			$wiki->{db}->_set_prop_db (referer => {-db_open => sub {
264	wakaba	1.14	require SuikaWiki::DB::FileSystem::Count;
265			SuikaWiki::DB::FileSystem::Count->new
266			(base_directory => $wiki->{config}->{path_to}->{db__content__dir},
267			directory_suffix => '.ns',
268			file_suffix => '.ref',
269			root_key => $wiki->{config}->{page}->{Default},
270			auto_mkdir => 0,
271			-lock => $wiki->{var}->{db}->{lock_prop}->('referer'));
272			}, -db_close => sub {
273			my %opt = @_;
274			$opt{prop_info}->{-db}->close;
275			delete $opt{prop_info}->{-db};
276	wakaba	1.13	}});
277
278			## HTTP Request Logging Database (See RequestLog plugin module)
279			$wiki->{db}->_set_prop_db (log__http_request => {-db_open => sub {
280	wakaba	1.16	require SuikaWiki::DB::FileSystem::Count;
281			SuikaWiki::DB::FileSystem::Count->new
282			(base_directory => $wiki->{config}->{path_to}->{db__request_log__dir},
283			directory_suffix => '.ns',
284			file_suffix => '.rlog',
285			root_key => $wiki->{config}->{page}->{Default},
286			auto_mkdir => 1);
287			}, -db_close => sub {
288			my %opt = @_;
289			$opt{prop_info}->{-db}->close;
290			delete $opt{prop_info}->{-db};
291	wakaba	1.13	}});
292
293			## Additional WikiDB properties should be defined here
294			# ...
295			};
296
297			push @{$WIKI->{event}->{input_close}}, sub {
298			my ($wiki, $event) = @_;
299			try {
300			SuikaWiki::Plugin->module_package ('RequestLog')
301			->http_request_log (wiki => $wiki,
302			prop => 'log__http_request');
303			} catch SuikaWiki::Plugin::error with {
304			my $err = shift;
305			$err->raise unless $err->{-type} eq 'PLUGIN_NOT_FOUND';
306			};
307			};
308
309	wakaba	1.18	$WIKI->{config}->{engine_max_access} = 15;
310
311	wakaba	1.13	## -- WikiName of special purpose WikiPages
312			$WIKI->{config}->{page} = {
313			Default => $WIKI->name ([qw/HomePage/]),
314			InterWikiName => $WIKI->name ([qw/Wiki InterWikiName/]),
315			NewPageTemplate => $WIKI->name ([qw/Wiki NewPageTemplate/]),
316			'StyleSheetList(text/html)' => $WIKI->name ([qw<Wiki Style List text/html>]),
317	wakaba	1.16	ExpandedURI q<log:root> => $WIKI->name ([]),
318	wakaba	1.13	};
319
320			## -- WikiNamespace constants
321			$WIKI->{config}->{name}->{space} = {
322			separator => '//',
323			separator_reg => qr#\s//\s#,
324			self => '.',
325			parent => '..',
326			root => '//',
327			};
328
329			## -- Default character codes
330			$WIKI->{config}->{charset} = {
331			## Internal code - MUST be ASCII + 8bit coding scheme
332			internal => 'euc-jp',
333			## Default output code
334			output => 'iso-2022-jp',
335			## "query" part in URI reference
336			uri_query => '', # auto-detected
337			uri_query_encode => 'euc-jp', ## For compatibility w/ SuikaWiki 2
338			uri_param => '', # auto-detected
339			uri_param_encode => 'euc-jp', ## For compatibility w/ SuikaWiki 2
340			## PATH_INFO part in URI reference
341			uri_path_info => 'x-utf-8-10646', ## Reserved for future use
342			## Fragment identifier in URI reference
343			uri_fragment => 'x-punycode', ## Reserved for possible future use
344			};
345	wakaba	1.15
346			## -- User option for media types
347			$WIKI->{config}->{ExpandedURI q<media-type:accept-media-type>} = {
348			q<IMT:text/css##> => 1,
349			q<IMT:text/plain##> => 1,
350			q<IMT:text/x-suikawiki;version="0.9"##> => 1,
351	wakaba	1.22	q<IMT:text/x-suikawiki;version="0.10"##> => 1,
352			q<IMT:text/x.suikawiki.image;version="0.9"##> => 1,
353	wakaba	1.15	q<IMT:application/x.suikawiki.config;version="2.0"##> => 1,
354			};
355	wakaba	1.13
356			## -- Expires duration templates
357			$WIKI->{config}->{entity}->{expires} = {
358			edit => {delta => 60},
359			view => {delta => 2*3600},
360			list => {delta => 60},
361			lm_flaged => {delta => 30243600},
362			stylesheet => {delta => 30243600},
363			error => {delta => 60},
364			};
365
366	wakaba	1.19	## -- User-editable content properties
367			$WIKI->{config}->{ExpandedURI q<pe:prop>} = {
368	wakaba	1.21	'abstract' => {uri => ExpandedURI q<sw:abstract>,
369			ExpandedURI q<media-type:media-type-prop>
370			=> ExpandedURI q<sw:abstract--type>},
371	wakaba	1.19	'abstract--type' => {uri => ExpandedURI q<sw:abstract--type>,
372			type => ExpandedURI q<media-type:media-type>,
373			depend => [qw/abstract/]},
374	wakaba	1.23	'category' => {uri => ExpandedURI q<sw:category>, is_list => 1,
375			type => ExpandedURI q<sw:WikiName>,
376			ExpandedURI q<pe:revWNList> => ExpandedURI q<pe:inCategory>},
377	wakaba	1.19	'keyword' => {uri => ExpandedURI q<sw:keyword>, is_list => 1},
378	wakaba	1.21	'license' => {uri => ExpandedURI q<sw:license>,
379			ExpandedURI q<media-type:media-type-prop>
380			=> ExpandedURI q<sw:license--type>},
381			'license--type' => {uri => ExpandedURI q<sw:license--type>,
382			type => ExpandedURI q<media-type:media-type>,
383			depend => [qw/license/]},
384	wakaba	1.23	'obsolete' => {uri => ExpandedURI q<sw:obsolete>, is_list => 1,
385			type => ExpandedURI q<sw:WikiName>},
386			'rel-contents' => {uri => ExpandedURI q<relrev:contents>, is_list => 1,
387			type => ExpandedURI q<sw:WikiName>},
388			'rel-index' => {uri => ExpandedURI q<relrev:index>, is_list => 1,
389			type => ExpandedURI q<sw:WikiName>},
390			'rel-next' => {uri => ExpandedURI q<relrev:next>, is_list => 1,
391			type => ExpandedURI q<sw:WikiName>,
392			ExpandedURI q<pe:revWNList> => ExpandedURI q<relrev:prev>},
393			'rel-prev' => {uri => ExpandedURI q<relrev:prev>, is_list => 1,
394			type => ExpandedURI q<sw:WikiName>,
395			ExpandedURI q<pe:revWNList> => ExpandedURI q<relrev:next>},
396			'rel-up' => {uri => ExpandedURI q<relrev:up>, is_list => 1,
397			type => ExpandedURI q<sw:WikiName>,
398			ExpandedURI q<pe:revWNList> => ExpandedURI q<relrev:down>},
399	wakaba	1.22
400			## For BugTrack plugin
401			'bt--status' => {uri => ExpandedURI q<bt:status>},
402			'bt--priority' => {uri => ExpandedURI q<bt:priority>},
403			'bt--category' => {uri => ExpandedURI q<bt:category>, is_list => 1},
404			'bt--subject' => {uri => ExpandedURI q<bt:subject>},
405	wakaba	1.19	};
406
407	wakaba	1.13	## -- Debug mode
408			$WIKI->{config}->{debug} = {
409			general => 0,
410			db => 0,
411			format => 0,
412			view => 0,
413			};
414	wakaba	1.11
415	wakaba	1.8	};
416	w	1.1
417	wakaba	1.13	=head1 SEE ALSO
418	wakaba	1.6
419	wakaba	1.13	C<lib/suikawiki.pl>, C<wiki.cgi>,
420			<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki>,
421			<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SWHCS>
422	wakaba	1.6
423			=head1 LICENSE
424
425	wakaba	1.13	Copyright 2003-2004 Wakaba <w@suika.fam.cx>. All rights reserved.
426	wakaba	1.6
427			This program is free software; you can redistribute it and/or
428			modify it under the same terms as Perl itself.
429
430			=cut
431
432	wakaba	1.23	1; # $Date: 2004/09/21 03:18:49 $