projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
94cb296
)
add do command
author
minima
<minima>
Wed, 4 Apr 2001 09:59:36 +0000
(09:59 +0000)
committer
minima
<minima>
Wed, 4 Apr 2001 09:59:36 +0000
(09:59 +0000)
cmd/do.pl
[new file with mode: 0644]
patch
|
blob
perl/cluster.pl
patch
|
blob
|
history
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" );
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 185ec787af1c43b87599e7870fd54cccf816e912..0a66c1db5732a6a2448526ee77d237a734a96026 100755
(executable)
--- 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?
close CLLOCK;
$is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows?
-
+ $systime = time;
}
use Msg;
}
use Msg;