nospawnify some of the commands

[spider.git] / cmd / nospawn.pl

diff --git a/cmd/nospawn.pl b/cmd/nospawn.pl
new file mode 100644 (file)
index 0000000..ad81feb
--- /dev/null
+++ b/cmd/nospawn.pl
@@ -0,0 +1,28 @@
+#!/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);