/[pub]/suikawiki/wikidata/suikawiki-config.ph
Suika

Diff of /suikawiki/wikidata/suikawiki-config.ph

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12.4.5 by wakaba, Sat Mar 20 04:09:14 2004 UTC revision 1.13 by wakaba, Thu Apr 1 04:53:58 2004 UTC
# Line 20  This file is part of SuikaWiki. Line 20  This file is part of SuikaWiki.
20  package wiki::driver::http;  package wiki::driver::http;
21  use strict;  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  push our @Config, sub ($) {  push our @Config, sub ($) {
   eval { use Message::Util::Error };  
31    my $WIKI = shift;    my $WIKI = shift;
32    use Cwd qw(abs_path);    use Cwd qw(abs_path);
33        
# Line 39  push our @Config, sub ($) { Line 45  push our @Config, sub ($) {
45       [db__lock__log_file      => q"./wikidata/log/lock.log"],       [db__lock__log_file      => q"./wikidata/log/lock.log"],
46       [db__log__dir            => q"./wikidata/log/"],       [db__log__dir            => q"./wikidata/log/"],
47       [db__temp__dir           => q"./wikidata/lock/"],       [db__temp__dir           => q"./wikidata/lock/"],
48       [namazu__index_dir       => q"/var/namazu/index/wakaba"],       [namazu__index_dir       => q"/var/namazu/index/suikawiki"],
49    ) {    ) {
50      ## On system that does not set current directory as main script      ## On system that does not set current directory as main script
51      ## directory, you should specify it instead of using "abs_path".      ## directory, you should specify it instead of using "abs_path".
# Line 91  push our @Config, sub ($) { Line 97  push our @Config, sub ($) {
97            (directory => $wiki->{config}->{path_to}->{db__content__dir},            (directory => $wiki->{config}->{path_to}->{db__content__dir},
98             logfile   => $wiki->{config}->{path_to}->{db__content__error_log},             logfile   => $wiki->{config}->{path_to}->{db__content__error_log},
99             suffix    => '.txt',             suffix    => '.txt',
100               root_key  => $wiki->{config}->{page}->{Default},
101             -lock => $wiki->{var}->{db}->{lock_prop}->('content'));             -lock => $wiki->{var}->{db}->{lock_prop}->('content'));
102        }, -db_close => sub {        }, -db_close => sub {
103          my %opt = @_;          my %opt = @_;
# Line 113  push our @Config, sub ($) { Line 120  push our @Config, sub ($) {
120        ## Cache DBs        ## Cache DBs
121        require SuikaWiki::DB::FileSystem::SuikaWikiCache09;        require SuikaWiki::DB::FileSystem::SuikaWikiCache09;
122        my $cachedb = SuikaWiki::DB::FileSystem::SuikaWikiCache09->new        my $cachedb = SuikaWiki::DB::FileSystem::SuikaWikiCache09->new
123              (directory => $wiki->{config}->{path_to}->{db__cache__dir},              (directory => $wiki->{config}->{path_to}->{db__cache__dir},
124               expires => 86400 * 3, removes => 86400 * 3); # 3 days               expires => 86400 * 3, removes => 86400 * 3); # 3 days
125        $wiki->{db}->_set_prop_db (m__search_result =>        $wiki->{db}->_set_prop_db (m__search_result =>
126          {-db => $cachedb, -prop => 'search_result', -db_close => sub {          {-db => $cachedb, -prop => 'search_result', -db_close => sub {
# Line 226  push our @Config, sub ($) { Line 233  push our @Config, sub ($) {
233      separator_reg => qr#\s*//\s*#,      separator_reg => qr#\s*//\s*#,
234      self => '.',      self => '.',
235      parent => '..',      parent => '..',
236        root => '//',
237    };    };
238        
239    ## -- Default character codes    ## -- Default character codes
# Line 249  push our @Config, sub ($) { Line 257  push our @Config, sub ($) {
257    $WIKI->{config}->{entity}->{expires} = {    $WIKI->{config}->{entity}->{expires} = {
258      edit      => {delta => 60},      edit      => {delta => 60},
259      view      => {delta => 2*3600},      view      => {delta => 2*3600},
260        list      => {delta => 60},
261      lm_flaged => {delta => 30*24*3600},      lm_flaged => {delta => 30*24*3600},
262      stylesheet => {delta => 30*24*3600},      stylesheet => {delta => 30*24*3600},
263      error     => {delta => 60},      error     => {delta => 60},
Legend:
Removed from v.1.12.4.5  
changed lines
  Added in v.1.13
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24