X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=904797adc4a66d4f93fad9f1b13cb1584eeccefc;hb=abb6a59ebc4be911bb6862cd694576b8db700b7e;hp=fd23a2534ec8b4771ea1ffe2a81ccbe18147ef38;hpb=febdc9bd8f6cd065d217ba089fab4361e9980f35;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index fd23a253..904797ad 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -331,17 +331,20 @@ while (<CL>) {
 	push @fn, $1;
 }
 close CL;
+my $subbuild;
 foreach my $fn (@fn) {
 	$fn =~ s|::|/|g;
 	open(CL, "$main::root/perl/${fn}.pm") or next;
 	while (<CL>) {
-		if (/^#\s+\$Id:\s+[\w\._]+,v\s+(\d+\.\d+)/ ) {
+		if (/^#\s+\$Id:\s+[\w\._]+,v\s+(\d+\.\d+)\.?(\d+.\d+)?/ ) {
 			$build += $1;
+			$subbuild += $2 if $2;
 			last;
 		}
 	}
 	close CL;
 }
+$build = "$build.$subbuild" if $subbuild;
 
 Log('cluster', "DXSpider V$version, build $build started");
 
@@ -426,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