Files
webmin/webmin/edit_status.cgi

31 lines
947 B
Perl
Executable File

#!/usr/local/bin/perl
# Display status collection options
require './webmin-lib.pl';
&foreign_require("system-status");
&ui_print_header(undef, $text{'status_title'}, "");
print &ui_form_start("change_status.cgi", "post");
print &ui_table_start($text{'status_header'}, undef, 2);
# Status collection enabled and gap
$i = $system_status::config{'collect_interval'};
print &ui_table_row($text{'status_interval'},
&ui_opt_textbox("interval", $i eq 'none' ? undef : $i, 5,
$text{'status_interval1'}, $text{'status_interval0'}).
" ".$text{'status_mins'});
# Collect packages?
print &ui_table_row($text{'status_pkgs'},
&ui_yesno_radio("pkgs", $system_status::config{'collect_pkgs'}));
# Collect drive temps?
print &ui_table_row($text{'status_temp'},
&ui_yesno_radio("temp", !$system_status::config{'collect_notemp'}));
print &ui_table_end();
print &ui_form_end([ [ "save", $text{'save'} ] ]);
&ui_print_footer("", $text{'index_return'});