From: djk <djk>
Date: Fri, 3 Sep 1999 11:20:18 +0000 (+0000)
Subject: made filtering work properly for spots
X-Git-Tag: R_1_32~24
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ac88c21abe28b60bd5b26a8dae2474ad3e81f8a;p=spider.git

made filtering work properly for spots
---

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) {