bacula-backup/save_gjob.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("gbackup.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);
  17 @nodegroups = &list_node_groups();
  18
  19 if (!$in{'new'}) {
  20         $job = &find_by("Name", "ocjob_".$in{'old'}, \@jobs);
  21         $job || &error($text{'job_egone'});
  22         $oldclient = &find_value("Client", $job->{'members'});
  23         $oldclient = &is_oc_object($oldclient);
  24         }
  25 else {
  26         $job = { 'type' => 1,
  27                  'name' => 'JobDefs',
  28                  'members' => [ ] };
  29         }
  30
  31 &lock_file($parent->{'file'});
  32 if ($in{'delete'}) {
  33         # Just delete this one
  34         &save_directive($conf, $parent, $job, undef, 0);
  35         }
  36 else {
  37         # Validate and store inputs
  38         &error_setup($text{'job_err'});
  39         $in{'name'} =~ /\S/ || &error($text{'job_ename'});
  40         if ($in{'new'} || $in{'name'} ne $in{'old'}) {
  41                 $clash = &find_by("Name", "ocjob_".$in{'name'}, \@jobs);
  42                 $clash && &error($text{'job_eclash'});
  43                 }
  44         &save_directive($conf, $job, "Name", "ocjob_".$in{'name'}, 1);
  45
  46         &save_directive($conf, $job, "Type", $in{'type'} || undef, 1);
  47         &save_directive($conf, $job, "Level", $in{'level'} || undef, 1);
  48         &save_directive($conf, $job, "Client", $in{'client'} || undef, 1);
  49         &save_directive($conf, $job, "FileSet", $in{'fileset'} || undef, 1);
  50         &save_directive($conf, $job, "Schedule", $in{'schedule'} || undef, 1);
  51         &save_directive($conf, $job, "Storage", $in{'storage'} || undef, 1);
  52         &save_directive($conf, $job, "Pool", $in{'pool'} || undef, 1);
  53         &save_directive($conf, $job, "Messages", $in{'messages'} || undef, 1);
  54         $in{'priority_def'} || $in{'priority'} =~ /^\d+$/ ||
  55                 &error($text{'job_epriority'});
  56         &save_directive($conf, $job, "Priority",
  57                 $in{'priority_def'} ? undef : $in{'priority'}, 1);
  58
  59         &save_directive($conf, $job, "Run Before Job",
  60                         $in{'before_def'} ? undef : $in{'before'}, 1);
  61         &save_directive($conf, $job, "Run After Job",
  62                         $in{'after_def'} ? undef : $in{'after'}, 1);
  63         &save_directive($conf, $job, "Client Run Before Job",
  64                         $in{'cbefore_def'} ? undef : $in{'cbefore'}, 1);
  65         &save_directive($conf, $job, "Client Run After Job",
  66                         $in{'cafter_def'} ? undef : $in{'cafter'}, 1);
  67
  68         # Create or update
  69         if ($in{'new'}) {
  70                 &save_directive($conf, $parent, undef, $job, 0);
  71                 }
  72         }
  73
  74 # Sync the old and new node groups
  75 if ($oldclient) {
  76         ($oldnodegroup) = grep { $_->{'name'} eq $oldclient } @nodegroups;
  77         &sync_group_clients($oldnodegroup) if ($oldnodegroup);
  78         }
  79 if (!$in{'delete'}) {
  80         $client = &is_oc_object($in{'client'});
  81         ($nodegroup) = grep { $_->{'name'} eq $client } @nodegroups;
  82         if ($nodegroup && $nodegroup ne $oldnodegroup) {
  83                 &sync_group_clients($nodegroup);
  84                 }
  85         }
  86
  87 &flush_file_lines();
  88 &unlock_file($parent->{'file'});
  89 &auto_apply_configuration();
  90 &webmin_log($in{'new'} ? "create" : $in{'delete'} ? "delete" : "modify",
  91             "gjob", $in{'old'} || $in{'name'});
  92 &redirect("list_gjobs.cgi");
  93