| 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
# save.cgi
# Save an existing cluster cron job, or create a new one
require './cluster-cron-lib.pl';
&error_setup($text{'save_err'});
&ReadParse();
if ($in{'exec'}) {
&redirect("exec.cgi?id=".&urlize($in{'id'}));
return;
}
elsif ($in{'delete'}) {
&redirect("delete.cgi?id=".&urlize($in{'id'}));
return;
}
@jobs = &list_cluster_jobs();
if ($in{'new'}) {
$job = { 'type' => 0,
'cluster_id' => time()."-".$$ };
}
else {
($oldjob) = grep { $_->{'cluster_id'} eq $in{'id'} } @jobs;
$job->{'cluster_id'} = $oldjob->{'cluster_id'};
$job->{'type'} = $oldjob->{'type'};
$job->{'file'} = $oldjob->{'file'};
$job->{'line'} = $oldjob->{'line'};
$job->{'nolog'} = $oldjob->{'nolog'};
}
# Check and parse inputs
if ($in{"cmd"} !~ /\S/) {
&error($cron::text{'save_ecmd'});
}
if (!$in{'user'}) {
&error($cron::text{'save_euser'});
}
&cron::parse_times_input($job, \%in);
$in{input} =~ s/\r//g; $in{input} =~ s/%/\\%/g;
$in{cmd} =~ s/%/\\%/g;
$job->{'active'} = $in{'active'};
$job->{'cluster_command'} = $in{'cmd'};
if ($in{input} =~ /\S/) {
@inlines = split(/\n/ , $in{input});
$job->{'cluster_input'} .= join('%' , @inlines);
}
$job->{'command'} = "$cluster_cron_cmd $job->{'cluster_id'}";
$job->{'cluster_user'} = $in{'user'};
$job->{'user'} = 'root';
$job->{'cluster_server'} = join(" ", split(/\0/, $in{'server'}));
# Make sure the wrapper script exists
if (!-r $cluster_cron_cmd) {
&lock_file($cluster_cron_cmd);
&cron::create_wrapper($cluster_cron_cmd, $module_name, "cron.pl");
&unlock_file($cluster_cron_cmd);
}
if (!$in{'new'}) {
# Editing an existing job
&modify_cluster_job($job);
}
else {
# Creating a new job
&create_cluster_job($job);
}
if ($in{'new'}) {
&webmin_log("create", "cron", $job->{'cluster_user'}, $job);
}
else {
&webmin_log("modify", "cron", $job->{'cluster_user'}, $job);
}
&redirect("");