slight change to the checking for announces

diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index a6032363ac5e7cf5d847a288e36ed4f64bcd952f..911c2724ed021d3d03c15331bc8d6238fd362155 100644 (file)
--- 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; 
        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; 
        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 2e22bc91132f1355e39f9311f4744f0605bd9679..0970833217c61bc8913d0c134177651966c8e3cb 100644 (file)
--- 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 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) ],                                        # 
  [ qw(c h) ],                                  # 
  [ qw(c h) ],                                  # 
  [ qw(c m h) ],                                        #