From: minima Date: Wed, 4 Apr 2001 09:59:36 +0000 (+0000) Subject: add do command X-Git-Tag: R_1_47~47 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a361c4ca62246f73ca805e2262c3edeb7317805;p=spider.git add do command --- 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;