mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 14:13:29 +00:00
57 lines
1.9 KiB
Perl
Executable File
57 lines
1.9 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_global.cgi
|
|
# Edit global GRUB options
|
|
|
|
require './grub-lib.pl';
|
|
&foreign_require("fdisk", "fdisk-lib.pl");
|
|
$conf = &get_menu_config();
|
|
&ui_print_header(undef, $text{'global_title'}, "");
|
|
|
|
print &ui_form_start("save_global.cgi");
|
|
print &ui_table_start($text{'global_header'}, "width=100%", 4);
|
|
|
|
# Default kernel to boot
|
|
$default = &find_value("default", $conf);
|
|
@titles = &find_value("title", $conf);
|
|
print &ui_table_row($text{'global_default'},
|
|
&ui_select("default", $default,
|
|
[ [ '', $text{'global_first'} ],
|
|
map { [ $_, $titles[$_] ] } (0..$#titles) ]));
|
|
|
|
# Fallback kernel
|
|
$fallback = &find_value("fallback", $conf);
|
|
print &ui_table_row($text{'global_fallback'},
|
|
&ui_select("fallback", $fallback,
|
|
[ [ '', $text{'global_first'} ],
|
|
map { [ $_, $titles[$_] ] } (0..$#titles) ]));
|
|
|
|
# Boot timeout
|
|
$timeout = &find_value("timeout", $conf);
|
|
print &ui_table_row($text{'global_timeout'},
|
|
&ui_opt_textbox("timeout", $timeout, 5, $text{'global_forever'}).
|
|
" ".$text{'global_secs'}, 3);
|
|
|
|
# Boot-time password
|
|
$password = &find("password", $conf);
|
|
@pv = split(/\s+/, $password->{'value'}) if ($password);
|
|
print &ui_table_row($text{'global_password'},
|
|
&ui_opt_textbox("password", $password, 30, $text{'global_none'})."<br>".
|
|
&ui_checkbox("password_file", 1, $text{'global_password_file'}, $pv[1]).
|
|
" ".&ui_textbox("password_filename", $pv[1], 30), 3);
|
|
|
|
# Partition to install on
|
|
$r = $config{'install'};
|
|
$dev = &bios_to_linux($r);
|
|
$sel = &foreign_call("fdisk", "partition_select", "install", $dev, 2, \$found);
|
|
print &ui_table_row($text{'global_install'},
|
|
&ui_radio("install_mode", $found ? 1 : 0,
|
|
[ [ 1, $text{'global_sel'}." ".$sel."<br>" ],
|
|
[ 0, $text{'global_other'}." ".
|
|
&ui_textbox("other", $found ? "" : $r, 30) ] ]), 3);
|
|
|
|
print &ui_table_end();
|
|
print &ui_form_end([ [ undef, $text{'save'} ] ]);
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|