| Server IP : 49.231.201.246 / Your IP : 216.73.216.248 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : 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_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/bacula-backup/ |
Upload File : |
#!/usr/bin/perl
# Create, update or delete a job
require './bacula-backup-lib.pl';
&ReadParse();
if ($in{'run'}) {
# Just run this job
&redirect("gbackup.cgi?job=".&urlize($in{'old'}).
"&wait=$config{'wait'}");
exit;
}
$conf = &get_director_config();
$parent = &get_director_config_parent();
@jobs = &find("JobDefs", $conf);
@nodegroups = &list_node_groups();
if (!$in{'new'}) {
$job = &find_by("Name", "ocjob_".$in{'old'}, \@jobs);
$job || &error($text{'job_egone'});
$oldclient = &find_value("Client", $job->{'members'});
$oldclient = &is_oc_object($oldclient);
}
else {
$job = { 'type' => 1,
'name' => 'JobDefs',
'members' => [ ] };
}
&lock_file($parent->{'file'});
if ($in{'delete'}) {
# Just delete this one
&save_directive($conf, $parent, $job, undef, 0);
}
else {
# Validate and store inputs
&error_setup($text{'job_err'});
$in{'name'} =~ /\S/ || &error($text{'job_ename'});
if ($in{'new'} || $in{'name'} ne $in{'old'}) {
$clash = &find_by("Name", "ocjob_".$in{'name'}, \@jobs);
$clash && &error($text{'job_eclash'});
}
&save_directive($conf, $job, "Name", "ocjob_".$in{'name'}, 1);
&save_directive($conf, $job, "Type", $in{'type'} || undef, 1);
&save_directive($conf, $job, "Level", $in{'level'} || undef, 1);
&save_directive($conf, $job, "Client", $in{'client'} || undef, 1);
&save_directive($conf, $job, "FileSet", $in{'fileset'} || undef, 1);
&save_directive($conf, $job, "Schedule", $in{'schedule'} || undef, 1);
&save_directive($conf, $job, "Storage", $in{'storage'} || undef, 1);
&save_directive($conf, $job, "Pool", $in{'pool'} || undef, 1);
&save_directive($conf, $job, "Messages", $in{'messages'} || undef, 1);
$in{'priority_def'} || $in{'priority'} =~ /^\d+$/ ||
&error($text{'job_epriority'});
&save_directive($conf, $job, "Priority",
$in{'priority_def'} ? undef : $in{'priority'}, 1);
&save_directive($conf, $job, "Run Before Job",
$in{'before_def'} ? undef : $in{'before'}, 1);
&save_directive($conf, $job, "Run After Job",
$in{'after_def'} ? undef : $in{'after'}, 1);
&save_directive($conf, $job, "Client Run Before Job",
$in{'cbefore_def'} ? undef : $in{'cbefore'}, 1);
&save_directive($conf, $job, "Client Run After Job",
$in{'cafter_def'} ? undef : $in{'cafter'}, 1);
# Create or update
if ($in{'new'}) {
&save_directive($conf, $parent, undef, $job, 0);
}
}
# Sync the old and new node groups
if ($oldclient) {
($oldnodegroup) = grep { $_->{'name'} eq $oldclient } @nodegroups;
&sync_group_clients($oldnodegroup) if ($oldnodegroup);
}
if (!$in{'delete'}) {
$client = &is_oc_object($in{'client'});
($nodegroup) = grep { $_->{'name'} eq $client } @nodegroups;
if ($nodegroup && $nodegroup ne $oldnodegroup) {
&sync_group_clients($nodegroup);
}
}
&flush_file_lines();
&unlock_file($parent->{'file'});
&auto_apply_configuration();
&webmin_log($in{'new'} ? "create" : $in{'delete'} ? "delete" : "modify",
"gjob", $in{'old'} || $in{'name'});
&redirect("list_gjobs.cgi");