From: minima Date: Fri, 17 Aug 2001 01:03:27 +0000 (+0000) Subject: try this way X-Git-Tag: R_1_48~98 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=d491ec44ddeb21146694280f4540991759b556b3;p=spider.git try this way --- diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 0f8aaebf..ced5b4f0 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -887,12 +887,6 @@ sub normal my $ref = Route::get($call) || Route->new($call); return unless $self->in_filter_route($ref); - # dup check it - if (eph_dup($line)) { - dbg("PCPROT: ephemeral PC41 dup dropped") if isdbg('chanerr'); - return; - } - # add this station to the user database, if required my $user = DXUser->get_current($call); $user = DXUser->new($call) if !$user; @@ -1829,7 +1823,7 @@ sub eph_dup my $s = shift; # chop the end off - $s =~ s/\^H\d\d?\^?~?$//; + $s =~ s/\^H\d\d?\^?\~?$//; return 1 if exists $eph{$s}; $eph{$s} = $main::systime; return undef;