$fp = undef;
$maxspots = 50; # maximum spots to return
$defaultspots = 10; # normal number of spots to return
-$maxdays = 365; # normal maximum no of days to go back
+$maxdays = 3*31; # normal maximum no of days to go back
$dirprefix = "spots";
$duplth = 20; # the length of text to use in the deduping
$dupage = 3*3600; # the length of time to hold spot dups
$expr =~ s/\$f(\d)/\$ref->[$1]/g; # swap the letter n for the correct field name
# $expr =~ s/\$f(\d)/\$spots[$1]/g; # swap the letter n for the correct field name
- dbg("search", "expr='$expr', spotno=$from-$to, day=$dayfrom-$dayto\n");
+ dbg("search", "hint='$hint', expr='$expr', spotno=$from-$to, day=$dayfrom-$dayto\n");
# build up eval to execute
$eval = qq(
} elsif ($aa < $bb) {
$out .= "[$aa-$bb]";
} else {
- $out .= "[$bb-$aa]";
+ $out .= "[0-$bb$aa-9]";
}
}
return $out;
chomp $text;
$text = substr($text, 0, $duplth) if length $text > $duplth;
unpad($text);
+ $text =~ s/[\\\%]\d+//g;
$text =~ s/[^a-zA-Z0-9]//g;
my $dupkey = "X$freq|$call|$d|\L$text";
return DXDupe::check($dupkey, $main::systime+$dupage);