implement PC92 config changes

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 1094578e61e08429ab4df159c237c75c2720708f..58b5982df7848e278e598d69db784acc4b104324 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -365,6 +365,7 @@ sub normal
                $hops--;
                return if $hops < 0;
                $line =~ s/\^H(\d+)(\^?\~?)?$/sprintf('^H%d%s', $hops, $trail)/e;
+               $field[-1] = "H$hops";
        }
 
        # send it out for processing
@@ -1012,7 +1013,7 @@ sub disconnect
        # broadcast to all other nodes that all the nodes connected to via me are gone
        unless ($pc39flag && $pc39flag == 2)  {
                $self->route_pc21($main::mycall, undef, @rout) if @rout;
-               $self->route_pc92d($main::mycall, undef, $node);
+               $self->route_pc92d($main::mycall, undef, $node) if $node;
        }
 
        # remove outstanding pings
@@ -1145,7 +1146,7 @@ sub broadcast_route_pc9x
                $line = &$generate(@_);
        } 
 
-       $line =~ /\^H(\d+)\^$/;
+       $line =~ /\^H(\d+)\^\~?$/;
        unless ($1 > 0 && $self->{isolate}) {
                foreach $dxchan (@dxchan) {
                        next if $dxchan == $self;