#!/usr/local/bin/perl # exec.cgi # Run the cron job on all configured servers require './cluster-copy-lib.pl'; &ReadParse(); &ui_print_unbuffered_header(undef, $text{'exec_title'}, ""); # Run on all servers and show output $copy = &get_copy($in{'id'}); @files = split(/\t+/, $copy->{'files'}); $under = $copy->{'dest'} eq "/" ? "" : &text('exec_under', "$copy->{'dest'}"); if (@files > 3) { print &text('exec_files1', scalar(@files), $under),"
\n"; } else { print &text('exec_files2', join(", ", map { "$_" } @files), $under),"
\n"; } @run = &run_cluster_job($copy, \&callback); if (!@run) { print "$text{'exec_nohosts'}
\n"; } &webmin_log("exec", "copy", undef, $copy); &ui_print_footer("edit.cgi?id=$in{'id'}", $text{'edit_return'}, "", $text{'index_return'}); # callback(error, &server, message, dirs, command-output, before-output) sub callback { local $d = $_[1]->{'desc'} || $_[1]->{'host'}; if (!$_[0]) { # Failed - show error print "",&text('exec_failed', $d, $_[2]),"
\n";
}
else {
if ($_[6]) {
# Show before command output
print "",&text('exec_before', $d),"
\n";
print "",join("
", &mailboxes::wrap_lines($_[6], 80)),
"
\n";
}
if (@{$_[4]}) {
# Show created directories
print "",&text('exec_made', $d),"
\n"; } if (!@{$_[2]}) { # Nothing copied print "",&text('exec_nothing', $d),"
\n";
}
else {
# Show copied files
print "",&text('exec_success', $d),"
\n";
}
if (@{$_[3]}) {
# Show failed files
print "",&text('exec_not', $d),"
\n";
}
if ($_[5]) {
# Show after command output
print "",&text('exec_cmd', $d),"
\n";
print "",join("
", &mailboxes::wrap_lines($_[5], 80)),
"
\n"; } } }