]> dxcluster.org Git - spider.git/blob - cmd/show/badword.pl
add capabilities line
[spider.git] / cmd / show / badword.pl
1 #
2 # show list of bad dx callsigns
3 #
4 # Copyright (c) 1998 - Dirk Koopman G1TLH
5 #
6 #
7 #
8 my ($self, $line) = @_;
9 return (1, $self->msg('e5')) if $self->remotecmd;
10 # are we permitted?
11 return (1, $self->msg('e5')) if $self->priv < 6;
12 $line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line));
13 return $BadWords::badword->show(1, $self);
14