X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fset%2Fhops.pl;h=c458b57827cfcb7ffab72c2974a556210e62765f;hb=ed6790555f077eb521b8805113155a2ff99cc47e;hp=5f4edbdbee332f289013a69517c5e2cd13a979cf;hpb=ebbe325acb6e18437ae01cb1b32e615c83e24641;p=spider.git diff --git a/cmd/set/hops.pl b/cmd/set/hops.pl index 5f4edbdb..c458b578 100644 --- a/cmd/set/hops.pl +++ b/cmd/set/hops.pl @@ -18,10 +18,10 @@ if (is_callsign(uc $f[0])) { $call = shift @f; } -my $sort = lc shift @f if $f[0] =~ /^ann|spots|wwv|wcy$/i; +my $sort = lc shift @f if $f[0] =~ /^ann|spots|wwv|wcy|route$/i; my $hops = shift @f if $f[0] =~ /^\d+$/; -return (0, $self->msg('sethop1')) unless $call && $sort && $hops; +return (0, $self->msg('sethop1')) unless $call && $sort && defined $hops; my $ref = Filter::read_in($sort, $call, 0); $ref = Filter->new($sort, $call, 0) if !$ref || $ref->isa('Filter::Old');