1. made ann,dx spots,wwv,wcy,wx more 'object oriented'.

[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)
+       } elsif ($sort eq 'G') {
+               $dxchan->enhanced($line);
        } 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
-dbginit();
+dbginit(\&DXCommandmode::broadcast_debug);
 foreach (@debug) {
        dbgadd($_);
 }