From 4769c7b97999c7df7f7c25f26d89902c2e86573b Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 16 Jan 2007 11:06:49 +0000 Subject: [PATCH] add PC21 delete for locally connecting nodes --- perl/DXProt.pm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index baaea72d..010620a0 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -236,6 +236,14 @@ sub new # add this node to the table, the values get filled in later my $pkg = shift; my $call = shift; + + # if we have an entry already, then send a PC21 to all connect + # old style connections, because we are about to get the real deal + if (my $ref = Route::Node::get($call)) { + dbg("ROUTE: $call is already in the routing table, deleting") if isdbg('route'); + my @rout = $ref->del_nodes; + $self->route_pc21($main::mycall, undef, @rout) if @rout; + } $main::routeroot->add($call, '5000', Route::here(1)) if $call ne $main::mycall; return $self; -- 2.43.0