| 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-cron/ |
Upload File : |
#!/usr/bin/perl
# exec.cgi
# Run the cron job on all configured servers
require './cluster-cron-lib.pl';
&ReadParse();
&ui_print_unbuffered_header(undef, $text{'exec_title'}, "");
# Run on all servers and show output
@jobs = &list_cluster_jobs();
($job) = grep { $_->{'cluster_id'} eq $in{'id'} } @jobs;
$job || &error($text{'edit_emissing'});
print &text('exec_cmd', "<tt>$job->{'cluster_command'}</tt>"),"<p>\n";
@run = &run_cluster_job($job, \&callback);
if (!@run) {
print "$text{'exec_nohosts'}<p>\n";
}
$job->{'run'} = [ map { $_->{'host'} } @run ]; # for logging
&webmin_log("exec", "cron", $job->{'cluster_user'}, $job);
&ui_print_footer("edit.cgi?id=$in{'id'}", $cron::text{'edit_return'},
"", $text{'index_return'});
# callback(ok, &server, message)
# Called back to print results for each host the job is run on
sub callback
{
my ($ok, $s, $msg) = @_;
my $d = ($s->{'host'} || &get_system_hostname()).
($s->{'desc'} ? " ($s->{'desc'})" : "");
if (!$ok) {
# Failed - show error
print "<b>",&text('exec_failed', $d, &html_escape($msg)),"</b><p>\n";
}
else {
# Show output if any
print "<b>",&text('exec_success', $d),"</b>\n";
if ($ok) {
print "<ul><pre>",&html_escape($msg),"</pre></ul><p>\n";
}
else {
print "<br><ul><i>$cron::text{'exec_none'}</i></ul><p>\n";
}
}
}