From 0a361c4ca62246f73ca805e2262c3edeb7317805 Mon Sep 17 00:00:00 2001 From: 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.43.0