--- suikawiki/script/lib/suikawiki.pl	2004/05/01 03:54:50	1.31
+++ suikawiki/script/lib/suikawiki.pl	2004/06/03 06:38:48	1.32
@@ -14,7 +14,7 @@
 
 package wiki::driver::http;
 use strict;
-our $VERSION = do{my @r=(q$Revision: 1.31 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
+our $VERSION = do{my @r=(q$Revision: 1.32 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
 
   ## These lines should be removed after utf8 support
   BEGIN {
@@ -69,7 +69,7 @@
                ->new (-directory => $WIKI->{config}->{path_to}->{db__lock__dir},
                       -name => 'main',
                       -share => 1,
-                      -limit => 10);
+                      -limit => $WIKI->{config}->{engine_max_access});
   $lock->lock or do {
     require SuikaWiki::Output::HTTP;
     my $out = SuikaWiki::Output::HTTP->new;
@@ -329,6 +329,9 @@
       ## BUG: this code is not strict
       if ($cookie =~ /SelectedMode=([0-9A-Za-z_-]+)/) {
         $mode = $1; $mode =~ tr/-/_/;
+      } elsif ($wiki->{var}->{client}->{downgrade}->{is_robot} and
+        $wiki->{plugin}->module_package ('Robot', allow_undef => 1)) {
+        $mode = 'robot--read';
       } else {
         $mode = 'read';
       }
@@ -414,4 +417,4 @@
 
 =cut
 
-1; # $Date: 2004/05/01 03:54:50 $
+1; # $Date: 2004/06/03 06:38:48 $