added inscript test to selected commands

[spider.git] / cmd / demonstrate.pl

diff --git a/cmd/demonstrate.pl b/cmd/demonstrate.pl
index 53437b966dd5317517b8dc62bb697a00eee58457..7ef0277ead9151680821f25abf82f25298302f26 100644 (file)
--- a/cmd/demonstrate.pl
+++ b/cmd/demonstrate.pl
@@ -16,7 +16,7 @@ my $mycall = $self->call;
 
 return (1, $self->msg('e7', $call)) unless $dxchan;
 return (1, $self->msg('e31', $call)) unless $dxchan->is_user;
-if ($self->remotecmd) {
+if ($self->remotecmd || $self->inscript) {
        Log('DXCommand', "$mycall is trying to 'demo' to $call remotely");
        return (1, $self->msg('e5'));
 }