bacula-backup/delete_gjobs.cgi

   1 #!/usr/local/bin/perl
   2 # Delete group backup jobs
   3
   4 require './bacula-backup-lib.pl';
   5 &ReadParse();
   6 $conf = &get_director_config();
   7 $parent = &get_director_config_parent();
   8 @jobs = &find("JobDefs", $conf);
   9
  10 @nodegroups = &list_node_groups();
  11
  12 &error_setup($text{'gjobs_derr'});
  13 @d = split(/\0/, $in{'d'});
  14 @d || &error($text{'filesets_ednone'});
  15
  16 &lock_file($parent->{'file'});
  17 foreach $d (@d) {
  18         $job = &find_by("Name", "ocjob_".$d, \@jobs);
  19         if ($job) {
  20                 $client = &find_value("Client", $job->{'members'});
  21                 &save_directive($conf, $parent, $job, undef, 0);
  22
  23                 ($nodegroup) = grep { $_->{'name'} eq $client } @nodegroups;
  24                 if ($nodegroup) {
  25                         &sync_group_clients($nodegroup);
  26                         }
  27                 }
  28         }
  29 &flush_file_lines($parent->{'file'});
  30 &unlock_file($parent->{'file'});
  31 &webmin_log("delete", "gjobs", scalar(@d));
  32 &redirect("list_gjobs.cgi");
  33