bacula-backup/list_sync.cgi

   1 #!/usr/local/bin/perl
   2 # Show a form for setting up automatic node group updates
   3
   4 require './bacula-backup-lib.pl';
   5 &foreign_require("cron", "cron-lib.pl");
   6 &ui_print_header(undef,  $text{'sync_title'}, "", "sync");
   7
   8 print &ui_form_start("save_sync.cgi", "post");
   9 print &ui_table_start($text{'sync_header'}, undef, 2);
  10
  11 # Sync enabled?
  12 $job = &find_cron_job();
  13 print &ui_table_row($text{'sync_sched'},
  14                     &ui_radio("sched", $job ? 1 : 0,
  15                               [ [ 0, $text{'no'} ],
  16                                 [ 1, $text{'sync_schedyes'} ] ]));
  17
  18 # Cron times
  19 $job ||= { 'special' => 'hourly' };
  20 $cron = &capture_function_output(\&cron::show_times_input, $job);
  21 print &ui_table_span("<table border>$cron</table>");
  22
  23 print &ui_table_end();
  24 print &ui_form_end([ [ "save", $text{'save'} ] ]);
  25
  26 &ui_print_footer("", $text{'index_return'});
  27