disk-usage/edit_sched.cgi

   1 #!/usr/local/bin/perl
   2 # Show a form for setting up scheduled collection
   3
   4 require './disk-usage-lib.pl';
   5 &foreign_require("cron", "cron-lib.pl");
   6 &ui_print_header(undef, $text{'sched_title'}, "");
   7 $job = &find_cron_job();
   8
   9 print &ui_form_start("save_sched.cgi");
  10 print &ui_table_start($text{'sched_header'}, "width=100%", 2);
  11
  12 print &ui_table_row($text{'sched_enabled'},
  13                     &ui_radio("enabled", $job ? 1 : 0,
  14                               [ [ 0, $text{'no'} ],
  15                                 [ 1, $text{'sched_at'} ] ]));
  16
  17 print "<tr> <td colspan=2><table border width=100%>\n";
  18 $job ||= { 'mins' => 0,
  19            'hours' => 0,
  20            'days' => '*',
  21            'months' => '*',
  22            'weekdays' => '*' };
  23 &cron::show_times_input($job);
  24 print "</table></td> </tr>\n";
  25
  26 print &ui_table_end();
  27 print &ui_form_end([ [ "save", $text{'save'} ] ]);
  28
  29 &ui_print_footer("", $text{'index_return'});