| 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
# 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', "<tt>$copy->{'dest'}</tt>");
if (@files > 3) {
print &text('exec_files1', scalar(@files), $under),"<p>\n";
}
else {
print &text('exec_files2',
join(", ", map { "<tt>$_</tt>" } @files), $under),"<p>\n";
}
@run = &run_cluster_job($copy, \&callback);
if (!@run) {
print "$text{'exec_nohosts'}<p>\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 "<b>",&text('exec_failed', $d, $_[2]),"</b><p>\n";
}
else {
if ($_[6]) {
# Show before command output
print "<b>",&text('exec_before', $d),"</b><br>\n";
print "<tt>",join("<br>", &mailboxes::wrap_lines($_[6], 80)),
"</tt><p>\n";
}
if (@{$_[4]}) {
# Show created directories
print "<b>",&text('exec_made', $d),"</b><br><ul>\n";
foreach $f (@{$_[4]}) {
print "<tt>$f</tt><br>\n";
}
print "</ul><p>\n";
}
if (!@{$_[2]}) {
# Nothing copied
print "<b>",&text('exec_nothing', $d),"</b><p>\n";
}
else {
# Show copied files
print "<b>",&text('exec_success', $d),"</b><br><ul>\n";
foreach $f (@{$_[2]}) {
print "<tt>$f</tt><br>\n";
}
print "</ul><p>\n";
}
if (@{$_[3]}) {
# Show failed files
print "<b>",&text('exec_not', $d),"</b><br><ul>\n";
foreach $f (@{$_[3]}) {
print "<tt>$f->[0]</tt> : $f->[1]<br>\n";
}
print "</ul><p>\n";
}
if ($_[5]) {
# Show after command output
print "<b>",&text('exec_cmd', $d),"</b><br>\n";
print "<tt>",join("<br>", &mailboxes::wrap_lines($_[5], 80)),
"</tt><p>\n";
}
}
}