2 # load list of bad dx nodes
4 # Copyright (c) 2023 - Dirk Koopman G1TLH
7 my ($self, $line) = @_;
8 return (1, $self->msg('e5')) if $self->remotecmd;
10 return (1, $self->msg('e5')) if $self->priv < 6;
11 return (1, q{Please install Net::CIDR::Lite or libnet-cidr-lite-perl to use this command}) unless $DXCIDR::active;
16 eval{ $count += DXCIDR::reload(); };
17 return (1, "load/badip: $_ $@") if $@;
19 push @out, "load/badip: added $count entries";