bacula-backup/dirstatus_form.cgi

   1 #!/usr/local/bin/perl
   2 # Show the status of the director, including recent jobs
   3
   4 require './bacula-backup-lib.pl';
   5 &ui_print_header(undef,  $text{'dirstatus_title'}, "", "dirstatus");
   6
   7 ($sched, $run, $done) = &get_director_status();
   8
   9 # Running jobs
  10 print &ui_subheading($text{'dirstatus_run'});
  11 if (@$run) {
  12         print &ui_form_start("cancel_jobs.cgi", "post");
  13         @links = ( &select_all_link("d"),
  14                    &select_invert_link("d") );
  15         print &ui_links_row(\@links);
  16         @tds = ( "width=5" );
  17         print &ui_columns_start([ "",
  18                                   $text{'dirstatus_name'},
  19                                   $text{'dirstatus_id'},
  20                                   $text{'dirstatus_level'},
  21                                   $text{'dirstatus_status'} ], "100%",
  22                                 0, \@tds);
  23         foreach $j (@$run) {
  24                 print &ui_checked_columns_row([
  25                         &joblink($j->{'name'}),
  26                         $j->{'id'},
  27                         $j->{'level'},
  28                         $j->{'status'} ], \@tds, "d", $j->{'id'});
  29                 }
  30         print &ui_columns_end();
  31         print &ui_links_row(\@links);
  32         print &ui_form_end([ [ "cancel", $text{'dirstatus_cancel'} ],
  33                              [ "refresh", $text{'dirstatus_refresh'} ] ]);
  34         }
  35 else {
  36         print "<b>$text{'dirstatus_runnone'}</b><p>\n";
  37         print &ui_form_start("cancel_jobs.cgi");
  38         print &ui_form_end([ [ "refresh", $text{'dirstatus_refresh'} ] ]);
  39         }
  40
  41 # Completed jobs
  42 print &ui_subheading($text{'dirstatus_done'});
  43 if (@$done) {
  44         print &ui_columns_start([ $text{'dirstatus_name'},
  45                                   $text{'dirstatus_id'},
  46                                   $text{'dirstatus_level'},
  47                                   $text{'dirstatus_date'},
  48                                   $text{'dirstatus_bytes'},
  49                                   $text{'dirstatus_files'},
  50                                   $text{'dirstatus_status2'} ], "100%");
  51         foreach $j (@$done) {
  52                 print &ui_columns_row([
  53                         &joblink($j->{'name'}),
  54                         $j->{'id'},
  55                         $j->{'level'},
  56                         $j->{'date'},
  57                         &nice_size($j->{'bytes'}),
  58                         $j->{'files'},
  59                         $j->{'status'} ]);
  60                 }
  61         print &ui_columns_end();
  62         }
  63 else {
  64         print "<b>$text{'dirstatus_donenone'}</b><p>\n";
  65         }
  66
  67
  68
  69 # Scheduled jobs
  70 print &ui_subheading($text{'dirstatus_sched'});
  71 if (@$sched) {
  72         print &ui_columns_start([ $text{'dirstatus_name'},
  73                                   $text{'dirstatus_level'},
  74                                   $text{'dirstatus_type'},
  75                                   $text{'dirstatus_date'},
  76                                   $text{'dirstatus_volume'} ], "100%");
  77         foreach $j (@$sched) {
  78                 print &ui_columns_row([
  79                         &joblink($j->{'name'}),
  80                         $j->{'level'},
  81                         $j->{'type'},
  82                         $j->{'date'},
  83                         $j->{'volume'} ]);
  84                 }
  85         print &ui_columns_end();
  86         }
  87 else {
  88         print "<b>$text{'dirstatus_schednone'}</b><p>\n";
  89         }
  90
  91 &ui_print_footer("", $text{'index_return'});
  92