try to improve dx again

diff --git a/Changes b/Changes
index e457e50b08e6a68826473ede99f8b0d6198dcb17..dad23d01d0583aaddfa0cd75e27a775ece05dd41 100644 (file)
--- 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 b8f2efad9b9ec5ecce124edb4231f5761d86625c..958e7ad18e6d0a7e82d52e0cf45cf741f3f78d3e 100644 (file)
--- 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";