2 # unset list of bad dx callsigns
4 # Copyright (c) 1998 - 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;
13 my @words = split /\s+/, uc $line;
16 foreach my $w (@words) {
19 unless (@in = BadWords::check($w)) {
20 push @out, "BadWord $w not defined, ignored";
22 @in = BadWords::del_regex($w);
23 push @out, "BadWord $w removed";
28 BadWords::generate_regex();