- my $routeit = adjust_hops($dxchan, $line); # adjust its hop count by node name
- my $filter = Filter::it($dxchan->{spotfilter}, @spot) if $dxchan->{spotfilter};
+ my $routeit;
+ my ($filter, $hops) = Filter::it($dxchan->{spotfilter}, @spot, $self->{call} ) if $dxchan->{spotfilter};
+ if ($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;
+ }