X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=572be7a9d6cdae83abe7a0ced707773ff692096d;hb=3e075e9d00d74fd477c44db2b29eb3eac9d6d88a;hp=9848e76f10993748587a5d10fa0b83395f963be9;hpb=101516b420ac77cd9eb8294651104e43f3461c06;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 9848e76f..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($_);
 }
@@ -428,10 +430,10 @@ DXProt->init();
 $routeroot = Route::Node->new($mycall, $version*100+5300, Route::here($DXProt::me->here)|Route::conf($DXProt::me->conf));
 
 # make sure that there is a routing OUTPUT node default file
-unless (Filter::read_in('route', 'node_default', 0)) {
-	my $dxcc = $DXProt::me->dxcc;
-	$Route::filterdef->cmd($DXProt::me, 'route', 'accept', "node_default call $mycall" );
-}
+#unless (Filter::read_in('route', 'node_default', 0)) {
+#	my $dxcc = $DXProt::me->dxcc;
+#	$Route::filterdef->cmd($DXProt::me, 'route', 'accept', "node_default call $mycall" );
+#}
 
 # read in any existing message headers and clean out old crap
 dbg("reading existing message headers ...");