return '' if (&IsParam("noSHM"));
if (shmread($key,$retval,$position,$size)) {
- &DEBUG("shmRead($key): $retval");
+ #&DEBUG("shmRead($key): $retval");
return $retval;
} else {
&ERROR("shmRead: failed: $!");
return if ($$ != $::bot_pid); # fork protection.
if (@_) {
- &ScheduleThis(5, "shmFlush");
+ &ScheduleThis(15, "shmFlush");
return if ($_[0] eq "2");
}