cmd/delete/usdb.pl

   1 #
   2 # delete a usdb entry
   3 #
   4 # Please note that this may screw up everything to do with
   5 # spotting onwards
   6 #
   7 # Copyright (c) 2002 - Dirk Koopman G1TLH
   8 #
   9 #
  10 #
  11
  12 my ($self, $line) = @_;
  13 my @args = split /\s+/, $line;
  14 my $call;
  15 my @out;
  16 my $user;
  17
  18 return (1, $self->msg('e5')) if $self->priv < 9;
  19
  20 foreach $call (@args) {
  21         USDB::del($call);
  22         push @out, $self->msg('susdb4', $call);
  23         Log('DXCommand', $self->msg('susdb4', $call));
  24 }
  25 return (1, @out);