From 396748e9df6ffc9091cb68d2487300019b6f9290 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 30 Jan 2025 11:48:27 +0000
Subject: [PATCH] fix dupe detection in dx command

---
 cmd/dx.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/cmd/dx.pl b/cmd/dx.pl
index dde04a86..b8f2efad 100644
--- a/cmd/dx.pl
+++ b/cmd/dx.pl
@@ -180,8 +180,13 @@ if ($freq =~ /^69/ || $localonly) {
 		push @{$self->{sluggedpcs}}, [61, $spot, \@spot];
 	} else {
 		# store in spots database 
-		Spot::add(@spot);
-		DXProt::send_dx_spot($self, $spot, @spot);
+		unless (Spot::dup_find(@spot)) {
+			Spot::dup_add(0, @spot);
+			DXProt::send_dx_spot($self, $spot, @spot);
+		} else {
+			push @out, "Duplicate spot: $line";
+			LogDbg("DXCommand", "Spot dupe from $spotter: $line");
+		} 
 	}
 }
 
-- 
2.43.0