From 4a537d5ee952ce14ac88ebe07e4f015155b576ee Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 25 Feb 2005 21:05:09 +0000 Subject: [PATCH] latest spot dupe incarnation --- perl/Spot.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/perl/Spot.pm b/perl/Spot.pm index 3844e055..85678a4d 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -370,14 +370,14 @@ sub dup $text = substr($text, 0, $duplth) if length $text > $duplth; $text = pack("C*", map {$_ & 127} unpack("C*", $text)); $text =~ s/[^a-zA-Z0-9]//g; - my $ldupkey = "X$freq|$call|" . uc $text; - my $sdupkey = "X$freq|$call|$by"; + my $ldupkey = "X$freq|$call|$by|" . uc $text; my $t = DXDupe::find($ldupkey); return 1 if $t && $t - $main::systime > 0; - $t = DXDupe::find($sdupkey); - return 1 if $t && $t - $main::systime > 0; DXDupe::add($ldupkey, $main::systime+$dupage); - DXDupe::add($sdupkey, $main::systime+$dupage); +# my $sdupkey = "X$freq|$call|$by"; +# $t = DXDupe::find($sdupkey); +# return 1 if $t && $t - $main::systime > 0; +# DXDupe::add($sdupkey, $main::systime+$dupage); return 0; } -- 2.34.1