4 # Copyright (c) 2000 Dirk Koopman G1TLH
8 my ($self, $line) = @_;
9 return (0, $self->msg('e5')) if $self->priv < 8;
11 my @f = split /\s+/, $line;
15 if (is_callsign(uc $f[0])) {
17 } elsif ($f[0] eq 'node_default' || $f[0] eq 'user_default') {
21 my $sort = lc shift @f if $f[0] =~ /^ann|spots|wwv|wcy|route$/i;
23 return (0, $self->msg('unsethop1')) unless $call && $sort;
25 my $ref = Filter::read_in($sort, $call, 0);
26 $ref = Filter->new($sort, $call, 0) if !$ref || $ref->isa('Filter::Old');
27 return (0, $self->msg('filter5', '', $sort, $call)) unless $ref;
33 return (0, $self->msg('unsethop2', $sort, $call));