cmd/unset/hops.pl

   1 #
   2 # unset/hops commands
   3 #
   4 # Copyright (c) 2000 Dirk Koopman G1TLH
   5 #
   6 #
   7 #
   8 my ($self, $line) = @_;
   9 return (0, $self->msg('e5')) if $self->priv < 8;
  10
  11 my @f = split /\s+/, $line;
  12 my @out;
  13 my $call;
  14
  15 if (is_callsign(uc $f[0])) {
  16         $call = uc shift @f;
  17 } elsif ($f[0] eq 'node_default' || $f[0] eq 'user_default') {
  18         $call = shift @f;
  19 }
  20
  21 my $sort = lc shift @f if $f[0] =~ /^ann|spots|wwv|wcy|route$/i;
  22
  23 return (0, $self->msg('unsethop1')) unless $call && $sort;
  24
  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;
  28
  29 delete $ref->{hops};
  30 $ref->write;
  31 $ref->install;
  32
  33 return (0, $self->msg('unsethop2', $sort, $call));