mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
29 lines
662 B
Perl
29 lines
662 B
Perl
#!/usr/bin/perl
|
|
#
|
|
# pretend that you are another user, useful for reseting
|
|
# those silly things that people insist on getting wrong
|
|
# like set/homenode et al
|
|
#
|
|
# Copyright (c) 1999 Dirk Koopman G1TLH
|
|
#
|
|
my ($self, $line) = @_;
|
|
|
|
my $mycall = $self->call;
|
|
|
|
|
|
if ($self->priv < 2) {
|
|
Log('DXCommand', "$mycall is trying to nospawn $line locally");
|
|
return (1, $self->msg('e5'));
|
|
}
|
|
if ($self->remotecmd || $self->inscript) {
|
|
Log('DXCommand', "$mycall is trying to nospawn remotely");
|
|
return (1, $self->msg('e5'));
|
|
}
|
|
|
|
Log('DXCommand', "nospawn '$line' by $mycall");
|
|
$self->{_nospawn} = 1;
|
|
my @out = $self->run_cmd($line);
|
|
delete $self->{_nospawn};
|
|
|
|
return (1, @out);
|