- push @out, DXM::msg('e3', "Set Node", $call);
+ $user = DXUser->get($call);
+ $create = !$user;
+ $user = DXUser->new($call) if $create;
+ if ($user) {
+ $user->sort('A');
+ $user->homenode($call);
+ $user->lockout(0);
+ $user->priv(1) unless $user->priv;
+ $user->close();
+ push @out, $self->msg($create ? 'nodeac' : 'nodea', $call);
+ } else {
+ push @out, $self->msg('e3', "Set Node", $call);
+ }