summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm41
1 files changed, 40 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index a9f3077a8..85278c547 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -705,9 +705,19 @@ sub read_refind() {
}
}
$bootloader{method} = 'refind';
+ #- Try both possible locations for the main config file. The default is to use NVRAM if the
+ #- config file isn't found.
+ $bootloader{use_nvram} = get_refind_use_nvram("$::prefix/boot/EFI/EFI/refind/refind.conf")
+ && get_refind_use_nvram("$::prefix/boot/EFI/EFI/BOOT/refind.conf");
\%bootloader;
}
+sub get_refind_use_nvram {
+ my ($path) = @_;
+ #- The default is to use NVRAM, so test if it is explicitly disabled.
+ -r $path && (grep { /^\s*use_nvram\s+(false|off|0)/ } cat_utf8($path)) ? 0 : 1;
+}
+
# FIXME: actually read back previous conf
sub read_cromwell() {
+{ method => 'cromwell' };
@@ -2426,7 +2436,12 @@ sub write_refind {
my $default_kernel = readlink("$::prefix/boot/vmlinuz");
if ($default_kernel) {
- write_refind_previous_boot_var($default_kernel);
+ if ($bootloader->{use_nvram}) {
+ write_refind_previous_boot_var($default_kernel);
+ } else {
+ write_refind_previous_boot_file($default_kernel, "$::prefix/boot/EFI/EFI/refind");
+ write_refind_previous_boot_file($default_kernel, "$::prefix/boot/EFI/EFI/BOOT");
+ }
}
}
@@ -2450,6 +2465,20 @@ sub write_refind_previous_boot_var {
run_program::run('umount', $efivars) if !$already_mounted;
}
+sub write_refind_previous_boot_file {
+ my ($kernel, $base_path) = @_;
+ return if ! -e "$base_path/refind.conf" || ! mkdir_p("$base_path/vars");
+ if (open(my $f, '>:raw', "$base_path/vars/PreviousBoot")) {
+ require Encode;
+ log::l("writing rEFInd $base_path/vars/PreviousBoot file");
+ print $f Encode::encode('UTF16-LE', "Boot boot\\$kernel");
+ print $f "\x00\x00";
+ close($f);
+ } else {
+ log::l("failed to write rEFInd $base_path/vars/PreviousBoot file");
+ }
+}
+
sub install_refind {
my ($bootloader, $all_hds) = @_;
@@ -2469,9 +2498,19 @@ sub install_refind {
run_program::rooted($::prefix, '/sbin/refind-install', '2>', \$error, @options)
or die "refind-install failed: $error";
}
+ #- Try both possible locations for the main config file.
+ set_refind_use_nvram($bootloader->{use_nvram}, "$::prefix/boot/EFI/EFI/refind/refind.conf");
+ set_refind_use_nvram($bootloader->{use_nvram}, "$::prefix/boot/EFI/EFI/BOOT/refind.conf");
write_refind($bootloader, $all_hds);
}
+sub set_refind_use_nvram {
+ my ($use_nvram, $path) = @_;
+ return if ! -w $path;
+ my $script = 's/^#?\s*use_nvram\s+.*/use_nvram ' . ($use_nvram ? 'true' : 'false') . '/';
+ run_program::run('sed', '-i', '-E', $script, $path) or die "failed to update $path";
+}
+
sub when_config_changed_refind {
my ($_bootloader) = @_;
#- do not do anything