From 87ba7daa22b255b3492fc697121928e85d901e0e Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Wed, 20 Oct 1999 10:17:58 +0000
Subject: [PATCH] limited the length of announces that are views for deduping

---
 Changes        | 2 ++
 perl/DXProt.pm | 9 +++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 06b5c67f..c415b606 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 20Oct99=======================================================================
 1. Translated all the subroutines of minimuf into perl as Minimuf.pm
+2. Limited the length of an ANN that is saved for de-duping to $pc12_dup_lth
+(def 72)
 18Oct99=======================================================================
 1. changed help command so that it works correctly with multiple title lines.
 2. added to address to the list of things a message checks to see whether it
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 5211b7aa..11d37f25 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -31,14 +31,15 @@ use strict;
 use vars qw($me $pc11_max_age $pc23_max_age $pc11_dup_age $pc23_dup_age
 			%spotdup %wwvdup $last_hour %pings %rcmds
 			%nodehops @baddx $baddxfn $pc12_dup_age
-			%anndup $allowzero);
+			%anndup $allowzero, $pc12_dup_lth);
 
 $me = undef;					# the channel id for this cluster
 $pc11_max_age = 1*3600;			# the maximum age for an incoming 'real-time' pc11
 $pc23_max_age = 1*3600;			# the maximum age for an incoming 'real-time' pc23
 $pc11_dup_age = 24*3600;		# the maximum time to keep the spot dup list for
 $pc23_dup_age = 24*3600;		# the maximum time to keep the wwv dup list for
-$pc12_dup_age = 24*3600;		# the maximum time to keep the ann dup list for
+$pc12_dup_age = 12*3600;		# the maximum time to keep the ann dup list for
+$pc12_dup_lth = 72;				# the length of ANN text to save for deduping 
 %spotdup = ();				    # the pc11 and 26 dup hash 
 %wwvdup = ();				    # the pc23 and 27 dup hash
 %anndup = ();                               # the PC12 dup hash
@@ -260,8 +261,8 @@ sub normal
 		}
 		
 		if ($pcno == 12) {		# announces
-		        # announce duplicate checking
-			my $text = uc unpad($field[3]);
+			# announce duplicate checking
+			my $text = substr(uc unpad($field[3]), 0, $pc12_dup_lth);
 			my $dupkey = $field[1].$field[2].$text.$field[4].$field[6];
 			if ($anndup{$dupkey}) {
 				dbg('chan', "Duplicate Announce ignored\n");
-- 
2.34.1