From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 30 Jan 2025 21:54:42 +0000 (+0000)
Subject: try to improve dx again
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=57b2f76578e5ad1c43abe43c05b68d82ac158802;p=spider.git

try to improve dx again
---

diff --git a/Changes b/Changes
index e457e50b..dad23d01 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,12 @@
 29Jan25======================================================================
 1. Fix dx command <cough>. "I never changed that bit". If I had this would
    never have happened. 
+2. Fixed another fix that was to do with deduping and thus cause locally 
+   generated spots to be stored in the local spot files again. 
+3. Made an attempt to allow perl regex filter statements to work on callsigns
+   as well comments and other text fields. This means that:
+       reject/spot call {wwa$} or info {w\s*\w\*a} 
+   will likely reduce your spots considerably.  
 28Jan25======================================================================
 1. Set default Spot qrg granularity to 1KHz (was 25KHz).
 2. Refine Incoming CCLuster connection handling. It is a requirement that a
diff --git a/cmd/dx.pl b/cmd/dx.pl
index b8f2efad..958e7ad1 100644
--- a/cmd/dx.pl
+++ b/cmd/dx.pl
@@ -175,13 +175,14 @@ if ($freq =~ /^69/ || $localonly) {
 	$ipaddr ||= $main::mycall;	# emergency backstop
 	my $spot = DXProt::pc61($spotter, $freq, $spotted, unpad($line),  $ipaddr);
 	
-	$self->dx_spot(undef, undef, @spot);
+#	$self->dx_spot(undef, undef, @spot);
 	if ($self->isslugged) {
 		push @{$self->{sluggedpcs}}, [61, $spot, \@spot];
 	} else {
 		# store in spots database 
 		unless (Spot::dup_find(@spot)) {
 			Spot::dup_add(0, @spot);
+			Spot::add(@spot);
 			DXProt::send_dx_spot($self, $spot, @spot);
 		} else {
 			push @out, "Duplicate spot: $line";