From: minima <minima>
Date: Sun, 19 Aug 2001 16:03:31 +0000 (+0000)
Subject: make the regexes for 19/21 take out 16/17 as well
X-Git-Tag: R_1_48~89
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=58bd2e8154553c7fa5ccfdcc2c53b85c7453abda

make the regexes for 19/21 take out 16/17 as well
---

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');
 			}