projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
618c970
)
try this way
author
minima
<minima>
Fri, 17 Aug 2001 01:03:27 +0000
(
01:03
+0000)
committer
minima
<minima>
Fri, 17 Aug 2001 01:03:27 +0000
(
01:03
+0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 0f8aaebf78e65027d1ef634cf84ae9ad21116d5a..ced5b4f05f68c46d7cf9dd431136108075dbb18b 100644
(file)
--- 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);
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;
# 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
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;
return 1 if exists $eph{$s};
$eph{$s} = $main::systime;
return undef;