X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=cmd%2Fset%2Fnode.pl;h=dd9e0a372d0bc54605631f6e955bec24d4e4a821;hp=fa0cf8007509b0f96cecff1784ab3796bc301ef7;hb=6ff342e3d9353dcb3094f600157a41abf678b212;hpb=fa57f72c26032aae4c1a20358e829ba9afbf460c

diff --git a/cmd/set/node.pl b/cmd/set/node.pl
index fa0cf800..dd9e0a37 100644
--- 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;
 
@@ -23,10 +24,12 @@ foreach $call (@args) {
 	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, $self->msg('node', $call);
+      push @out, $self->msg($create ? 'nodec' : 'node', $call);
 	} else {
       push @out, $self->msg('e3', "Set Node", $call);
 	}