| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,mail,shell_exec,system,proc_open,popen,ini_alter,dl,proc_close,curl_exec,curl_multi_exec,readfile,parse_ini_file,escapeshellarg,escapeshellcmd,show_source,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,mail,php_uname,phpinfo MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/cluster-copy/ |
Upload File : |
#!/usr/bin/perl
# cron.pl
# Run a command on multiple servers at once
$no_acl_check++;
require './cluster-copy-lib.pl';
$copy = &get_copy($ARGV[0]);
$copy || die "Copy ID $ARGV[0] does not exist!";
$ENV{'SERVER_ROOT'} = $root_directory; # hack to make 'this server' work
$status = "succeeded";
&run_cluster_job($copy, \&callback);
if ($copy->{'email'}) {
# Email off status message
&foreign_require("mailboxes", "mailboxes-lib.pl");
# Construct and send the email
local $from = $config{'from'} || &mailboxes::get_from_address();
local @files = split(/\t+/, $copy->{'files'});
local $subject = &text('email_subject_'.$status, join(", ", @files));
&mailboxes::send_text_mail($from, $copy->{'email'}, undef, $subject,
$results);
}
# callback(error, &server, message, dirs, command-output)
sub callback
{
local $d = $_[1]->{'desc'} || $_[1]->{'host'};
if (!$_[0]) {
# Failed - show error
$results .= &text('exec_on', $d, $_[2])."\n\n";
$status = "failed";
}
else {
if ($_[6]) {
# Show pre command output
$results .= &text('exec_before', $d)."\n";
$results .= $_[6];
$results .= "\n";
}
if (@{$_[4]}) {
# Show created directories
$results .= &text('exec_made', $d)."\n";
foreach $f (@{$_[4]}) {
$results .= " $f\n";
}
$results .= "\n";
}
if (!@{$_[2]}) {
# Nothing copied
$results .= &text('exec_nothing', $d)."\n";
}
else {
# Show output if any
$results .= &text('exec_success', $d)."\n";
foreach $f (@{$_[2]}) {
$results .= " $f\n";
}
$results .= "\n";
}
if (@{$_[3]}) {
# Show error files
$results .= &text('exec_not', $d)."\n";
foreach $f (@{$_[3]}) {
$results .= " $f->[0] : $f->[1]\n";
}
$results .= "\n";
}
if ($_[5]) {
# Show post command output
$results .= &text('exec_cmd', $d)."\n";
$results .= $_[5];
$results .= "\n";
}
}
}