projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e4df861
)
made filtering work properly for spots
author
djk
<djk>
Fri, 3 Sep 1999 11:20:18 +0000
(11:20 +0000)
committer
djk
<djk>
Fri, 3 Sep 1999 11:20:18 +0000
(11:20 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index c1e83d7907633558f95349df709f8d5cc9b55f18..5211b7aa622ec6553084b3371925bd0919d8405a 100644
(file)
--- 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;
# 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) {
if ($dxchan->is_ak1a) {
next if $dxchan == $self;
if ($hops) {