]> dxcluster.net Git - spider.git/blob - cmd/unset/usstate.pl
put dx.pl into an explicit handle sub
[spider.git] / cmd / unset / usstate.pl
1 #
2 # unset the usstate flag
3 #
4 # Copyright (c) 2003 - Dirk Koopman
5 #
6 #
7 #
8
9 my ($self, $line) = @_;
10 my @args = split /\s+/, $line;
11 my $call;
12 my @out;
13
14 return (1, $self->msg('db3', 'FCC USDB')) unless $USDB::present;
15
16 @args = $self->call if (!@args || $self->priv < 9);
17
18 foreach $call (@args) {
19         $call = uc $call;
20         my $user = DXUser::get_current($call);
21         if ($user) {
22                 $user->wantusstate(0);
23                 $user->put;
24                 push @out, $self->msg('usstateu', $call);
25         } else {
26                 push @out, $self->msg('e3', "Unset US State", $call);
27         }
28 }
29 return (1, @out);