Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
acl_security.pl	1.1 KB	-rw-r--r--	2026-07-17 21:17
backup_config.pl	195 B	-rw-r--r--	2026-07-17 21:17
config	647 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	647 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	658 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	658 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	658 B	-rw-r--r--	2026-07-17 21:17
config.info	1.04 KB	-rw-r--r--	2026-07-17 21:17
custom_action.cgi	1.81 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	71 B	-rw-r--r--	2026-07-17 21:17
edit_custom.cgi	1.69 KB	-rwxr-xr-x	2026-07-17 21:22
edit_defaults.cgi	5.06 KB	-rwxr-xr-x	2026-07-17 21:22
edit_install.cgi	3.49 KB	-rwxr-xr-x	2026-07-17 21:22
edit_manual.cgi	1.35 KB	-rwxr-xr-x	2026-07-17 21:22
edit_security.cgi	2.36 KB	-rwxr-xr-x	2026-07-17 21:22
edit_theme.cgi	6.16 KB	-rwxr-xr-x	2026-07-17 21:22
generate.cgi	3.89 KB	-rwxr-xr-x	2026-07-17 21:22
grub2-lib.pl	98.28 KB	-rw-r--r--	2026-07-17 21:17
index.cgi	13.28 KB	-rwxr-xr-x	2026-07-17 21:22
install.cgi	4.21 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	393 B	-rw-r--r--	2026-07-17 21:17
log_parser.pl	1.66 KB	-rw-r--r--	2026-07-17 21:17
module.info	289 B	-rw-r--r--	2026-07-17 21:17
reboot_once.cgi	734 B	-rwxr-xr-x	2026-07-17 21:22
save_custom.cgi	1.04 KB	-rwxr-xr-x	2026-07-17 21:22
save_defaults.cgi	7.16 KB	-rwxr-xr-x	2026-07-17 21:22
save_manual.cgi	803 B	-rwxr-xr-x	2026-07-17 21:22
save_security.cgi	1.18 KB	-rwxr-xr-x	2026-07-17 21:22
save_theme.cgi	4.09 KB	-rwxr-xr-x	2026-07-17 21:22
set_default.cgi	742 B	-rwxr-xr-x	2026-07-17 21:22
status.cgi	8.67 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Show a form for editing common GRUB 2 defaults.

use strict;
use warnings;
require './grub2-lib.pl';    ## no critic

our (%text);

&ReadParse();
&error_setup($text{'defaults_err'});
my %access = &get_module_acl();
&error("$text{'eacl_np'} $text{'eacl_pedit'}") if (!$access{'edit'});

my $parsed = &read_grub_defaults();
my $values = $parsed->{'values'};
my @entries = &grub2_boot_entries();

&ui_print_header(undef, $text{'defaults_title'}, "");

# BLS warnings explain when edits also need grubby or existing entry updates.
foreach my $warning (&grub2_bls_kernel_option_warnings(\@entries)) {
	print &ui_alert($warning, 'warning');
	}

print &ui_form_start("save_defaults.cgi", "post");
print &ui_table_start($text{'defaults_header'}, "width=100%", 2);
print &ui_table_row(
	&hlink($text{'defaults_default'}, "default"),
	&default_entry_input(&field_value($values->{'GRUB_DEFAULT'}, "0"),
			     \@entries),
2, undef, undef, 1);
print &ui_table_hr();
print &ui_table_row(
	&hlink($text{'defaults_timeout_style'}, "timeout_style"),
	&ui_select("timeout_style", &field_value($values->{'GRUB_TIMEOUT_STYLE'}),
		[
			[ "", $text{'defaults_keep'} ],
			[ "menu", $text{'defaults_menu'} ],
			[ "hidden", $text{'defaults_hidden'} ],
			[ "countdown", $text{'defaults_countdown'} ],
		])
);
print &ui_table_row(
	&hlink($text{'defaults_timeout'}, "timeout"),
	&ui_textbox("timeout", &field_value($values->{'GRUB_TIMEOUT'}), 8)
);
print &ui_table_row(
	&hlink($text{'defaults_kernelopts_source'}, "kernelopts_source"),
	&html_escape(&grub2_kernel_options_source_text(\@entries))
);
# Recovery is special on BLS systems because rescue entries are separate files.
print &ui_table_row(
	&hlink($text{'defaults_disable_recovery'}, "disable_recovery"),
	&bool_select("disable_recovery", $values->{'GRUB_DISABLE_RECOVERY'}).
	(&grub2_has_bls_rescue_entries() ?
		&ui_tag('div', &ui_note($text{'defaults_disable_recovery_bls'}, 0)) :
		"")
);
print &ui_table_row(
	&hlink($text{'defaults_disable_os_prober'}, "disable_os_prober"),
	&bool_select("disable_os_prober", $values->{'GRUB_DISABLE_OS_PROBER'})
);
print &ui_table_hr();
print &ui_table_row(
	&hlink($text{'defaults_cmdline_default'}, "cmdline_default"),
	&ui_textbox("cmdline_default",
		    &field_value($values->{'GRUB_CMDLINE_LINUX_DEFAULT'}), 30,
		    undef, undef, undef, "w-100")
);
print &ui_table_row(
	&hlink($text{'defaults_cmdline'}, "cmdline"),
	&ui_textbox("cmdline", &field_value($values->{'GRUB_CMDLINE_LINUX'}), 70,
		    undef, undef, undef, "w-100")
);
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'save'} ] ]);

&ui_print_footer("index.cgi", $text{'index_return'});

# default_entry_input(value, &entries)
# Returns a selector for known boot entries.
sub default_entry_input
{
my ($value, $entries) = @_;
my ($select_value, $options) = &default_entry_options($value, $entries);
return &ui_select("default", $select_value, $options, undef, undef, undef,
		  undef, 'style="field-sizing: content; max-width: 100%;"');
}

# default_entry_options(value, &entries)
# Returns select value and options for the default entry field.
sub default_entry_options
{
my ($current, $entries) = @_;
$current = '0' if (!defined($current) || $current eq '');
my @options;
my %seen;
my $add = sub {
	my ($value, $label) = @_;
	# Avoid duplicate selectors when GRUB_DEFAULT already names an entry.
	return if (!defined($value) || $value eq '' || $seen{$value}++);
	push(@options, [ $value, $label ]);
	};
$add->('saved', $text{'defaults_default_saved'});
if ($current =~ /^\d+\z/ && $entries->[$current]) {
	# Keep numeric defaults meaningful by showing the currently indexed entry.
	$add->($current, &text('defaults_default_current_entry', $current,
			       &default_entry_label($entries->[$current])));
	}
foreach my $entry (@$entries) {
	my $selector = &grub2_entry_selector($entry);
	next if (!defined($selector) || $selector eq '');
	$add->($selector, &default_entry_label($entry));
	}
if ($current ne '' && !$seen{$current}) {
	# Preserve unusual existing values without allowing arbitrary new input.
	$add->($current, &text('defaults_default_current', $current));
	}
my $select_value = $seen{$current} ? $current : $options[0]->[0];
return ($select_value, \@options);
}

# default_entry_label(&entry)
# Returns a concise label for one parsed generated boot entry.
sub default_entry_label
{
my ($entry) = @_;
my @path = @{$entry->{'path'} || []};
my $label = join(' > ', (@path, $entry->{'title'} || ''));
return &text('defaults_default_entry_id', $label, $entry->{'id'})
	if (defined($entry->{'id'}) && $entry->{'id'} ne '');
return $label;
}

# bool_select(name, value)
# Returns a tri-state selector for GRUB true/false settings.
sub bool_select
{
my ($name, $value) = @_;
$value = '' if (!defined($value) || $value !~ /^(true|false)\z/);
return &ui_select($name, $value,
	[
		[ "", $text{'defaults_keep'} ],
		[ "true", $text{'defaults_true'} ],
		[ "false", $text{'defaults_false'} ],
	]);
}

# field_value(value, [default])
# Returns a form value without treating the string 0 as empty.
sub field_value
{
my ($value, $default) = @_;
return defined($value) ? $value : ($default || '');
}