X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=7bffd606b25276058b368abf94b28de3cc4bc7ac;hb=62d82b83c7cfef2ae3ef3a0ee6dea74ce7a37b2c;hp=3681bfbf35fee93b3c8fbbe96baf3bf716a1460a;hpb=2a87ab5eed4ec910717298ccd4a85abb36149599;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 3681bfbf..7bffd606 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -823,6 +823,14 @@ sub normal
 				return;
 			}
 
+			# if I get a PC21 from the same callsign as self then treat it
+			# as a PC39: I have gone away
+			if ($call eq $self->call) {
+				$self->disconnect(1);
+				eph_del_regex("^PC(?:1[679]|21).*$field[1]");
+				return;
+			}
+
 			eph_del_regex("^PC1[79].*$call");
 			
 			my @rout;
@@ -833,11 +841,6 @@ sub normal
 				return;
 			}
 			if ($call ne $main::mycall) { # don't allow malicious buggers to disconnect me!
-				if ($call eq $self->{call}) {
-					dbg("PCPROT: Trying to disconnect myself with PC21") if isdbg('chanerr');
-					return;
-				}
-
 				my $node = Route::Node::get($call);
 				if ($node) {