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
# Install the GRUB 2 boot loader with progress output.

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

our (%in, %text);

&ReadParse();
&error_setup($text{'install_err'});
my %access = &get_module_acl();
&error("$text{'eacl_np'} $text{'eacl_pinstall'}") if (!$access{'install'});

# Trim text fields before validation so shell arguments are deterministic.
foreach my $field (qw(target efi_dir platform directory boot_directory
		      bootloader_id)) {
	$in{$field} = "" if (!defined($in{$field}));
	$in{$field} =~ s/^\s+|\s+\z//g;
	}
&error($text{'install_eboot_directory_required'})
	if ($in{'use_boot_directory'} && $in{'boot_directory'} eq '');
my %opts = (
	'target' => $in{'target'},
	'efi_dir' => $in{'efi_dir'},
	'platform' => $in{'platform'} || &grub2_default_platform_target(),
	'directory' => $in{'directory'},
	'boot_directory' => $in{'use_boot_directory'} ? $in{'boot_directory'} : '',
	'bootloader_id' => $in{'bootloader_id'},
	'recheck' => $in{'recheck'} ? 1 : 0,
	'removable' => $in{'removable'} ? 1 : 0,
	'no_nvram' => $in{'no_nvram'} ? 1 : 0,
	'force' => $in{'force'} ? 1 : 0,
);
$in{'confirm'} || &error($text{'install_econfirm'});
&grub2_command('install_cmd') || &error($text{'install_ecmd'});
# Validate all paths and identifiers before any progress output is started.
my $precheck = &grub2_validate_install_options(\%opts);
&error($precheck) if ($precheck);

my ($pre_open, $current_step, $failed_printed, $captured_output) =
	(0, '', 0, '');

&ui_print_unbuffered_header(undef, $text{'install_progress_title'}, "");

my $callback = sub {
	my ($event, $value) = @_;
	if ($event eq 'command') {
		# The first event opens the visible command transcript.
		$current_step = 'command';
		&print_step_start($text{'install_installing'});
		print &ui_tag_start('pre', { 'style' => 'margin-left: 10px;' });
		$pre_open = 1;
		print &html_escape($value)."\n";
		return;
		}
	if ($event eq 'output') {
		# Some commands emit output before command_done; keep one pre open.
		if (!$pre_open) {
			print &ui_tag_start('pre',
					    { 'style' => 'margin-left: 10px;' });
			$pre_open = 1;
			}
		$captured_output .= $value;
		print &html_escape($value);
		return;
		}
	if ($event eq 'command_done') {
		# Close the transcript before printing the final status marker.
		&close_output(\$pre_open);
		&print_step_done(\$current_step);
		return;
		}
	if ($event eq 'command_failed') {
		# Print only one failure line even if the caller also returns an error.
		&close_output(\$pre_open);
		&print_step_failed(\$current_step, \$failed_printed);
		return;
		}
	};

my $err = &grub2_install_bootloader(\%opts, $callback);
&close_output(\$pre_open);
if ($err) {
	# Avoid duplicating the same error when it was already in command output.
	&print_step_failed(\$current_step, \$failed_printed)
		if ($current_step);
	my $shown = $captured_output || '';
	$shown =~ s/^\s+|\s+\z//g;
	print &ui_tag('pre', &html_escape($err),
		      { 'style' => 'margin-left: 10px;' })
		if ($err ne $shown);
	}
else {
	&webmin_log("install", undef, &grub2_install_log_target(\%opts));
	}

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

# close_output(&open-flag)
# Closes the command output block when it is currently being printed.
sub close_output
{
my ($open) = @_;
if ($$open) {
	print &ui_tag_end('pre');
	$$open = 0;
	}
return;
}

# print_step_start(text)
# Prints the first progress line for the installation step.
sub print_step_start
{
my ($msg) = @_;
print &ui_tag('span', &html_escape($msg." .."),
	      { 'data-first-print' => undef });
print "<br>\n";
return;
}

# print_step_done(&current-step)
# Prints a successful progress line and clears the active step.
sub print_step_done
{
my ($current) = @_;
print &ui_tag('span', &html_escape(".. ".$text{'install_done'}),
	      { 'data-second-print' => undef });
print "<br><div data-x-br=\"\"></div>\n";
$$current = '';
return;
}

# print_step_failed(&current-step, &printed-flag)
# Prints a failed progress line once and clears the active step.
sub print_step_failed
{
my ($current, $printed) = @_;
return if ($$printed);
print &ui_tag('span', &html_escape(".. ".$text{'install_failed_status'}),
	      { 'data-second-print' => undef });
print "<br><div data-x-br=\"\"></div>\n";
$$current = '';
$$printed = 1;
return;
}