X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=904797adc4a66d4f93fad9f1b13cb1584eeccefc;hb=5c96125fa684151fbae1daa2c76ca5522d0a09c0;hp=fb8753e24fd45782e85f351e1e233d7b457b8f8d;hpb=a96a085a91927bf6fda88718092cc279e10ba7ce;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index fb8753e2..904797ad 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -429,7 +429,7 @@ $routeroot = Route::Node->new($mycall, $version*100+5300, Route::here($DXProt::m
 # 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_dxcc $dxcc" );
+	$Route::filterdef->cmd($DXProt::me, 'route', 'accept', "node_default call $mycall" );
 }
 
 # read in any existing message headers and clean out old crap