cmd/nospawn.pl

   1 #!/usr/bin/perl
   2 #
   3 # Useful for debugging. Make sure that the command runs in foreground
   4 #
   5 # Copyright (c) 1999 Dirk Koopman G1TLH
   6 #
   7 my ($self, $line) = @_;
   8
   9 my $mycall = $self->call;
  10
  11
  12 if ($self->priv < 2) {
  13         Log('DXCommand', "$mycall is trying to nospawn $line locally");
  14         return (1, $self->msg('e5'));
  15 }
  16 if ($self->remotecmd || $self->inscript) {
  17         Log('DXCommand', "$mycall is trying to nospawn remotely");
  18         return (1, $self->msg('e5'));
  19 }
  20
  21 Log('DXCommand', "nospawn '$line' by $mycall");
  22 $self->{_nospawn} = 1;
  23 my @out = $self->run_cmd($line);
  24 delete $self->{_nospawn};
  25
  26 return (1, @out);