projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix disconnect from peer
[spider.git]
/
cmd
/
set
/
hops.pl
diff --git
a/cmd/set/hops.pl
b/cmd/set/hops.pl
index 43b4594c1dbe1a3120e821f03b1f8a97df944120..a4478f2b3e9412b2bf51624305ab9bcf61dde13b 100644
(file)
--- a/
cmd/set/hops.pl
+++ b/
cmd/set/hops.pl
@@
-3,7
+3,7
@@
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-#
$Id$
+#
#
my ($self, $line) = @_;
return (0, $self->msg('e5')) if $self->priv < 8;
#
my ($self, $line) = @_;
return (0, $self->msg('e5')) if $self->priv < 8;
@@
-21,7
+21,7
@@
if (is_callsign(uc $f[0])) {
my $sort = lc shift @f if $f[0] =~ /^ann|spots|wwv|wcy|route$/i;
my $hops = shift @f if $f[0] =~ /^\d+$/;
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');
my $ref = Filter::read_in($sort, $call, 0);
$ref = Filter->new($sort, $call, 0) if !$ref || $ref->isa('Filter::Old');