2 # show 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;
16 if ($line =~ /^\s*full/i) {
17 foreach my $w (BadWords::list_regex(1)) {
23 foreach my $w (BadWords::list_regex()) {
26 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
31 push @l, "" while @l < 5;
32 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
35 push @out, "$count BadWords";