- # build up eval to execute
- $eval = qq(
-# while (<\$fh>) {
-# chomp;
-# my \@spots = split /\\^/o;
-# if ($expr) { # note NO \$expr
-# \$count++;
-# next if \$count < \$from; # wait until from
-# push(\@out, \\\@spots);
-# last LOOP if \$count >= \$to; # stop after to
-# }
-# }
- my \$c;
- my \$ref;
- for (\$c = \$#spots; \$c >= 0; \$c--) {
- \$ref = \$spots[\$c];
- if ($expr) {
- \$count++;
- next if \$count < \$from; # wait until from
- push(\@out, \$ref);
- last LOOP if \$count >= \$to; # stop after to
- }
- }
- );
-
-LOOP:
- for ($i = 0; $i < $maxdays; ++$i) { # look thru $maxdays worth of files only
- my @now = Julian::sub(@fromdate, $i); # but you can pick which $maxdays worth
- last if Julian::cmp(@now, @todate) <= 0;
+ # build up eval to execute
+
+ dbg("Spot::search Spot eval: $expr") if isdbg('searcheval');
+ $expr =~ s/\$r/\$_[0]/g;
+ my $eval = qq{ sub { return $expr; } };
+ dbg("Spot::search Spot eval: $eval") if isdbg('searcheval');
+ my $ecode = eval $eval;
+ return ("Spot search error", $@) if $@;
+
+ my $fh;
+ my $now = $fromdate;
+ my $today = Julian::Day->new($main::systime);
+
+ for ($i = $count = 0; $count < $to && $i < $maxdays; ++$i) { # look thru $maxdays worth of files only
+ last if $now->cmp($todate) <= 0;
+
+
+ my $this = $now->sub($i);
+ my $fn = $fp->fn($this);
+ my $cachekey = _cachek($this);
+ my $rec = 0;
+
+ if ($spotcachedays > 0 && $spotcache{$cachekey}) {
+ foreach my $r (@{$spotcache{$cachekey}}) {
+ ++$rec;
+ if ($dofilter && $dxchan && $dxchan->{spotsfilter}) {
+ my ($gotone, undef) = $dxchan->{spotsfilter}->it(@$r);
+ next unless $gotone;
+ }
+ if (&$ecode($r)) {
+ ++$count;
+ next if $count < $from;
+ push @out, $r;
+ last if $count >= $to;
+ }
+ }
+ dbg("Spot::search cache recs read: $rec") if isdbg('search');
+ } else {
+ if ($readback) {
+ dbg("Spot::search search using tac fn: $fn $i") if isdbg('search');
+ $fh = IO::File->new("$readback $fn |");
+ }
+ else {
+ dbg("Spot::search search fn: $fp->{fn} $i") if isdbg('search');
+ $fh = $fp->open($now->sub($i)); # get the next file
+ }
+ if ($fh) {
+ my $in;
+ while (<$fh>) {
+ chomp;
+ my @r = split /\^/;
+ ++$rec;
+ if ($dofilter && $dxchan && $dxchan->{spotsfilter}) {
+ my ($gotone, undef) = $dxchan->{spotsfilter}->it(@r);
+ next unless $gotone;
+ }
+ if (&$ecode(\@r)) {
+ ++$count;
+ next if $count < $from;
+ if ($readback) {
+ push @out, \@r;
+ last if $count >= $to;
+ } else {
+ push @out, \@r;
+ shift @out if $count >= $to;
+ }
+ }
+ }
+ dbg("Spot::search file recs read: $rec") if isdbg('search');
+ last if $count >= $to; # stop after to
+ }
+ }
+ }
+ return ("Spot search error", $@) if $@;
+
+ @out = sort {$b->[2] <=> $a->[2]} @out if @out;
+ return @out;
+}
+
+# change a freq range->regular expression
+sub ftor
+{
+ my ($a, $b) = @_;
+ return undef unless $a < $b;
+ $b--;
+ my $d = $b - $a;
+ my @a = split //, $a;
+ my @b = split //, $b;
+ my $out;
+ while (@b > @a) {
+ $out .= shift @b;
+ }
+ while (@b) {
+ my $aa = shift @a;
+ my $bb = shift @b;
+ if (@b < (length $d)) {
+ $out .= '\\d';
+ } elsif ($aa eq $bb) {
+ $out .= $aa;
+ } elsif ($aa < $bb) {
+ $out .= "[$aa-$bb]";
+ } else {
+ $out .= "[0-$bb$aa-9]";
+ }
+ }
+ return $out;
+}
+
+# format a spot for user output in list mode
+sub formatl
+{
+ my $t = ztime($_[3]);
+ my $d = cldate($_[3]);
+ my $spotter = "<$_[5]>";
+ my $comment = $_[4] || '';
+ $comment =~ s/\t+/ /g;
+ my $cl = length $comment;
+ my $s = sprintf "%9.1f %-11s %s %s", $_[1], $_[2], $d, $t;
+ my $width = ($_[0] ? $_[0] : 80) - length($spotter) - length($s) - 4;
+
+ $comment = substr $comment, 0, $width if $cl > $width;
+ $comment .= ' ' x ($width-$cl) if $cl < $width;
+
+# return sprintf "%8.1f %-11s %s %s %-28.28s%7s>", $_[0], $_[1], $d, $t, ($_[3]||''), "<$_[4]" ;
+ return "$s $comment$spotter";
+}
+
+# enter the spot for dup checking and return true if it is already a dup
+sub dup
+{
+ my ($freq, $call, $d, $text, $by, $node, $just_find) = @_;
+
+ # dump if too old
+ return 2 if $d < $main::systime - $dupage;
+
+ # turn the time into minutes (should be already but...)
+ $d = int ($d / 60);
+ $d *= 60;
+
+ # remove SSID or area
+ $by =~ s|[-/]\d+$||;