X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fset%2Fvar.pl;h=5352baf3d152f0b765e8647a2f4ffc4c3d4448dc;hb=613301f150d03d194b6c64542d4809c74b1986c6;hp=d2ea1d1380ae4875e25d6c5321919febf7f0c314;hpb=71ce25e28013877858408ae610c9eaf6d1fb001c;p=spider.git diff --git a/cmd/set/var.pl b/cmd/set/var.pl index d2ea1d13..5352baf3 100644 --- a/cmd/set/var.pl +++ b/cmd/set/var.pl @@ -10,11 +10,13 @@ my ($self, $line) = @_; return (1, $self->msg('e5')) if $self->priv < 9 || $self->remotecmd; +return (1, $self->msg('e9')) unless $line; + my ($var, $rest) = split /=|\s+/, $line, 2; $rest =~ s/^=\s*//; -Log('DXCommand', $self->call . " set $var = $rest" ); +Log('DXCommand', $self->call . " set $var = " . dd($rest) ); eval "$var = $rest"; -return (1, $@ ? $@ : "Ok, $var = $rest" ); +return (1, $@ ? $@ : "Ok, $var = " . dd($rest) );