use DXLog;
use Julian;
use Prefix;
+use DXDupe;
use strict;
-use vars qw($fp $maxspots $defaultspots $maxdays $dirprefix %dup $duplth $dupage);
+use vars qw($fp $maxspots $defaultspots $maxdays $dirprefix $duplth $dupage $filterdef);
$fp = undef;
$maxspots = 50; # maximum spots to return
$defaultspots = 10; # normal number of spots to return
$maxdays = 35; # normal maximum no of days to go back
$dirprefix = "spots";
-%dup = (); # the spot duplicates hash
$duplth = 20; # the length of text to use in the deduping
$dupage = 3*3600; # the length of time to hold spot dups
+$filterdef = bless ([
+ # tag, sort, field, priv, special parser
+ ['freq', 'r', 0, 0, \&decodefreq],
+ ['call', 'c', 1],
+ ['info', 't', 3],
+ ['by', 'c', 4],
+ ['call_dxcc', 'n', 5],
+ ['by_dxcc', 'n', 6],
+ ['origin', 'c', 7, 9],
+ ['call_itu', 'n', 8],
+ ['call_zone', 'n', 9],
+ ['by_itu', 'n', 10],
+ ['by_zone', 'n', 11],
+ ['channel', 'n', 12, 9],
+ ], 'Filter::Cmd');
+
+
+sub decodefreq
+{
+ my $dxchan = shift;
+ my $l = shift;
+ my @f = split /,/, $l;
+ my @out;
+ my $f;
+
+ foreach $f (@f) {
+ my ($a, $b) = $f =~ m{^(\d+)/(\d+)$};
+ if ($a && $b) {
+ push @out, $a, $b;
+ } elsif (($a, $b) = $f =~ m{^(\w+)(?:/(\w+))?$}) {
+ $b = lc $b if $b;
+ my @fr = Bands::get_freq(lc $a, $b);
+ if (@fr) {
+ push @out, @fr; # add these to the list
+ } else {
+ return ('dfreq', $dxchan->msg('dfreq1', $f));
+ }
+ } else {
+ return ('dfreq', $dxchan->msg('e20', $f));
+ }
+ }
+ return (0, join(',', @out));
+}
sub init
{
chomp $text;
$text = substr($text, 0, $duplth) if length $text > $duplth;
unpad($text);
- my $dupkey = "$freq|$call|$d|$text";
- return 1 if exists $dup{$dupkey};
- $dup{$dupkey} = $d; # in seconds (to the nearest minute)
- return 0;
-}
-
-# called every hour and cleans out the dup cache
-sub process
-{
- my $cutoff = $main::systime - $dupage;
- while (my ($key, $val) = each %dup) {
- delete $dup{$key} if $val < $cutoff;
- }
+ $text =~ s/[^a-zA-Z0-9]//g;
+ my $dupkey = "X$freq|$call|$d|\L$text";
+ return DXDupe::check($dupkey, $main::systime+$dupage);
}
sub listdups
{
- my @out;
- for (sort { $dup{$a} <=> $dup{$b} } keys %dup) {
- my $val = $dup{$_};
- push @out, "$_ = $val (" . cldatetime($val) . ")";
- }
- return @out;
+ return DXDupe::listdups('X', $dupage, @_);
}
1;