4 # Copyright (c) 1998 - Dirk Koopman
9 my ($self, $line) = @_;
10 my @args = split /\s+/, $line;
14 @args = $self->call if (!@args || $self->priv < 9);
16 foreach $call (@args) {
18 my $user = ($call eq $self->call) ? $self->user : DXUser->get($call);
21 push @out, DXM::msg('dxs', $call);
23 push @out, DXM::msg('e3', "Set DX Spots", $call);