/[pub]/suikawiki/script/lib/suikawiki.pl
Suika

Diff of /suikawiki/script/lib/suikawiki.pl

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

revision 1.31 by wakaba, Sat May 1 03:54:50 2004 UTC revision 1.32 by wakaba, Thu Jun 3 06:38:48 2004 UTC
# Line 69  our $VERSION = do{my @r=(q$Revision$=~/\ Line 69  our $VERSION = do{my @r=(q$Revision$=~/\
69                 ->new (-directory => $WIKI->{config}->{path_to}->{db__lock__dir},                 ->new (-directory => $WIKI->{config}->{path_to}->{db__lock__dir},
70                        -name => 'main',                        -name => 'main',
71                        -share => 1,                        -share => 1,
72                        -limit => 10);                        -limit => $WIKI->{config}->{engine_max_access});
73    $lock->lock or do {    $lock->lock or do {
74      require SuikaWiki::Output::HTTP;      require SuikaWiki::Output::HTTP;
75      my $out = SuikaWiki::Output::HTTP->new;      my $out = SuikaWiki::Output::HTTP->new;
# Line 329  sub main::code_convert { Line 329  sub main::code_convert {
329        ## BUG: this code is not strict        ## BUG: this code is not strict
330        if ($cookie =~ /SelectedMode=([0-9A-Za-z_-]+)/) {        if ($cookie =~ /SelectedMode=([0-9A-Za-z_-]+)/) {
331          $mode = $1; $mode =~ tr/-/_/;          $mode = $1; $mode =~ tr/-/_/;
332          } elsif ($wiki->{var}->{client}->{downgrade}->{is_robot} and
333            $wiki->{plugin}->module_package ('Robot', allow_undef => 1)) {
334            $mode = 'robot--read';
335        } else {        } else {
336          $mode = 'read';          $mode = 'read';
337        }        }
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24