mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
f155969d60
2. Added WCY processing 3. Added new node types (clx, spider, dxnet, arcluster) 4. Store echo settings 5. Store pagelth settings 6. sort out source of DXVars for callbot.pl
35 lines
654 B
Perl
35 lines
654 B
Perl
#
|
|
# set user type BACK TO 'U' (user)
|
|
#
|
|
# Please note that this is only effective if the user is not on-line
|
|
#
|
|
# Copyright (c) 1998 - Dirk Koopman
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
my ($self, $line) = @_;
|
|
my @args = split /\s+/, $line;
|
|
my $call;
|
|
my @out;
|
|
my $user;
|
|
my $create;
|
|
|
|
return (1, $self->msg('e5')) if $self->priv < 5;
|
|
|
|
foreach $call (@args) {
|
|
$call = uc $call;
|
|
my $chan = DXChannel->get($call);
|
|
if ($chan) {
|
|
push @out, $self->msg('nodee1', $call);
|
|
} else {
|
|
$user = DXUser->get($call);
|
|
return (1, $self->msg('usernf', $call)) if !$user;
|
|
$user->sort('U');
|
|
$user->priv(0);
|
|
$user->close();
|
|
push @out, $self->msg('nodeu', $call);
|
|
}
|
|
}
|
|
return (1, @out);
|