summaryrefslogtreecommitdiffstats
path: root/draklive2
diff options
context:
space:
mode:
Diffstat (limited to 'draklive2')
-rwxr-xr-xdraklive263
1 files changed, 56 insertions, 7 deletions
diff --git a/draklive2 b/draklive2
index bad49ee..3edc391 100755
--- a/draklive2
+++ b/draklive2
@@ -463,6 +463,21 @@ sub create_bootloader {
@theme_fonts = map { basename($_) } glob("$theme/*.pf2");
}
+ my $add_lang_menu = defined $live->{media}{bootloader_langs};
+ if ($add_lang_menu) {
+ my $lang_names = get_absolute_path($live, $live->{media}{bootloader_langs});
+ -e $lang_names or die "cannot find language name file $lang_names\n";
+ my @langs = eval(cat_($lang_names)) or die "error in language name file $lang_names\n";
+ MDK::Common::File::output_utf8($grub2_dir . '/lang-menu.cfg', build_lang_menu_cfg(@langs));
+
+ my $locale_dir = $grub2_dir . '/locale';
+ mkdir_p($locale_dir);
+
+ my $messages = get_absolute_path($live, $live->{media}{bootloader_messages});
+ -d $messages or die "cannot find translated messages directory $messages\n";
+ cp_f(glob($messages . '/*.mo'), $locale_dir);
+ }
+
my $eltorito_img = get_absolute_path($live, $live->{media}{eltorito_img});
if (defined $eltorito_img) {
-e $eltorito_img or die "cannot find grub2 Eltorito boot image $eltorito_img\n";
@@ -478,7 +493,7 @@ sub create_bootloader {
cp_f($live->{settings}{config_root} . '/' . $live->{media}{grub2_cfg}, $grub2_cfg);
run_("sed", "-i", "s/VOLUME_LABEL/$label/g", $grub2_cfg);
} else {
- output($grub2_cfg, build_grub2_cfg($live, $theme_name, \@theme_fonts));
+ output($grub2_cfg, build_grub2_cfg($live, $theme_name, \@theme_fonts, $add_lang_menu));
}
my $title = $label;
@@ -526,8 +541,8 @@ sub build_grub2_eltorito_img {
# temporary hack to workaround grub2/grub2-efi conflict
run_({ root => $live->get_system_root }, 'urpmi', '-q', '--force', 'grub2');
- my @modules = qw(biosdisk iso9660 fat part_msdos all_video font png gfxterm gfxmenu linux configfile
- echo ls search test);
+ my @modules = qw(biosdisk iso9660 fat part_msdos all_video font png gfxterm gfxmenu linux
+ configfile echo gettext ls search test);
my $output = '/boot/grub2/eltorito.img';
run_({ root => $live->get_system_root }, 'grub2-mkimage',
@@ -549,8 +564,8 @@ sub build_grub2_bootx64_efi {
# temporary hack to workaround grub2/grub2-efi conflict
run_({ root => $live->get_system_root }, 'urpmi', '-q', '--force', 'grub2-efi');
- my @modules = qw(iso9660 fat part_msdos all_video font png gfxterm gfxmenu linux configfile
- echo ls search test);
+ my @modules = qw(iso9660 fat part_msdos all_video font png gfxterm gfxmenu linux
+ configfile echo gettext ls search test);
my $output = '/boot/grub2/bootx64.efi';
run_({ root => $live->get_system_root }, 'grub2-mkimage',
@@ -567,13 +582,17 @@ sub build_grub2_bootx64_efi {
}
sub build_grub2_cfg {
- my ($live, $theme_name, $theme_fonts) = @_;
+ my ($live, $theme_name, $theme_fonts, $add_lang_menu) = @_;
my @loadfonts;
if (defined $theme_name) {
@loadfonts = map { "loadfont \${prefix}/themes/$theme_name/$_" } @$theme_fonts;
}
+ my @langs = get_langs($live);
+ my $default_lang = $langs[0] || 'en_US';
+ my $gettext = $add_lang_menu ? '$' : '';
+
my $boot_dir = $live->get_media_prefix('boot');
join("\n",
@@ -599,10 +618,21 @@ sub build_grub2_cfg {
"set timeout=" . get_bootloader_timeout($live),
"set default=" . get_bootloader_default($live),
"",
+ if_($add_lang_menu,
+ "if [ -z \$lang ] ; then",
+ " set lang=$default_lang",
+ "fi",
+ "export lang",
+ "",
+ "submenu $gettext\"Language [\$lang]\" {",
+ " source \$prefix/lang-menu.cfg",
+ "}",
+ "",
+ ),
(map {
my ($name, $cmdline) = @$_;
join("\n",
- "menuentry '$name' {",
+ "menuentry $gettext\"$name\" {",
" linux $boot_dir/vmlinuz " . get_default_append($live) . if_($cmdline, " $cmdline"),
" initrd $boot_dir/initrd.gz",
"}"
@@ -633,6 +663,25 @@ sub get_default_append {
);
}
+sub build_lang_menu_cfg {
+ my ($langs) = @_;
+ join("\n",
+ "function set_language {",
+ " set lang=\$1",
+ " configfile \$prefix/grub.cfg",
+ "}",
+ "",
+ "set default=\$lang",
+ "set timeout=-1",
+ "",
+ (map {
+ my ($id, $name) = @$_;
+ "menuentry '$name' --id $id { set_language $id }";
+ } group_by2(@$langs)),
+ "",
+ );
+}
+
sub build_uefi_grub2_cfg {
my ($live) = @_;
join("\n",