X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fexport.pl;h=2ae0d427aeefa412c637db7509f93a1efc78f070;hb=eac4538f1f78b3d014539dc548fc6322e8337429;hp=0e803a2fa8c8010d08468e8588b0e8fd9828d029;hpb=ba0bc47c95759a369af81fb19556c48261530a79;p=spider.git diff --git a/cmd/export.pl b/cmd/export.pl index 0e803a2f..2ae0d427 100644 --- a/cmd/export.pl +++ b/cmd/export.pl @@ -3,7 +3,7 @@ # # Copyright (c) Dirk Koopman G1TLH # -# $Id$ +# # my ($self, $line) = @_; @@ -14,7 +14,7 @@ my @body; my $ref; my $fn; -return (1, $self->msg("e5")) if $self->priv < 9 || $self->consort ne 'local' || $self->remotecmd; +return (1, $self->msg("e5")) if $self->priv < 9 || $self->consort ne 'local' || $self->remotecmd || $self->inscript; return (1, $self->msg("export1")) unless @f == 2 && $f[0] =~ /^\d+$/; $msgno = $f[0];