X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=4c7ccf4b256d869e4b6f57910d11e24a1b2214a7;hb=7b35ba0ffde25a7ef028c82b77021bab4b010900;hp=f7f8d0742eb8ecb3ac9090c33be3787ffe8f4c9c;hpb=2cb165bafb996974e2bc11ab68eb1bcec9a45e47;p=spider.git diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index f7f8d074..4c7ccf4b 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -2,7 +2,7 @@ # # This module impliments the handlers for the protocal mode for a dx cluster # -# Copyright (c) 1998-2006 Dirk Koopman G1TLH +# Copyright (c) 1998-2007 Dirk Koopman G1TLH # # # @@ -1667,6 +1667,9 @@ sub handle_92 push @radd, $add if $add; $parent->reset_obs; + $parent->version($ent[4]) if $ent[4]; + $parent->build($ent[5]) if $ent[5]; + dbg("ROUTE: reset obscount on $parent->{call} now " . $parent->obscount) if isdbg('obscount'); } } elsif ($sort eq 'A' || $sort eq 'D' || $sort eq 'C') {