X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=a6982f1f2bf53a47025e22200556f58c7ba39522;hb=26622cd57a1f5b29f9e22092cd4149c9a1e30dc6;hp=b1d37a9b8e0e741447a2343655c0fdd2acafeec5;hpb=8e6600cb1ab69aed0db1f69b482484e4831b7c16;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index b1d37a9b..a6982f1f 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -238,10 +238,10 @@ sub normal foreach $dxchan (@dxchan) { next if $dxchan == $self; my $routeit; - my ($filter, $hops) = Filter::it($dxchan->{spotfilter}, @spot) if $dxchan->{spotfilter}; + my ($filter, $hops) = Filter::it($dxchan->{spotfilter}, @spot, $self->{call} ) if $dxchan->{spotfilter}; if ($hops) { - $line =~ s/\^H\d+\^\~$/\^H$hops\^\~/; $routeit = $line; + $routeit =~ s/\^H\d+\^\~$/\^H$hops\^\~/; } else { $routeit = adjust_hops($dxchan, $line); # adjust its hop count by node name next unless $routeit;