add do command

[spider.git] / cmd / do.pl

diff --git a/cmd/do.pl b/cmd/do.pl
new file mode 100644 (file)
index 0000000..7001d98
--- /dev/null
+++ b/cmd/do.pl
@@ -0,0 +1,15 @@
+#
+# do anything
+#
+# Rape me!
+#
+# Copyright (c) 2000 - Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+my ($self, $line) = @_;
+return (1, $self->msg('e5')) if $self->priv < 9 || $self->remotecmd;
+Log('DXCommand', $self->call . " do $line" );
+eval "$line";
+return (1, $@ ? $@ : "Ok, done $line" );