X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Funset%2Fregister.pl;h=f789d1ed08f3adad52ef37eb0fc7a94a8f3bc161;hb=934a5db829e43833c5f6c45c8cd9919dcfe734b9;hp=7f5b673499a781f3f5d43770870806470054086f;hpb=579810d363939640538f88a9caa86e01fe9c7709;p=spider.git diff --git a/cmd/unset/register.pl b/cmd/unset/register.pl index 7f5b6734..f789d1ed 100644 --- a/cmd/unset/register.pl +++ b/cmd/unset/register.pl @@ -17,15 +17,15 @@ if ($self->priv < 9) { Log('DXCommand', $self->call . " attempted to unregister @args"); return (1, $self->msg('e5')); } -return (1, $self->msg('reginac')) unless $main::reqreq; +return (1, $self->msg('reginac')) unless $main::reqreg; foreach $call (@args) { $call = uc $call; - unless ($self->remotecmd) { + unless ($self->remotecmd || $self->inscript) { if ($ref = DXUser->get_current($call)) { $ref->registered(0); $ref->put(); - my $dxchan = DXChannel->get($call); + my $dxchan = DXChannel::get($call); $dxchan->registered(0) if $dxchan; push @out, $self->msg("regun", $call); Log('DXCommand', $self->call . " unregistered $call");