2 # set user type to 'A' for AK1A node
4 # Please note that this is only effective if the user is not on-line
6 # Copyright (c) 1998 - Dirk Koopman
11 my ($self, $line) = @_;
12 my @args = split /\s+/, $line;
18 return (1, $self->msg('e5')) if $self->priv < 5;
20 foreach $call (@args) {
22 if ($call eq $main::mycall) {
23 push @out, $self->msg('e11', $call);
26 if ($call eq $main::myalias) {
27 push @out, $self->msg('e11', $call);
30 my $chan = DXChannel::get($call);
32 push @out, $self->msg('nodee1', $call);
34 $user = DXUser::get($call);
36 $user = DXUser->new($call) if $create;
39 $user->homenode($call);
41 $user->priv(1) unless $user->priv;
43 push @out, $self->msg($create ? 'nodeac' : 'nodea', $call);
45 push @out, $self->msg('e3', "Set Node", $call);