delete node from parents node list in del

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index fd23a2534ec8b4771ea1ffe2a81ccbe18147ef38..904797adc4a66d4f93fad9f1b13cb1584eeccefc 100755 (executable)
--- 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