From: minima <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://gb7djk.dxcluster.net/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) ],					#