From 0a361c4ca62246f73ca805e2262c3edeb7317805 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 4 Apr 2001 09:59:36 +0000
Subject: [PATCH] add do command

---
 cmd/do.pl       | 15 +++++++++++++++
 perl/cluster.pl |  2 +-
 2 files changed, 16 insertions(+), 1 deletion(-)
 create mode 100644 cmd/do.pl

diff --git a/cmd/do.pl b/cmd/do.pl
new file mode 100644
index 00000000..7001d987
--- /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" );
diff --git a/perl/cluster.pl b/perl/cluster.pl
index 185ec787..0a66c1db 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -38,7 +38,7 @@ BEGIN {
 	close CLLOCK;
 
 	$is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows?
-
+	$systime = time;
 }
 
 use Msg;
-- 
2.34.1