bacula-backup/list_gbackup.cgi

   1 #!/usr/local/bin/perl
   2 # Show a form for running a node group backup job
   3
   4 require './bacula-backup-lib.pl';
   5 &ui_print_header(undef,  $text{'gbackup_title'}, "", "gbackup");
   6
   7 print &ui_form_start("gbackup.cgi", "post");
   8 print &ui_table_start($text{'gbackup_header'}, undef, 2);
   9
  10 # Job to run
  11 $conf = &get_director_config();
  12 foreach $job (&find("JobDefs", $conf)) {
  13         if ($name = &is_oc_object($job)) {
  14                 $client = &is_oc_object(
  15                         &find_value("Client", $job->{'members'}));
  16                 $fileset = &find_value("FileSet", $job->{'members'});
  17                 push(@sel, [ $name,
  18                         &text('gbackup_jd', $name, $fileset, $client) ]);
  19                 }
  20         }
  21 print &ui_table_row($text{'backup_job'},
  22                     &ui_select("job", undef, \@sel));
  23
  24 print &ui_table_end();
  25 print &ui_form_end([ [ "backup", $text{'backup_ok'} ] ]);
  26
  27 &ui_print_footer("", $text{'index_return'});