]> scm.dxcluster.org Git - spider.git/blob - cmd/delete/usdb.pl
add privilege checks to (un)set/show/bad* cmds
[spider.git] / 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);