2023-07-12 09:55:23 +02:00
|
|
|
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use esmith::ConfigDB;
|
|
|
|
|
|
|
|
my $c = esmith::ConfigDB->open_ro or die "Could not open Config DB";
|
|
|
|
my $sysconfig = $c->get('sysconfig') or die "Missing db entry sysconfig";
|
|
|
|
my $locale = $sysconfig->prop('Language') || "en_US.UTF-8";
|
|
|
|
my $orilang=$ENV{LANG};
|
|
|
|
|
|
|
|
# here we force the environement as it is empty if launched by server-manager
|
|
|
|
if ( ! defined $ENV{LANG}|| $ENV{LANG}eq "" || $ENV{LANG} eq "C") {
|
|
|
|
$ENV{LANG}=$locale;
|
|
|
|
}
|
|
|
|
|
|
|
|
my $grubpath;
|
|
|
|
|
|
|
|
if (-e "/sys/firmware/efi") {
|
2025-01-08 06:07:50 +01:00
|
|
|
$grubpath = "/boot/efi/EFI/rocky/grub.cfg";
|
2023-07-12 09:55:23 +02:00
|
|
|
} else {
|
|
|
|
$grubpath = "/boot/grub2/grub.cfg";
|
|
|
|
}
|
|
|
|
|
|
|
|
system("/usr/sbin/grub2-mkconfig", "-o", $grubpath) == 0
|
|
|
|
or die("Unable to update grub2\n");
|
|
|
|
$ENV{LANG}=$orilang;
|