From b212ea3fe562d1c3ebc8ac64c5a7d8c3e656a8e4 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 6 Jul 2001 00:52:11 +0000
Subject: [PATCH] disconnect channels whose route node has disappeared

---
 Changes        |  2 ++
 perl/DXProt.pm | 16 ++++++++++++++--
 2 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 254ec1ff..6dcfcf23 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+05Jul01=======================================================================
+1. disconnect channels whose route node has disappeared
 29Jun01=======================================================================
 1. fix merge command
 28Jun01=======================================================================
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 460e401a..8364aca9 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -554,6 +554,8 @@ sub normal
 			for ($i = 2; $i < $#field; $i++) {
 				my ($call, $conf, $here) = $field[$i] =~ /^(\S+) (\S) (\d)/o;
 				next unless $call && $conf && defined $here && is_callsign($call);
+				next if $call eq $main::mycall;
+				
 				$conf = $conf eq '*';
 
 				my $r = Route::User::get($call);
@@ -633,6 +635,11 @@ sub normal
 			# new routing list
 			my @rout;
 			my $parent = Route::Node::get($self->{call});
+			unless ($parent) {
+				dbg("DXPROT: my parent $self->{call} has disappeared");
+				$self->disconnect;
+				return;
+			}
 
 			# parse the PC19
 			for ($i = 1; $i < $#field-1; $i += 4) {
@@ -645,6 +652,7 @@ sub normal
 				$ver = 5000 if $ver eq '0000';
 				next if $ver < 5000; # only works with version 5 software
 				next if length $call < 3; # min 3 letter callsigns
+				next if $call eq $main::mycall;
 
 				# update it if required
 				my $r = Route::Node::get($call);
@@ -665,7 +673,10 @@ sub normal
 						push @rout, $r unless $ar;
 					}
 				} else {
-					next if $call eq $main::mycall || $call eq $self->{call};
+					if ($call eq $self->{call}) {
+						dbg("DXPROT: my channel route for $call has disappeared");
+						next;
+					};
 					
 					my $new = Route->new($call);          # throw away
 				    if ($self->in_filter_route($new)) {
@@ -710,7 +721,8 @@ sub normal
 			my @rout;
 			my $parent = Route::Node::get($self->{call});
 			unless ($parent) {
-				dbg("PCPROT: Route::Node $call not in config") if isdbg('chanerr');
+				dbg("DXPROT: my parent $self->{call} has disappeared");
+				$self->disconnect;
 				return;
 			}
 			my $node = Route::Node::get($call);
-- 
2.43.0