]> dxcluster.net Git - spider.git/commitdiff
add extra spot dupe debugging
authorDirk Koopman <djk@tobit.co.uk>
Fri, 14 Jun 2024 21:34:06 +0000 (22:34 +0100)
committerDirk Koopman <djk@tobit.co.uk>
Fri, 14 Jun 2024 21:34:06 +0000 (22:34 +0100)
perl/Spot.pm

index d04ece059ce608b3f2de562f2d2dd7e72cf2cf6d..d25ed1223e43d7dbfc1f7a85fcd3b77d5a5a5f6f 100644 (file)
@@ -540,7 +540,7 @@ sub dup
        $ldupkey = $oldstyle ? "X|$call|$by|$node|$freq|$d|$text" : "X|$call|$by|$node|$qrg|$nd|$text";
        
        $t = DXDupe::find($ldupkey);
-       dbg("Spot::dup ldupkey $ldupkey t '$t'") if isdbg('spotdup');
+       dbg("Spot::dup ldupkey $ldupkey t '$t'" . ($t?' DUPE':' NEW')) if isdbg('spotdup');
        $dtext .= ' DUPE' if $t;
        dbg("text transforms: $dtext") if length $text && isdbg('spottext');
        return 1 if $t > 0;     
@@ -552,7 +552,7 @@ sub dup
        if (length $otext && $otext ne $text) {
                $ldupkey = $oldstyle ? "X|$freq|$call|$by|$otext" : "X|$qrg|$call|$by|$otext";
                $t = DXDupe::find($ldupkey);
-               dbg("Spot::dup (OTEXT) ldupkey $ldupkey t '$t'") if isdbg('spotdup');
+               dbg("Spot::dup (OTEXT) ldupkey $ldupkey t '$t'" . ($t?' DUPE':' NEW')) if isdbg('spotdup');
                if (isdbg('spottext')) {
                        $dtext .= sprintf q{ DUBIOUS '%s'}, join '', @dubious if @dubious;
                        $dtext .= ' DUPE (OTEXT)' if $t;