From 781531dd3ee37e69c75e52718e0b26bcac31ca1c Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 23 Aug 2000 21:48:01 +0000
Subject: [PATCH] take only alphanum chars for dupe checking

---
 Changes         | 1 +
 perl/AnnTalk.pm | 1 +
 perl/DXProt.pm  | 5 ++++-
 perl/Spot.pm    | 1 +
 4 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index c3797703..3f5e94ab 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 23Aug00=======================================================================
 1. Added persistant dupe file so that all dupes are stored here (including
 announces) - announces are now kept for 5 days (as default).
+2. limit the characters stored in a dupe for spots and announces
 20Aug00=======================================================================
 1. Added system Alias for set/nodxgrid => unset/dxgrid
 2. Add full individual checking for all PC protocol fields in all messages
diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index 987b885d..84aa55ed 100644
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -26,6 +26,7 @@ sub dup
 
 	chomp $text;
 	unpad($text);
+	$text =~ s/[^ a-zA-Z0-9]//g;
 	$text = substr($text, 0, $duplth) if length $text > $duplth; 
 	my $dupkey = "A$to|$text";
 	return DXDupe::check($dupkey, $main::systime + $dupage);
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6e5efeaf..6b11228b 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1259,7 +1259,10 @@ sub send_announce
 				$dxchan->send($routeit) unless $dxchan->{isolate} || $self->{isolate};
 				
 			}
-		} elsif ($dxchan->is_user && $dxchan->{ann}) {
+		} elsif ($dxchan->is_user) {
+			unless ($dxchan->{ann}) {
+				next if $_[0] ne $main::myalias && $_[0] ne $main::mycall;
+			}
 			next if $target eq 'SYSOP' && $dxchan->{priv} < 5;
 			my $buf = "$to$target de $_[0]: $text";
 			$buf .= "\a\a" if $dxchan->{beep};
diff --git a/perl/Spot.pm b/perl/Spot.pm
index e7a619e0..e06c6cee 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -215,6 +215,7 @@ sub dup
 	chomp $text;
 	$text = substr($text, 0, $duplth) if length $text > $duplth; 
 	unpad($text);
+	$text =~ s/[^ a-zA-Z0-9]//g;
 	my $dupkey = "X$freq|$call|$d|$text";
 	return DXDupe::check($dupkey, $main::systime+$dupage);
 }
-- 
2.43.0