]> dxcluster.net Git - spider.git/blob - cmd/set/baddx.pl
add missing K field definition
[spider.git] / cmd / set / baddx.pl
1 #
2 # set 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 $DXProt::baddx->set(8, $self->msg('e6'), $self, $line);
14