2 # set 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;
12 my @words = split /\s+/, uc $line;
15 foreach my $w (@words) {
18 if (@in = BadWords::check($w)) {
19 push @out, "BadWord $w already matched by '$in[0]', ignored";
21 @in = BadWords::add_regex($w);
22 push @out, "BadWord $w added as '$in[0]'";
27 BadWords::generate_regex();