projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed console back again
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 9c002766bfdb224c8ed7a00b12577e15cbe19c37..ceb099ca7eb4f6b64977447e6a800d7c5be0c1e6 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-67,7
+67,7
@@
package main;
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
-$version = "1.3
1
"; # the version no of the software
+$version = "1.3
3
"; # the version no of the software
$starttime = 0; # the starting time of the cluster
$lockfn = "cluster.lock"; # lock file name
$starttime = 0; # the starting time of the cluster
$lockfn = "cluster.lock"; # lock file name
@@
-257,7
+257,7
@@
sub process_inqueue
die "\$user not defined for $call" if !defined $user;
if ($error) {
die "\$user not defined for $call" if !defined $user;
if ($error) {
- dbg(
chan
, "DROPPED with $error duff characters");
+ dbg(
'chan'
, "DROPPED with $error duff characters");
} else {
# normal input
$dxchan->normal($line);
} else {
# normal input
$dxchan->normal($line);
@@
-368,7
+368,7
@@
print "orft we jolly well go ...\n";
dbg('chan', "DXSpider version $version started...");
for (;;) {
my $timenow;
dbg('chan', "DXSpider version $version started...");
for (;;) {
my $timenow;
- Msg->event_loop(1, 0.
00
1);
+ Msg->event_loop(1, 0.1);
$timenow = time;
process_inqueue(); # read in lines from the input queue and despatch them
$timenow = time;
process_inqueue(); # read in lines from the input queue and despatch them