SSID appears to work!

[spider.git] / cmd / set / node.pl

diff --git a/cmd/set/node.pl b/cmd/set/node.pl
index 78baa1893397aa84d018d086169a36487663b826..dd9e0a372d0bc54605631f6e955bec24d4e4a821 100644 (file)
--- a/cmd/set/node.pl
+++ b/cmd/set/node.pl
@@ -13,6 +13,7 @@ my @args = split /\s+/, $line;
 my $call;
 my @out;
 my $user;
+my $create;
 
 return (0) if $self->priv < 5;
 
@@ -20,15 +21,17 @@ foreach $call (@args) {
   $call = uc $call;
   my $chan = DXChannel->get($call);
   if ($chan) {
-       push @out, DXM::msg('nodee1', $call);
+       push @out, $self->msg('nodee1', $call);
   } else {
     $user = DXUser->get($call);
+       $create = !$user;
+       $user = DXUser->new($call) if $create;
        if ($user) {
          $user->sort('A');
          $user->close();
-      push @out, DXM::msg('node', $call);
+      push @out, $self->msg($create ? 'nodec' : 'node', $call);
        } else {
-      push @out, DXM::msg('e3', "Set Node", $call);
+      push @out, $self->msg('e3', "Set Node", $call);
        }
   }
 }