2 # show list of bad dx callsigns
4 # Copyright (c) 2023 - Dirk Koopman G1TLH
9 my ($self, $line) = @_;
10 return (1, $self->msg('e5')) if $self->remotecmd;
12 return (1, $self->msg('e5')) if $self->priv < 6;
17 my @words = BadWords::check($line);
21 push @out, "Words: " . join ',', @words;
23 if ($line =~ /^\s*full/i || @words) {
24 foreach $w (BadWords::list_regex(1)) {
26 if ($line =~ /^\s*full/) {
29 ($cand) = split /\s+/, $w;
30 #push @out, "cand: $cand";
31 push @out, $w if grep {$cand eq $_} @words;
36 foreach my $w (BadWords::list_regex()) {
39 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
44 push @l, "" while @l < 5;
45 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
48 push @out, "$count BadWords";