Changeset 14954 for misc/runpugs/perl

Timestamp:

12/30/06 19:07:12 (23 months ago)

Author:

andara

Message:

[runpugs]
-be kind to feather: better management of preloaded sessions.
Please test the devel version: http://feather.perl6.nl:8080/runpugs/
-fixed non-interactive runpugs, now at
http://feather.perl6.nl:8080/cgi-bin/runp6script

Files:

• misc/runpugs/perl/runpugs3.pl (modified) (1 diff)

misc/runpugs/perl/runpugs3.pl

@@ -98 +98 @@
     my $sessionid=shift;
     my $ip=shift;
-    my $dev=$query->param('reldev')||0;
-    $dev=$dev*1;
+    my $dev=$query->param('reldev');#||0;
+    if ($dev!=0){
+    $dev=1;
+    }
     my $devc='checked';
     my $relc='';