- $text =~ s/[^a-zA-Z0-9]//g;
- for (-60, -120, -180, -240, 0, 60, 120, 180, 240, 300) {
- my $dt = $d - $_;
- my $ldupkey = "X$freq|$call|$dt|\L$text";
- my $sdupkey = "X$freq|$call|$dt|$by";
- return 1 if DXDupe::find($ldupkey) || DXDupe::find($sdupkey);
+ $text =~ s/[^\w]//g;
+ $text = substr($text, 0, $duplth) if length $text > $duplth;
+ my $ldupkey = "X$freq|$call|$by|$text";
+ my $t = DXDupe::find($ldupkey);
+ return 1 if $t && $t - $main::systime > 0;
+ if ($otext) {
+ DXDupe::add($ldupkey, $main::systime+$dupage);
+ $otext = substr($otext, 0, $duplth) if length $otext > $duplth;
+ $ldupkey = "X$freq|$call|$by|$otext";
+ $t = DXDupe::find($ldupkey);
+ return 1 if $t && $t - $main::systime > 0;
+ DXDupe::add($ldupkey, $main::systime+$dupage);