From: minima <minima>
Date: Tue, 16 Jan 2007 11:06:49 +0000 (+0000)
Subject: add PC21 delete for locally connecting nodes
X-Git-Tag: 1.54~27
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=4769c7b97999c7df7f7c25f26d89902c2e86573b

add PC21 delete for locally connecting nodes
---

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;