script/default/suikawiki-config.ph

package main;
use strict;

## [OBSOLETE] URI (or part of URI) of Wiki CGI script itself and its external addons
        ## Note: If your Wiki CGI script URI is <http://foo.example/path/to/wiki.cgi>,
        ##              cookie-path: /path/to/
        ##              script-short-name: wiki.cgi
        ##       URI parts MUST NOT contains "&" and/or non-URI characters.
  our %uri = (
    cookie_path         => '/~wakaba/-temp/expwiki/',
    external_script     => '../wiki/script/',
    script_short_name   => 'wiki',
    ## If you use CVS repository of WikiDatabase,
    #cvs_repository     => 'http://path-to-viewcvs/path-to-repository/',
  );
  $uri{wiki_abs} = "http://".($main::ENV{HTTP_HOST} || $main::ENV{SERVER_NAME}.($main::ENV{SERVER_PORT}==80?'':":$main::ENV{SERVER_PORT}"))."$uri{cookie_path}$uri{script_short_name}";
  $main::url_cgi = $uri{wiki_abs};
  $uri{wiki} = qq($uri{cookie_path}$uri{script_short_name});    

## Path to modules and databases
  push @main::INC, qw'lib ../wiki/lib lib';

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

## Constructing a new instance of the WikiEngine
  require SuikaWiki::Implementation;
  our $WIKI = SuikaWiki::Implementation->new;

  ## Obsolete interface
  our %PathTo = (       ## Path to your data, relative to the main CGI script (NOT to this config script)
    CachePrefix         => q(./wikidata/.cache.),  # WikiPlugin
    TempPrefix  => q(./wikidata/.tmp.),            # WikiPlugin, Image
    convert     => q(/usr/X11R6/bin/convert),      # Image
  );

## Filesystem path mapping
  for (
     [db__content__dir        => q"./wikidata/page"],
     [db__content__error_log  => q"./wikidata/log/db-content.log"],
     [db__lock__dir           => q"./wikidata/lock/"],
  ) {
    $WIKI->{config}->{path_to}->{$_->[0]} = $_->[1];
  }

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

## WikiPlugin
  push @{$WIKI->{event}->{plugin_manager_loaded}}, sub {
    my $wiki = shift;
    $wiki->{plugin}->load_directory (qw(
      lib/SuikaWiki/Plugin/
      misc/plugins/
      misc/plugins/format/
      misc/plugins/view/
    ));
    require 'wikidata/config.ph';
  };

## WikiDatabase : Mapping logical to physical
  push @{$WIKI->{event}->{database_loaded}}, sub {
      ## Main content
      $WIKI->{db}->_set_prop_db (content => {-db_open => sub {
        require SuikaWiki::DB::FileSystem::YukiWikiDBNS;
        SuikaWiki::DB::FileSystem::YukiWikiDBNS->new 
          (directory => $WIKI->{config}->{path_to}->{db__content__dir},
           logfile   => $WIKI->{config}->{path_to}->{db__content__error_log},
           suffix    => '.txt',
           -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};
      }});
  
  ## OBSOLETE interface for transition
  ## Don't remove until WikiResource is reimplemented
    $WIKI->{db}->get (content => ['dummy']);
    *main::database = $WIKI->{db}->{prop}->{content}->{-db}->{db_hash};
    $SuikaWiki::Plugin::DB = $WIKI->{db};
    for (@{$SuikaWiki::Plugin::On{WikiDatabaseLoaded}||[]}) { &{$_} }
    
    package wiki::dummy;
    sub meta {undef};
    sub list_items {};
    sub STORE {};
  };

  ## WikiName of special purpose WikiPages
  $WIKI->{config}->{page} = {
    Default         => [qw/HomePage/],
    NewPageTemplate => [qw/Wiki NewPageTemplate/],
  };
  
  ## [OBSOLETE] Name of Special WikiPage (linked as parts of navigations)
  our %PageName = (
    FrontPage   => 'HomePage',
    InterWikiName       => 'Wiki//InterWikiName',
    MenuBar     => 'Wiki//MenuBar',
    RefererDontRecord   => 'Wiki//Referer//IgnoreSite',
    RefererSiteName     => 'Wiki//Referer//SiteName',
    ResourceNS  => 'Wiki//Resource//',
    StyleList   => 'Wiki//Style//List//',
  );
  
  ## WikiNamespace constants
  $WIKI->{config}->{name}->{space}->{separator} = '//';
  $WIKI->{config}->{name}->{space}->{separator_reg} = qr#//#;
  
  ## Default character code
  $WIKI->{config}->{charset}->{internal} = 'euc-jp';
  $WIKI->{config}->{charset}->{output} = 'iso-2022-jp';
  $WIKI->{config}->{charset}->{uri_param} = ''; # auto detect
  $WIKI->{config}->{charset}->{uri_param_encode} = 'euc-jp';
  $WIKI->{config}->{charset}->{uri_query} = ''; # auto detect
  $WIKI->{config}->{charset}->{uri_query_encode} = 'euc-jp';
  $WIKI->{config}->{charset}->{uri_path_info} = 'utf-8';
  
  ## Expires duration templates
  $WIKI->{config}->{entity}->{expires} = {
    edit      => {delta => 60},
    view      => {delta => 2*3600},
    lm_flaged => {delta => 30*24*3600},
  };


=head1 NAME

suikawiki-config.ph --- SuikaWiki: Configuration of the wiki

=head1 LICENSE

Copyright 2003 Wakaba <w@suika.fam.cx>

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

=cut

1; # $Date: 2003/12/26 07:05:09 $
1	package main;
2	use strict;
3
4	## [OBSOLETE] URI (or part of URI) of Wiki CGI script itself and its external addons
5	## Note: If your Wiki CGI script URI is <http://foo.example/path/to/wiki.cgi>,
6	## cookie-path: /path/to/
7	## script-short-name: wiki.cgi
8	## URI parts MUST NOT contains "&" and/or non-URI characters.
9	our %uri = (
10	cookie_path => '/~wakaba/-temp/expwiki/',
11	external_script => '../wiki/script/',
12	script_short_name => 'wiki',
13	## If you use CVS repository of WikiDatabase,
14	#cvs_repository => 'http://path-to-viewcvs/path-to-repository/',
15	);
16	$uri{wiki_abs} = "http://".($main::ENV{HTTP_HOST} \|\| $main::ENV{SERVER_NAME}.($main::ENV{SERVER_PORT}==80?'':":$main::ENV{SERVER_PORT}"))."$uri{cookie_path}$uri{script_short_name}";
17	$main::url_cgi = $uri{wiki_abs};
18	$uri{wiki} = qq($uri{cookie_path}$uri{script_short_name});
19
20	## Path to modules and databases
21	push @main::INC, qw'lib ../wiki/lib lib';
22
23	## These lines should be removed after utf8 support
24	$Message::Util::Formatter::Base::Token = qr/[\w._+\x80-\xFF-]+/;
25	require Message::Util::Formatter::Base;
26
27	## Constructing a new instance of the WikiEngine
28	require SuikaWiki::Implementation;
29	our $WIKI = SuikaWiki::Implementation->new;
30
31	## Obsolete interface
32	our %PathTo = ( ## Path to your data, relative to the main CGI script (NOT to this config script)
33	CachePrefix => q(./wikidata/.cache.), # WikiPlugin
34	TempPrefix => q(./wikidata/.tmp.), # WikiPlugin, Image
35	convert => q(/usr/X11R6/bin/convert), # Image
36	);
37
38	## Filesystem path mapping
39	for (
40	[db__content__dir => q"./wikidata/page"],
41	[db__content__error_log => q"./wikidata/log/db-content.log"],
42	[db__lock__dir => q"./wikidata/lock/"],
43	) {
44	$WIKI->{config}->{path_to}->{$_->[0]} = $_->[1];
45	}
46
47	## Debug mode
48	$WIKI->{config}->{debug} = {
49	general => 1,
50	db => 0,
51	view => 1,
52	};
53
54	## WikiPlugin
55	push @{$WIKI->{event}->{plugin_manager_loaded}}, sub {
56	my $wiki = shift;
57	$wiki->{plugin}->load_directory (qw(
58	lib/SuikaWiki/Plugin/
59	misc/plugins/
60	misc/plugins/format/
61	misc/plugins/view/
62	));
63	require 'wikidata/config.ph';
64	};
65
66	## WikiDatabase : Mapping logical to physical
67	push @{$WIKI->{event}->{database_loaded}}, sub {
68	## Main content
69	$WIKI->{db}->_set_prop_db (content => {-db_open => sub {
70	require SuikaWiki::DB::FileSystem::YukiWikiDBNS;
71	SuikaWiki::DB::FileSystem::YukiWikiDBNS->new
72	(directory => $WIKI->{config}->{path_to}->{db__content__dir},
73	logfile => $WIKI->{config}->{path_to}->{db__content__error_log},
74	suffix => '.txt',
75	-lock => &{$WIKI->{var}->{db}->{lock_prop}} ('content'));
76	}, -db_close => sub {
77	my %opt = @_;
78	$opt{prop_info}->{-db}->close;
79	delete $opt{prop_info}->{-db};
80	}});
81
82	## Last modified
83	$WIKI->{db}->_set_prop_db (lastmodified => {-db_open => sub {
84	require SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09;
85	SuikaWiki::DB::FileSystem::SuikaWikiMetaInfo09->new
86	(directory => $WIKI->{config}->{path_to}->{db__content__dir},
87	-lock => &{$WIKI->{var}->{db}->{lock_prop}} ('lastmodified'));
88	}, -prop => 'last_modified', -db_close => sub {
89	my %opt = @_;
90	$opt{prop_info}->{-db}->close;
91	delete $opt{prop_info}->{-db};
92	}});
93
94	## OBSOLETE interface for transition
95	## Don't remove until WikiResource is reimplemented
96	$WIKI->{db}->get (content => ['dummy']);
97	*main::database = $WIKI->{db}->{prop}->{content}->{-db}->{db_hash};
98	$SuikaWiki::Plugin::DB = $WIKI->{db};
99	for (@{$SuikaWiki::Plugin::On{WikiDatabaseLoaded}\|\|[]}) { &{$_} }
100
101	package wiki::dummy;
102	sub meta {undef};
103	sub list_items {};
104	sub STORE {};
105	};
106
107	## WikiName of special purpose WikiPages
108	$WIKI->{config}->{page} = {
109	Default => [qw/HomePage/],
110	NewPageTemplate => [qw/Wiki NewPageTemplate/],
111	};
112
113	## [OBSOLETE] Name of Special WikiPage (linked as parts of navigations)
114	our %PageName = (
115	FrontPage => 'HomePage',
116	InterWikiName => 'Wiki//InterWikiName',
117	MenuBar => 'Wiki//MenuBar',
118	RefererDontRecord => 'Wiki//Referer//IgnoreSite',
119	RefererSiteName => 'Wiki//Referer//SiteName',
120	ResourceNS => 'Wiki//Resource//',
121	StyleList => 'Wiki//Style//List//',
122	);
123
124	## WikiNamespace constants
125	$WIKI->{config}->{name}->{space}->{separator} = '//';
126	$WIKI->{config}->{name}->{space}->{separator_reg} = qr#//#;
127
128	## Default character code
129	$WIKI->{config}->{charset}->{internal} = 'euc-jp';
130	$WIKI->{config}->{charset}->{output} = 'iso-2022-jp';
131	$WIKI->{config}->{charset}->{uri_param} = ''; # auto detect
132	$WIKI->{config}->{charset}->{uri_param_encode} = 'euc-jp';
133	$WIKI->{config}->{charset}->{uri_query} = ''; # auto detect
134	$WIKI->{config}->{charset}->{uri_query_encode} = 'euc-jp';
135	$WIKI->{config}->{charset}->{uri_path_info} = 'utf-8';
136
137	## Expires duration templates
138	$WIKI->{config}->{entity}->{expires} = {
139	edit => {delta => 60},
140	view => {delta => 2*3600},
141	lm_flaged => {delta => 30243600},
142	};
143
144
145	=head1 NAME
146
147	suikawiki-config.ph --- SuikaWiki: Configuration of the wiki
148
149	=head1 LICENSE
150
151	Copyright 2003 Wakaba <w@suika.fam.cx>
152
153	This program is free software; you can redistribute it and/or
154	modify it under the same terms as Perl itself.
155
156	=cut
157
158	1; # $Date: 2003/12/26 07:05:09 $