X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=0759db86587b1d13a6051af2d1becb5626d2ca77;hb=58bd2e8154553c7fa5ccfdcc2c53b85c7453abda;hp=72bce7c0ed45aef5394641a510e32bfbf337461e;hpb=b50b7a1c99679f3624852f29068a6cde268e9560;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 72bce7c0..0759db86 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -669,7 +669,7 @@ sub normal
 				my $ver = $field[$i+3];
 				next unless defined $here && defined $conf && is_callsign($call);
 
-				eph_del_regex("^PC21\^$call");
+				eph_del_regex("^PC(?:21\^$call|17\^[^\^]+\^$call)");
 				
 				# check for sane parameters
 				$ver = 5000 if $ver eq '0000';
@@ -747,7 +747,7 @@ sub normal
 
 			my $call = uc $field[1];
 
-			eph_del_regex("^PC19.*$call");
+			eph_del_regex("^PC1[79].*$call");
 			
 			my @rout;
 			my $parent = Route::Node::get($self->{call});
@@ -904,6 +904,7 @@ sub normal
 		if ($pcno == 39) {		# incoming disconnect
 			if ($field[1] eq $self->{call}) {
 				$self->disconnect(1);
+				eph_dup_regex("^PC(?:1[679]|21).*$field[1]");
 			} else {
 				dbg("PCPROT: came in on wrong channel") if isdbg('chanerr');
 			}