projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
more fixes
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 3a8bf619da82ed8cd97c86efe9ce63447f582b14..572be7a9d6cdae83abe7a0ced707773ff692096d 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-284,6
+284,8
@@
sub process_inqueue
$dxchan->disconnect;
} elsif ($sort eq 'D') {
; # ignored (an echo)
$dxchan->disconnect;
} elsif ($sort eq 'D') {
; # ignored (an echo)
+ } elsif ($sort eq 'G') {
+ $dxchan->enhanced($line);
} else {
print STDERR atime, " Unknown command letter ($sort) received from $call\n";
}
} else {
print STDERR atime, " Unknown command letter ($sort) received from $call\n";
}
@@
-315,7
+317,7
@@
$starttime = $systime = time;
$lang = 'en' unless $lang;
# open the debug file, set various FHs to be unbuffered
$lang = 'en' unless $lang;
# open the debug file, set various FHs to be unbuffered
-dbginit();
+dbginit(
\&DXCommandmode::broadcast_debug
);
foreach (@debug) {
dbgadd($_);
}
foreach (@debug) {
dbgadd($_);
}