From: minima Date: Tue, 22 Aug 2000 22:18:40 +0000 (+0000) Subject: slight change to the checking for announces X-Git-Tag: R_1_44~22 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=af0e6bdd59291e0fb872660f261ad720288068b5;p=spider.git slight change to the checking for announces --- diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm index a6032363..911c2724 100644 --- a/perl/AnnTalk.pm +++ b/perl/AnnTalk.pm @@ -28,7 +28,7 @@ sub dup chomp $text; unpad($text); $text = substr($text, 0, $duplth) if length $text > $duplth; - my $dupkey = "$call|$to|$text"; + my $dupkey = "$to|$text"; return 1 if exists $dup{$dupkey}; $dup{$dupkey} = $d; # in seconds (to the nearest minute) return 0; diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 2e22bc91..09708332 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -53,7 +53,7 @@ $baddxfn = "$main::data/baddx.pl"; ( [ qw(c c m p bc c) ], # pc10 [ qw(f m d t m c c h) ], # pc11 - [ qw(c bc m bp c p h) ], # pc12 + [ qw(c bc m bp bm p h) ], # pc12 [ qw(c h) ], # [ qw(c h) ], # [ qw(c m h) ], #