webmin/edit_status.cgi

   1 #!/usr/local/bin/perl
   2 # Display status collection options
   3
   4 require './webmin-lib.pl';
   5 &foreign_require("system-status");
   6 &ui_print_header(undef, $text{'status_title'}, "");
   7
   8 print &ui_form_start("change_status.cgi", "post");
   9 print &ui_table_start($text{'status_header'}, undef, 2);
  10
  11 # Status collection enabled and gap
  12 $i = $system_status::config{'collect_interval'};
  13 print &ui_table_row($text{'status_interval'},
  14         &ui_opt_textbox("interval", $i eq 'none' ? undef : $i, 5,
  15                         $text{'status_interval1'}, $text{'status_interval0'}).
  16         " ".$text{'status_mins'});
  17
  18 # Collect packages?
  19 print &ui_table_row($text{'status_pkgs'},
  20         &ui_yesno_radio("pkgs", $system_status::config{'collect_pkgs'}));
  21
  22 print &ui_table_end();
  23 print &ui_form_end([ [ "save", $text{'save'} ] ]);
  24
  25 &ui_print_footer("", $text{'index_return'});
  26