projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't expose channel data on talks in gtk mode
[spider.git]
/
cmd
/
set
/
hops.pl
diff --git
a/cmd/set/hops.pl
b/cmd/set/hops.pl
index 5f4edbdbee332f289013a69517c5e2cd13a979cf..c458b57827cfcb7ffab72c2974a556210e62765f 100644
(file)
--- a/
cmd/set/hops.pl
+++ b/
cmd/set/hops.pl
@@
-18,10
+18,10
@@
if (is_callsign(uc $f[0])) {
$call = shift @f;
}
$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+$/;
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');
my $ref = Filter::read_in($sort, $call, 0);
$ref = Filter->new($sort, $call, 0) if !$ref || $ref->isa('Filter::Old');