X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;fp=perl%2Fcluster.pl;h=572be7a9d6cdae83abe7a0ced707773ff692096d;hb=c20912fa90a1c3dd97d437e08691b5dc043dd869;hp=3a8bf619da82ed8cd97c86efe9ce63447f582b14;hpb=3b0eeaaa6152345bcd42380e385c04fb7e50a064;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 3a8bf619..572be7a9 100755
--- 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($_);
 }