From: 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://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=58bd2e8154553c7fa5ccfdcc2c53b85c7453abda;p=spider.git 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'); }