added inscript test to selected commands

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

diff --git a/cmd/set/register.pl b/cmd/set/register.pl
index 3fa3fcb9a6f077404e97333e092fb42929641238..3a7c7db5f9bf0306189961166474a69780d4d6d6 100644 (file)
--- a/cmd/set/register.pl
+++ b/cmd/set/register.pl
@@ -21,7 +21,7 @@ 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(1);
                        $ref->put();