]> www.dxcluster.org Git - spider.git/blob - cmd/set/lockout.pl
*** empty log message ***
[spider.git] / cmd / set / lockout.pl
1 #
2 # lock a user out
3 #
4 # Copyright (c) 1998 Iain Phillips G0RDI
5 #
6 # $Id$
7 #
8 my ($self, $line) = @_;
9 my @args = split /\s+/, $line;
10 my $call;
11 # my $priv = shift @args;
12 my @out;
13 my $user;
14 my $ref;
15
16 return (1, $self->msg('e5')) if $self->priv < 9;
17
18 foreach $call (@args) {
19         $call = uc $call;
20         if ($ref = DXUser->get_current($call)) {
21                 $ref->lockout(1);
22                 $ref->put();
23                 push @out, $self->msg("lockout", $call);
24         } else {
25                 $ref = DXUser->new($call);
26                 $ref->lockout(1);
27                 $ref->put();
28                 push @out, $self->msg("lockoutc", $call);
29         }
30 }
31 return (1, @out);