]> dxspider.org Git - spider.git/commitdiff
add another short dupe check
authorDirk Koopman <djk@tobit.co.uk>
Thu, 13 Mar 2025 14:57:33 +0000 (14:57 +0000)
committerDirk Koopman <djk@tobit.co.uk>
Thu, 13 Mar 2025 14:57:33 +0000 (14:57 +0000)
perl/Spot.pm

index e2bd8f3d716a75213c6a16ec36f9c4c3206c1acf..cc0d2c9261a8132cf78f731dfb30dd25ec4e449d 100644 (file)
@@ -76,7 +76,8 @@ our $minselfspotqrg = 1240000;        # minimum freq above which self spotting is allow
 our $readback = $main::is_win ? 0 : 1; # don't read spot files backwards if it's windows
 our $qrggranularity = 1;       # normalise the qrg to this number of khz (default: 25khz), so tough luck if you have a fumble fingers moment
 our $timegranularity = 600;            # ditto to the nearest 100 seconds 
-our $dupebycall = 11*60+5;         # check that call is not spotted by the same callsign too often - this the interval that each (base) call by pair can recur
+our $dupebycall = 11*60+5;         # check that call is not spotted by the same callsign too often - this the dedupe interval - set to 0 to disable
+our $dupeqrgcall = 11*60+5;        # check that call is not spotted on the same (normalised) qrg too often - this the dedupe interval - set to 0 to disable
 our $store_otext = 0;                  # also store the original rather than "normalised" text/info field - now obsolescent
 
 
@@ -580,15 +581,17 @@ sub dup_add
        }
        
        if ($dupebycall) {
-#          $ldupkey = "X$by|$call";
-#              $t = DXDupe::find($ldupkey);
-#              dbg("Spot::add_dup by call $ldupkey" . ($t?(' DUPE=>'.htime($t)) :' NEW')) if isdbg('spotdup');
+           $ldupkey = "X$by|$call";
+               $t = DXDupe::find($ldupkey);
+               dbg("Spot::add_dup by call $ldupkey" . ($t?(' DUPE=>'.htime($t)) :' NEW')) if isdbg('spotdup');
                # see above 
 #              if ($t > 0) {
 #                      DXDupe::add($ldupkey, $main::systime+$dupage) unless $just_find;
 #                      return 1;       
 #              }
-               
+       }
+
+       if ($dupeqrgcall) {
            $ldupkey = "X$nd|$call";
                $t = DXDupe::find($ldupkey);
                dbg("Spot::add_dup by call $ldupkey" . ($t?(' DUPE=>'.htime($t)) :' NEW')) if isdbg('spotdup');