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
49 lines
826 B
Perl
49 lines
826 B
Perl
#
|
|
# set user type to 'S' for Spider node
|
|
#
|
|
# 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);
|
|
$create = !$user;
|
|
$user = DXUser->new($call) if $create;
|
|
if ($user) {
|
|
$user->sort('R');
|
|
$user->homenode($call);
|
|
$user->priv(1) unless $user->priv;
|
|
$user->close();
|
|
push @out, $self->msg($create ? 'noderc' : 'noder', $call);
|
|
} else {
|
|
push @out, $self->msg('e3', "Set Spider", $call);
|
|
}
|
|
}
|
|
}
|
|
return (1, @out);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|