X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=72a898079617c35a7f73fabef374475b6ed895b5;hb=d4b94aba599c706c4fcb61aa206b84e166e8b690;hp=08190186ed34a869d16e845926621b4b79184590;hpb=df49d2cf8efcb2b6becf241379700f363a7014df;p=spider.git diff --git a/perl/Spot.pm b/perl/Spot.pm index 08190186..72a89807 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -194,7 +194,7 @@ sub add sub search { - my ($expr, $dayfrom, $dayto, $from, $to, $hint, $dofilter) = @_; + my ($expr, $dayfrom, $dayto, $from, $to, $hint, $dxchan) = @_; my $eval; my @out; my $ref; @@ -233,20 +233,20 @@ sub search for (\$c = \$#spots; \$c >= 0; \$c--) { \$ref = \$spots[\$c]; if ($expr) { - if (\$dofilter && \$self->{inspotsfilter}) { - if (\@\$spot < 9) { - my i\@dxcc = Prefix::cty_data(\$spot->[1]); + if (\$dxchan && \$dxchan->{inspotsfilter}) { + if (\@\$ref < 9) { + my \@dxcc = Prefix::cty_data(\$ref->[1]); if (\@dxcc) { pop \@dxcc; - push \@\$spot, \@dxcc; + push \@\$ref, \@dxcc; } - \@dxcc = Prefix::cty_data(\$spot->[4]); + \@dxcc = Prefix::cty_data(\$ref->[4]); if (\@dxcc) { pop \@dxcc; - push \@\$spot, \@dxcc; + push \@\$ref, \@dxcc; } } - my (\$filter, \$hops) = \$self->{inspotsfilter}->it(\@\$spot); + my (\$filter, \$hops) = \$dxchan->{inspotsfilter}->it(\@\$ref); next unless (\$filter); } \$count++;