From 3ac88c21abe28b60bd5b26a8dae2474ad3e81f8a Mon Sep 17 00:00:00 2001 From: djk Date: Fri, 3 Sep 1999 11:20:18 +0000 Subject: [PATCH] made filtering work properly for spots --- perl/DXProt.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index c1e83d79..5211b7aa 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -812,7 +812,13 @@ sub send_dx_spot # taking into account filtering and so on foreach $dxchan (@dxchan) { my $routeit; - my ($filter, $hops) = Filter::it($dxchan->{spotfilter}, @_, $self->{call} ) if $dxchan->{spotfilter}; + my ($filter, $hops); + + if ($dxchan->{spotfilter}) { + ($filter, $hops) = Filter::it($dxchan->{spotfilter}, @_, $self->{call} ); + next unless $filter; + } + if ($dxchan->is_ak1a) { next if $dxchan == $self; if ($hops) { -- 2.43.0