2 # set list of bad dx nodes
4 # Copyright (c) 2021 - Dirk Koopman G1TLH
8 my ($self, $line) = @_;
9 return (1, $self->msg('e5')) if $self->remotecmd;
11 return (1, $self->msg('e5')) if $self->priv < 6;
14 my @in = split /\s+/, $line;
15 return (1, "set/badip: need IP, IP-IP or IP/24") unless @in;
17 eval{ DXCIDR::add($_); };
18 return (1, "set/badip: $_ $@") if $@;
22 my $list = join ' ', @in;
23 push @out, "set/badip: added $count entries: $list";