X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Funset%2Fnode.pl;h=5fab45ebe178cbed5183a12af80da2dfb337512c;hb=7de34899527cbc4dfacdcc6452926b3d2d73792c;hp=bd0a29efa8c95d517377d4b783fb3b6a60bcb2ce;hpb=09c40605dd6922b1ac8d08767614697f51e094b2;p=spider.git diff --git a/cmd/unset/node.pl b/cmd/unset/node.pl index bd0a29ef..5fab45eb 100644 --- a/cmd/unset/node.pl +++ b/cmd/unset/node.pl @@ -15,19 +15,19 @@ my @out; my $user; my $create; -return (0) if $self->priv < 5; +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); - return (1, $self->msg('usernf', $call)) if !$user; - $user->sort('U'); - $user->close(); - push @out, $self->msg('nodeu', $call); - } + $call = uc $call; + my $chan = DXChannel->get($call); + if ($chan) { + push @out, $self->msg('nodee1', $call); + } else { + $user = DXUser->get_exact($call); + return (1, $self->msg('usernf', $call)) if !$user; + $user->sort('U'); + $user->close(); + push @out, $self->msg('nodeu', $call); + } } return (1, @out);