bacula-backup/save_job.cgi

   1 #!/usr/local/bin/perl
   2 # Create, update or delete a job
   3
   4 require './bacula-backup-lib.pl';
   5 &ReadParse();
   6
   7 if ($in{'run'}) {
   8         # Just run this job
   9         &redirect("backup.cgi?job=".&urlize($in{'old'}).
  10                   "&wait=$config{'wait'}");
  11         exit;
  12         }
  13
  14 $conf = &get_director_config();
  15 $parent = &get_director_config_parent();
  16 @jobs = ( &find("JobDefs", $conf), &find("Job", $conf) );
  17
  18 if (!$in{'new'}) {
  19         $job = &find_by("Name", $in{'old'}, \@jobs);
  20         $job || &error($text{'job_egone'});
  21         }
  22 else {
  23         $job = { 'type' => 1,
  24                  'name' => 'Job',
  25                  'members' => [ ] };
  26         }
  27
  28 &lock_file($parent->{'file'});
  29 if ($in{'delete'}) {
  30         # Just delete this one
  31         if ($job->{'name'} eq 'JobDefs') {
  32                 # Cannot delete if anything inherits from it
  33                 $name = &find_value("Name", $job->{'members'});
  34                 $child = &find_dependency("JobDefs", $name, [ "Job" ], $conf);
  35                 $child && &error(&text('job_echild', $child));
  36                 }
  37         &save_directive($conf, $parent, $job, undef, 0);
  38         }
  39 else {
  40         # Validate and store inputs
  41         &error_setup($text{'job_err'});
  42         $in{'name'} =~ /\S/ || &error($text{'job_ename'});
  43         if ($in{'new'} || $in{'name'} ne $in{'old'}) {
  44                 $clash = &find_by("Name", $in{'name'}, \@jobs);
  45                 $clash && &error($text{'job_eclash'});
  46                 }
  47         &save_directive($conf, $job, "Name", $in{'name'}, 1);
  48         &save_directive($conf, $job, "Enabled",
  49                         $in{'enabled'} ? undef : "No", 1);
  50
  51         if ($in{'dmode'} == 0) {
  52                 $job->{'name'} = "JobDefs";
  53                 }
  54         else {
  55                 $job->{'name'} = "Job";
  56                 &save_directive($conf, $job, "JobDefs",
  57                         $in{'dmode'} == 1 ? undef : $in{'defs'}, 1);
  58                 }
  59
  60         &save_directive($conf, $job, "Type", $in{'type'} || undef, 1);
  61         &save_directive($conf, $job, "Level", $in{'level'} || undef, 1);
  62         &save_directive($conf, $job, "Client", $in{'client'} || undef, 1);
  63         &save_directive($conf, $job, "FileSet", $in{'fileset'} || undef, 1);
  64         &save_directive($conf, $job, "Schedule", $in{'schedule'} || undef, 1);
  65         &save_directive($conf, $job, "Storage", $in{'storage'} || undef, 1);
  66         &save_directive($conf, $job, "Pool", $in{'pool'} || undef, 1);
  67         &save_directive($conf, $job, "Messages", $in{'messages'} || undef, 1);
  68         $in{'priority_def'} || $in{'priority'} =~ /^\d+$/ ||
  69                 &error($text{'job_epriority'});
  70         &save_directive($conf, $job, "Priority",
  71                 $in{'priority_def'} ? undef : $in{'priority'}, 1);
  72
  73         &save_directive($conf, $job, "Run Before Job",
  74                         $in{'before_def'} ? undef : $in{'before'}, 1);
  75         &save_directive($conf, $job, "Run After Job",
  76                         $in{'after_def'} ? undef : $in{'after'}, 1);
  77         &save_directive($conf, $job, "Client Run Before Job",
  78                         $in{'cbefore_def'} ? undef : $in{'cbefore'}, 1);
  79         &save_directive($conf, $job, "Client Run After Job",
  80                         $in{'cafter_def'} ? undef : $in{'cafter'}, 1);
  81
  82         # Create or update
  83         if ($in{'new'}) {
  84                 &save_directive($conf, $parent, undef, $job, 0);
  85                 }
  86         }
  87
  88 &flush_file_lines();
  89 &unlock_file($parent->{'file'});
  90 &auto_apply_configuration();
  91 &webmin_log($in{'new'} ? "create" : $in{'delete'} ? "delete" : "modify",
  92             "job", $in{'old'} || $in{'name'});
  93 &redirect("list_jobs.cgi");
  94