cmd/load/badip.pl

   1 #
   2 # load list of bad dx nodes
   3 #
   4 # Copyright (c) 2023 - Dirk Koopman G1TLH
   5 #
   6 #
   7 my ($self, $line) = @_;
   8 return (1, $self->msg('e5')) if $self->remotecmd;
   9 # are we permitted?
  10 return (1, $self->msg('e5')) if $self->priv < 6;
  11
  12 my @out;
  13
  14 my $count = 0;
  15 eval{ $count += DXCIDR::load(); };
  16 return (1, "load/badip: $_ $@") if $@;
  17
  18 push @out, "load/badip: added $count entries";
  19 return (1, @out);