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 my @list= DXCIDR::list();
16 foreach my $list (@list) {