bacula-backup/list_jobs.cgi

   1 #!/usr/local/bin/perl
   2 # Show a list of all backup jobs
   3
   4 require './bacula-backup-lib.pl';
   5 &ui_print_header(undef, $text{'jobs_title'}, "", "jobs");
   6
   7 $conf = &get_director_config();
   8 @jobs = grep { !&is_oc_object($_) }
   9              ( &find("JobDefs", $conf), &find("Job", $conf) );
  10 &sort_by_name(\@jobs);
  11 if (@jobs) {
  12         print &ui_form_start("delete_jobs.cgi", "post");
  13         @links = ( &select_all_link("d"),
  14                    &select_invert_link("d"),
  15                    "<a href='edit_job.cgi?new=1'>$text{'jobs_add'}</a>" );
  16         print &ui_links_row(\@links);
  17         @tds = ( "width=5", "width=30%", "width=10%", "width=20%", "width=20%",
  18                  "width=20%" );
  19         print &ui_columns_start([ "", $text{'jobs_name'},
  20                                   $text{'jobs_deftype'},
  21                                   $text{'jobs_type'},
  22                                   $text{'jobs_client'},
  23                                   $text{'jobs_fileset'},
  24                                   $text{'jobs_schedule'}, ], "100%", 0, \@tds);
  25         foreach $f (@jobs) {
  26                 $name = &find_value("Name", $f->{'members'});
  27                 $type = &find_value("Type", $f->{'members'});
  28                 $client = &find_value("Client", $f->{'members'});
  29                 $fileset = &find_value("FileSet", $f->{'members'});
  30                 $schedule = &find_value("Schedule", $f->{'members'});
  31                 print &ui_checked_columns_row([
  32                         "<a href='edit_job.cgi?name=".&urlize($name)."'>".
  33                         $name."</a>",
  34                         $f->{'name'} eq 'Job' ? $text{'no'} : $text{'yes'},
  35                         $type || "<i>$text{'default'}</i>",
  36                         $client || "<i>$text{'default'}</i>",
  37                         $fileset || "<i>$text{'default'}</i>",
  38                         $schedule || "<i>$text{'default'}</i>",
  39                         ], \@tds, "d", $name);
  40                 }
  41         print &ui_columns_end();
  42         print &ui_links_row(\@links);
  43         print &ui_form_end([ [ "delete", $text{'jobs_delete'} ] ]);
  44         }
  45 else {
  46         print "<b>$text{'jobs_none'}</b><p>\n";
  47         print "<a href='edit_job.cgi?new=1'>$text{'jobs_add'}</a><br>\n";
  48         }
  49
  50 &ui_print_footer("", $text{'index_return'});
  51