draklive2: major rework to use grub2 as the bootloader.

Drop some unwanted stuff in the process:
  - the --boot-only option (not really very useful)
  - the progress indicator in build_iso_image()
    (xorriso reports progress itself)

1 files changed, 206 insertions, 339 deletions

diff --git a/draklive2 b/draklive2
index 7512ac4..fe6a471 100755
--- a/draklive2
+++ b/draklive2
@@ -33,116 +33,10 @@ use IO::Handle; #- autoflush
 use POSIX;
 use MDV::Draklive::Utils;
 use MDV::Draklive::Live;
-use MDV::Draklive::Progress;
 use MDV::Draklive::Loopback;
 use MDV::Draklive::Config;
 use MDV::Draklive::Storage;
 
-sub get_syslinux_path {
-    my ($media, $opts) = @_;
-    '/' . $media->{storage} . '/syslinux' . ($opts->{boot} && '-boot-' . $opts->{boot}) . '.cfg';
-}
-
-sub need_media_specific_boot {
-    my ($live) = @_;
-    to_bool(list_selected_loopbacks($live));
-}
-
-sub get_default_append {
-    my ($live, $opts) = @_;
-    my $append = $opts->{append} || $live->{system}{append};
-    join(' ',
-         'root=mgalive:' . $live->{media}->get_media_source_for_nash,
-         if_($live->{system}{vga_mode} && $append !~ /\bvga=\b/,
-             'splash quiet noiswmd audit=0 rd.luks=0 rd.lvm=0 rd.md=0 rd.dm=0',
-             'vga=' . $live->{system}{vga_mode}),
-         if_($append, $append),
-     );
-}
-
-sub get_bootloader_timeout {
-    my ($live) = @_;
-    defined $live->{media}{bootloader_timeout} ? $live->{media}{bootloader_timeout} : 4;
-}
-
-my @syslinux_boot_files = qw(/vmlinuz /syslinux/bootlogo /help.msg);
-
-sub build_syslinux_cfg {
-    my ($live, $media, $opts) = @_;
-    my $append = get_default_append($live, $opts);
-    #- syslinux wants files at root (used with vfat fs)
-    my $to_root = $media->get_boot_setting('fs', $opts) eq 'vfat';
-    my $boot = $live->get_media_prefix('boot', $opts->{boot});
-    my ($initrd, $kernel, $bootlogo, $help) = map { $to_root ? basename($_) : $_ }
-      map { $boot . $_ } $media->get_initrd_path, @syslinux_boot_files;
-    #- the generated syslinux/bootlogo is incomplete, so replace it
-    my $bootdir = $live->get_builddir . $live->{prefix}{build}{boot};
-    my $has_bootlogo = $live->{system}{gfxboot} && -e ($bootdir . '/gfxmenu');
-    cp_f($bootdir . '/gfxmenu', $bootdir . '/syslinux/bootlogo') if $has_bootlogo;
-    my $timeout = get_bootloader_timeout($live) * 10;
-    my $title = $media->{title} || $live->{media}{title};
-    join("\n",
-         "default $title",
-         "prompt 1",
-         "timeout $timeout",
-         "display $help",
-         if_($has_bootlogo, "ui gfxboot.c32 $bootlogo"),
-         (map {
-             my ($name, $cmdline) = @$_;
-             $name =~ s/\s/_/g;
-             if ($name eq "harddisk") {
-                 "label " . $name,
-                 "    com32 chain.c32 hd0 exit";
-             } else {
-                "label " . ($name || $title),
-                "    kernel $kernel",
-                "    append initrd=$initrd $append $cmdline";
-            }
-         } group_by2(@{$media->{boot_entries}})),
-         "",
-     );
-}
-
-sub build_grub_cfg {
-    my ($live, $media, $opts, $device) = @_;
-    #- FIXME? first partition is hardcoded for loopback (master images)
-    #- FIXME? use find_partition_index
-    my ($part_nb) = $device =~ m!/dev/loop! ? 1 : $device =~ /(\d+)$/;
-    my $part_idx = $part_nb - 1;
-    my $initrd = $media->get_initrd_path;
-    build_grub_cfg_raw($live, $media, $initrd, $opts, $part_idx);
-}
-
-sub build_grub_cfg_raw {
-    my ($live, $media, $initrd, $opts, $part_idx) = @_;
-    #- FIXME: use the bootloader module from drakx
-    my $grub_part = "(hd0" . (defined $part_idx ? "," . $part_idx : "") . ")";
-    my $boot = $live->get_media_prefix('boot'); #- FIXME handle boot media
-    #- remove prefix if installing bootloader on separate /boot partition
-    $media->{partitions}[$part_idx]{mntpoint} eq $boot and $boot = "";
-
-    my $title = $media->{title} || $live->{media}{title};
-
-    join("\n",
-         "timeout " . get_bootloader_timeout($live),
-         if_($live->{system}{gfxboot}, "gfxmenu $grub_part" . $boot . "/gfxmenu"),
-         "default 0",
-         (map {
-             my ($name, $cmdline) = @$_;
-             "title " . $title . if_($name, " ($name)"),
-             "kernel $grub_part" . $boot . "/vmlinuz " . get_default_append($live, $opts) . if_($cmdline, " $cmdline"),
-             if_($initrd, "initrd " . $boot . $initrd);
-         } group_by2(@{$media->{boot_entries}})),
-         ($live->{oem_rescue} && defined $opts->{oem_rescue_idx} ? (
-             #- FIXME: factorize with above, build_grub_cfg_entry($media)
-             "title " . $live->{oem_rescue}{media}{title},
-             "kernel (hd0,$opts->{oem_rescue_idx})" . $boot . "/vmlinuz " . $live->{oem_rescue}{append},
-             "initrd (hd0,$opts->{oem_rescue_idx})" . $boot . $media->get_initrd_path,
-         ) : ()),
-         "",
-     );
-}
-
 sub get_langs {
     my ($live) = @_;
     uniq(
@@ -482,287 +376,283 @@ sub list_selected_loopbacks {
     (map { $live->{prefix}{build}{modules} . '/' . $_->{name} . $loop_types{$_->{type}}{extension} } @pack_modules);
 }
 
-sub get_media_device {
-    my ($live, $opts) = @_;
-    return $opts->{device} if $opts->{device};
-    my $label = $live->{media}->get_media_label
-      or die "no device and no label";
-    my $device = chomp_(`readlink -f /dev/disk/by-label/$label`)
-      or die "unable to find device for /dev/disk/by-label/$label\n";
-    $device;
-}
-
 sub prepare_bootloader {
     my ($live) = @_;
     create_initrd($live);
-    create_bootloader($live) if !($live->{system}{skip_bootloader_config} || $live->{system}{skip_bootloader_install});
+    create_bootloader($live);
 }
 
 sub create_initrd {
     my ($live) = @_;
     my $root = $live->get_system_root;
 
-    mount_system_fs($live);
-
     my $kernel = $live->find_kernel;
     print "using kernel $kernel->{version}\n";
 
-    my $initrd_file = $root . '/boot/' . $live->get_initrd_name;
-    unlink($initrd_file);
+    my $initrd = $root . '/boot/' . $live->get_initrd_name;
+    unlink($initrd);
 
+    mount_system_fs($live);
     {
         my $bootloader = {};
         local $::prefix = $root;
         bootloader::add_kernel($bootloader, $kernel, { label => 'linux', vga => $live->{system}{vga_mode} }, '', $live->{system}{no_initrd});
     }
-
     umount_system_fs($live);
 
-    if (need_media_specific_boot($live)) {
-        my $rootfs_initrd = $root . '/boot/' . $live->get_initrd_name;
-        my $media_initrd = $live->get_builddir . $live->{prefix}{build}{boot} . $live->{media}->get_initrd_path;
-        mkdir_p(dirname($media_initrd));
-        mv($rootfs_initrd, $media_initrd) or die "can not move initrd: $!";
-    }
+    my $boot_dir = $live->get_builddir . $live->{prefix}{build}{boot};
+    mkdir_p($boot_dir);
+    mv($initrd, $boot_dir . '/initrd.gz') or die "cannot move initrd: $!\n";
 }
 
 sub create_bootloader {
     my ($live) = @_;
 
+    my $boot_dir = $live->get_builddir . $live->{prefix}{build}{boot};
+    mkdir_p($boot_dir);
+
     my $root = $live->get_system_root;
+
     my $kernel = $live->find_kernel->{version};
-    my $vmlinuz_long = '/boot/vmlinuz-' . $kernel;
-    -e $root . $vmlinuz_long or die "can not find kernel $kernel\n";
-
-    if ($live->{system}{gfxboot}) {
-        mount_system_fs($live);
-
-        #- would be run by bootloader::add_boot_splash and make-boot-splash, but not called when we don't generate an initrd
-        run_({ root => $root }, '/usr/share/bootsplash/scripts/switch-themes', '-u');
-        #- grub-gfxmenu would be run by bootloader::write_grub from DrakX
-        run_({ root => $root }, '/usr/sbin/grub-gfxmenu', '--update-gfxmenu');
-        my $gfxmenu = $root . '/boot/gfxmenu';
-        if (-e $gfxmenu) {
-            my $boot_dir = $live->get_builddir . $live->{prefix}{build}{boot};
-            mkdir_p($boot_dir);
-            cp_f($gfxmenu, $boot_dir);
-        } else {
-            warn "no gfxmenu file\n";
-        }
+    my $vmlinuz = $root . '/boot/vmlinuz-' . $kernel;
+    -e $vmlinuz or die "cannot find kernel $kernel\n";
+    cp_f($vmlinuz, $boot_dir . '/vmlinuz');
 
-        umount_system_fs($live);
+    my $grub2_dir = $boot_dir . '/grub2';
+    mkdir_p($grub2_dir);
+
+    my $fonts_dir = $grub2_dir . '/fonts';
+    mkdir_p($fonts_dir);
+
+    my $font = $root . '/usr/share/grub/unicode.pf2';
+    cp_f($font, $fonts_dir) if -e $font;
+
+    my $themes_dir = $grub2_dir . '/themes';
+    mkdir_p($themes_dir);
+
+    my $theme_name = $live->{media}{bootloader_theme};
+    my @theme_fonts;
+    if (defined $theme_name) {
+        my $theme = $root . '/boot/grub2/themes/' . $theme_name;
+        -e $theme or die "cannot find grub2 $theme_name theme\n";
+        cp_f($theme, $themes_dir);
+        @theme_fonts = map { basename($_) } glob("$theme/*.pf2");
     }
 
-    # this will copy (among other things) the gfxboot theme to the media
-    # so this must be done before the creating the bootloader since the code
-    # in there may check if a bootlogo is present or not
-    create_syslinux_msg_files($live);
+    my $eltorito_img = $live->{settings}{config_root} . '/' . $live->{media}{eltorito_img};
+    -e $eltorito_img or die "cannot find grub2 eltorito.img $eltorito_img\n";
+    cp_f($eltorito_img, $grub2_dir . '/eltorito.img');
+
+    my $label = $live->{media}->get_media_label;
 
-    if (need_media_specific_boot($live)) {
-        create_media_bootloader($live);
+    my $grub2_cfg = $grub2_dir . '/grub.cfg';
+    if ($live->{media}{grub2_cfg}) {
+        cp_f($live->{settings}{config_root} . '/' . $live->{media}{grub2_cfg}, $grub2_cfg);
+        run_("sed", "-i", "s/VOLUME_LABEL/$label/g", $grub2_cfg);
     } else {
-        create_classical_bootloader($live);
+        output($grub2_cfg, build_grub2_cfg($live, $theme_name, \@theme_fonts));
     }
 
-    create_efi_boot_image($live) if $live->{settings}{arch} eq 'x86_64';
-}
+    my $title = $label;
+    $title =~ s/-/ /gr;
 
-sub remove_unneeded_bootlogo_locales {
-    use File::Temp;
-    use Cwd;
-
-    my ($bootlogo, @locales) = @_;
-
-    $bootlogo = Cwd::realpath($bootlogo);
-    -f $bootlogo or return;
-
-    my $cwd = Cwd::getcwd();
-    my $tempdir = File::Temp::tempdir("mgagfxbootXXXX", CLEANUP => 1);
-    chdir $tempdir;
-    !system("cpio -id < $bootlogo") or return;
-
-    # Make sure we include the en locale
-    push @locales, 'en';
-    my @kept_locales;
-    foreach my $file (glob "*.tr") {
-        if (!any { $file =~ /^$_\.tr$/ } @locales) {
-            unlink $file;
-        } else {
-            my ($locale_name) = $file =~ /(.*)\.tr$/;
-            push @kept_locales, $locale_name;
-        }
+    my $base_theme_txt = $grub2_dir . "/themes/$theme_name/theme.txt";
+    if (defined $theme_name && -e $base_theme_txt) {
+        run_('sed', '-i', qq(s/title-text:.*/title-text: "$title"/), $base_theme_txt);
     }
-    system(qq(echo init 16x16.fnt *.tr |sed "s/ /\\n/g" |cpio -o >$bootlogo));
-    chdir $cwd;
 
-    print "gfxboot locales: " . join(" ", @kept_locales) . "\n";
-    return @kept_locales;
-}
+    return if $live->{settings}{arch} ne 'x86_64';
+
+    my $bootx64_efi = $live->{settings}{config_root} . '/' . $live->{media}{bootx64_efi};
+    -e $bootx64_efi or die "cannot find grub2 bootx64.efi $bootx64_efi\n";
+
+    my $efi_root_dir = $live->get_builddir . $live->{prefix}{build}{EFI};
+    my $efi_boot_dir = $efi_root_dir . '/BOOT';
+    mkdir_p($efi_boot_dir);
+
+    cp_f($bootx64_efi, $efi_boot_dir);
 
-#- forked from bootsplash::themes_read_sysconfig
-sub get_bootsplash_theme() {
-    my $sysconfig_file = "/etc/sysconfig/bootsplash";
-    local $_;
-    my %theme;
-    foreach (cat_($::prefix . $sysconfig_file)) {
-        /^THEME=(.*)/ and $theme{name} = $1;
+    output($efi_boot_dir . '/grub.cfg', build_uefi_grub2_cfg($live));
+
+    if (defined $theme_name && -e $base_theme_txt) {
+        my $uefi_theme_txt = $grub2_dir . "/themes/$theme_name/theme-uefi.txt";
+        cp_f($base_theme_txt, $uefi_theme_txt);
+        run_('sed', '-i', qq(s/title-text:.*/title-text: "$title (UEFI)"/), $uefi_theme_txt);
     }
-    \%theme;
+
+    my $images_dir = $live->get_builddir . $live->{prefix}{build}{images};
+    mkdir_p($images_dir);
+
+    my $esp_image = $images_dir . '/esp.img';
+    eval { rm_rf($esp_image) };
+    run_("/sbin/mkdosfs", "-F12", "-C", $esp_image, "4096");
+    run_("mcopy", "-s", "-i", $esp_image, $efi_root_dir, "::");
 }
 
-sub create_syslinux_msg_files {
-    my ($live) = @_;
-    my $syslinux_dir = $live->get_builddir . $live->{prefix}{build}{boot} . '/syslinux';
-    mkdir_p($syslinux_dir);
-
-    if ($live->{system}{gfxboot}) {
-        my $product = common::parse_LDAP_namespace_structure(cat_($live->get_system_root . '/etc/product.id'));
-        my $default_gfxboot_theme = $product->{distribution};
-        my $theme = do {
-            local $::prefix = $live->get_system_root;
-            get_bootsplash_theme();
-        };
-        print "copying $default_gfxboot_theme gfxboot theme\n";
-        cp_f(glob_($live->get_system_root . "/usr/share/gfxboot/themes/$default_gfxboot_theme/install/*"), $syslinux_dir);
-        if ($theme->{name} ne $default_gfxboot_theme) {
-            print "copying $theme->{name} gfxboot theme\n";
-            cp_f(glob_($live->get_system_root . "/usr/share/gfxboot/themes/$theme->{name}/*"), $syslinux_dir);
-        }
-        my $bootlogo = $syslinux_dir . '/bootlogo';
-        warn "unable to find gfxboot splash ($bootlogo)\n" if ! -f $bootlogo;
-        my @locales = remove_unneeded_bootlogo_locales($bootlogo, get_langs($live));
-        output_p($syslinux_dir . '/langs', join("\n", @locales) . "\n");
-        output_p($syslinux_dir . '/gfxboot.cfg', join("\n",
-                                                      "livecd=1",
-                                                      "mainmenu.pos=210,235",
-                                                      "mainmenu.bar.minwidth=400",
-                                                      "panel.f-key.fg=0x33358c",
-                                                      "",
-                                                  ));
-    }
+sub build_grub2_cfg {
+    my ($live, $theme_name, $theme_fonts) = @_;
 
-    output($live->get_builddir . $live->{prefix}{build}{boot} . '/help.msg',
-           qq(
-Welcome to $live->{media}{title}!
+    my @loadfonts;
+    if (defined $theme_name) {
+        @loadfonts = map { "loadfont \${prefix}/themes/$theme_name/$_" } @$theme_fonts;
+    }
 
-The command line can be used to specify kernel options.
+    my $boot_dir = $live->get_media_prefix('boot');
 
-$live->{media}{title} <kernel options>
+    join("\n",
+        "search --no-floppy --set=root -l '" . $live->{media}->get_media_label . "'",
+        "set prefix=(\$root)" . $live->get_media_prefix('boot') . "/grub2",
+        "",
+        "if loadfont \${prefix}/fonts/unicode.pf2 ; then",
+        "    set gfxmode=1024x768,800x600,auto",
+        "    set gfxpayload=keep",
+        "    terminal_output gfxterm",
+        "fi",
+        "",
+        if_($theme_name,
+            "if [ x\${uefi} == 'xtrue' ] ; then",
+            "    set theme=\${prefix}/themes/$theme_name/theme-uefi.txt",
+            "else",
+            "    set theme=\${prefix}/themes/$theme_name/theme.txt",
+            "fi",
+            "export theme",
+            @loadfonts,
+        ),
+        "",
+        "set timeout=" . get_bootloader_timeout($live),
+        "set default=" . get_bootloader_default($live),
+        "",
+        (map {
+            my ($name, $cmdline) = @$_;
+            join("\n",
+                "menuentry '$name' {",
+                "    linux $boot_dir/vmlinuz " . get_default_append($live) . if_($cmdline, " $cmdline"),
+                "    initrd $boot_dir/initrd.gz",
+                "}"
+            );
+         } group_by2(@{$live->{media}{bootloader_entries}})),
+        "",
+    );
+}
 
-));
+sub get_bootloader_timeout {
+    my ($live) = @_;
+    defined $live->{media}{bootloader_timeout} ? $live->{media}{bootloader_timeout} : 4;
 }
 
-sub create_efi_boot_image {
+sub get_bootloader_default {
     my ($live) = @_;
-    my $src_dir = $live->get_builddir . $live->{prefix}{build}{files} . '/EFI';
-    my $dst_dir = $live->get_builddir . $live->{prefix}{build}{files} . '/boot';
-    my $label = $live->{media}->get_media_label;
-    run_("sed", "-i", "s/VOLUME_LABEL/$label/g", $src_dir . '/BOOT/grub.cfg');
-    mkdir_p($dst_dir);
-    my $boot_image = $dst_dir . '/efiboot.img';
-    eval { rm_rf($boot_image) };
-    run_("/sbin/mkdosfs", "-F12", "-C", $boot_image, "4096");
-    run_("mcopy", "-s", "-i", $boot_image, $src_dir, "::");
+    defined $live->{media}{bootloader_default} ? $live->{media}{bootloader_default} : 0;
 }
 
-sub create_media_bootloader {
+sub get_default_append {
     my ($live) = @_;
-    cp_f($live->get_system_root . '/boot/vmlinuz-' . $live->find_kernel->{version}, $live->get_builddir . $live->{prefix}{build}{boot} . '/vmlinuz');
-    foreach my $boot ('', @{$live->{media}{extra_boot}}) {
-        my $opts = { boot => $boot };
-        output($live->get_builddir . $live->{prefix}{build}{boot} . get_syslinux_path($live->{media}, $opts),
-               build_syslinux_cfg($live, $live->{media}, $opts));
-    }
+    my $append = $live->{system}{append};
+    join(" ",
+         "root=mgalive:LABEL=" . $live->{media}->get_media_label,
+         if_($append, $append),
+         if_($live->{system}{vga_mode} && $append !~ /\bvga=\b/,
+             "vga=" . $live->{system}{vga_mode}),
+    );
 }
 
-sub create_classical_bootloader {
+sub build_uefi_grub2_cfg {
     my ($live) = @_;
-    my $initrd_prefix = "/initrd.img";
-    my $initrd = $live->get_system_root . $live->get_media_prefix('boot') . $initrd_prefix;
-    my $part_idx = $live->{media}->find_boot_partition_index;
-    my $oem_rescue_idx = $live->{media}->find_partition_index('OEM_RESCUE');
-    output_p($live->get_system_root . '/boot/grub/menu.lst', build_grub_cfg_raw($live, $live->{media}, -e $initrd && $initrd_prefix, { oem_rescue_idx => $oem_rescue_idx }, $part_idx));
+    join("\n",
+        "search --no-floppy --set=root -l '" . $live->{media}->get_media_label . "'",
+        "set prefix=(\$root)" . $live->get_media_prefix('boot') . "/grub2",
+        "",
+        "set uefi=true",
+        "export uefi",
+        "",
+        "configfile \${prefix}/grub.cfg",
+        "",
+    );
 }
 
-sub get_iso_master_path {
-    my ($live, $opts) = @_;
-    $live->get_builddir . $live->{prefix}{build}{dist} . '/' . $live->get_name . ($opts->{boot} && "-boot-$opts->{boot}") . '.iso';
+sub create_master {
+    my ($live) = @_;
+
+    if (my $create = $live->{media}->get_storage_setting('create')) {
+        $create->($live);
+    } else {
+        warn "not implemented yet\n";
+    }
 }
 
 sub create_iso_master {
-    my ($live, $opts) = @_;
+    my ($live) = @_;
+
     my $label = $live->{media}->get_media_label or die "the source device must be described by a label\n";
-    my $dest;
-    unless ($opts->{onthefly}) {
-        $dest = get_iso_master_path($live, $opts);
-        mkdir_p(dirname($dest));
-    }
+
+    my $mbr_image = $live->{settings}{config_root} . '/' . $live->{media}{mbr_boot_img};
+
+    my $esp_image = $live->get_builddir . $live->{prefix}{build}{images} . '/esp.img';
+
+    my $dest = $live->get_builddir . $live->{prefix}{build}{dist} . '/' . $live->get_name . '.iso';
+    mkdir_p(dirname($dest));
+
     build_iso_image(
         $live,
         $dest,
-        $live->get_builddir . $live->{prefix}{build}{boot} . get_syslinux_path($live->{media}, $opts),
         $label,
-        $live->get_media_prefix('boot', $opts->{boot}) . '=' . $live->get_builddir . $live->{prefix}{build}{boot},
-        if_(!$opts->{boot_only},
-            (map {
-                 $live->get_media_prefix('loopbacks', $opts->{boot}) . $_ .
-                 '=' .
-                 $live->get_builddir . $live->{prefix}{build}{loopbacks} . $_;
-             } list_selected_loopbacks($live)),
-             if_($live->{media}{files},
-                map {
-                    $_ . '=' . $live->get_builddir . $live->{prefix}{build}{files} . '/' . $_;
-                } all($live->get_builddir . $live->{prefix}{build}{files})
-             ),
+        $mbr_image,
+        $esp_image,
+        $live->get_media_prefix('boot') . '=' . $live->get_builddir . $live->{prefix}{build}{boot},
+        if_($live->{settings}{arch} eq 'x86_64',
+            $live->get_media_prefix('EFI')  . '=' . $live->get_builddir . $live->{prefix}{build}{EFI},
+        ),
+        (
+            map {
+                $live->get_media_prefix('loopbacks') . $_ .
+                '=' .
+                $live->get_builddir . $live->{prefix}{build}{loopbacks} . $_;
+            } list_selected_loopbacks($live)
+        ),
+        if_($live->{media}{files},
+            map {
+                $_ . '=' . $live->get_builddir . $live->{prefix}{build}{files} . '/' . $_;
+            } all($live->get_builddir . $live->{prefix}{build}{files})
         ),
     );
 }
 
 sub build_iso_image {
-    my ($live, $dest, $isolinux_cfg, $label, @opts) = @_;
-
-    my $progress = MDV::Draklive::Progress->new(100, time());
-    my $in_progress;
-    autoflush STDOUT 1;
-    local $_;
-    run_foreach(sub {
-                    if (/^\s*([0-9.]+)%\s*done,/) {
-                        $progress->{current} = int($1);
-                        $progress->show(time());
-                        $in_progress = 1;
-                    } else {
-                        print "\n" if $in_progress;
-                        print $_;
-                        $in_progress = 0;
-                    }
-                },
-         'xorriso', '-as', 'mkisofs', '-pad', '-l', '-R', '-J',
-         '-V', $label, #'-A', $application, '-p', $preparer, '-P', $publisher,
-         '-b', 'isolinux/isolinux.bin',
-         '-c', 'isolinux/boot.cat',
-         '-hide-rr-moved', '-no-emul-boot',
-         '-boot-load-size', 4, '-boot-info-table',
-         '-graft-points',
-         if_($live->{settings}{arch} =~ /x86_64/, '-eltorito-alt-boot', '-e', 'boot/efiboot.img', '-no-emul-boot'),
-         if_($dest, '-o', $dest),
-         'isolinux=' . $live->get_builddir . $live->{prefix}{build}{boot} . '/syslinux',
-         'isolinux/isolinux.cfg=' . $isolinux_cfg,
-         'isolinux/isolinux.bin=/usr/lib/syslinux/isolinux.bin',
-         'isolinux/chain.c32=/usr/lib/syslinux/chain.c32',
-         'isolinux/gfxboot.c32=/usr/lib/syslinux/gfxboot.c32',
-         'isolinux/ldlinux.c32=/usr/lib/syslinux/ldlinux.c32',
-         'isolinux/libcom32.c32=/usr/lib/syslinux/libcom32.c32',
-         'isolinux/libgpl.c32=/usr/lib/syslinux/libgpl.c32',
-         'isolinux/libmenu.c32=/usr/lib/syslinux/libmenu.c32',
-         'isolinux/libutil.c32=/usr/lib/syslinux/libutil.c32',
-         @opts,
-    ) or die "unable to run xorriso\n";
-    autoflush STDOUT 0;
-    $progress->end;
+    my ($live, $dest, $label, $mbr_image, $esp_image, @opts) = @_;
+
+    my $boot = $live->get_media_prefix('boot');
+    my $EFI  = $live->get_media_prefix('EFI');
+
+    run_('xorrisofs',
+            '-pad', '-l', '-R', '-J',
+            '-V', $label,
+            '-graft-points',
+            '-hide-rr-moved',
+            '--sort-weight', 0, '/',
+            '--sort-weight', 1, $boot,
+            # for hybrid MBR boot
+            '--grub2-mbr', $mbr_image,
+            '-b', "$boot/grub2/eltorito.img",
+            '-no-emul-boot',
+            '-boot-load-size', 4,
+            '-boot-info-table',
+            '--grub2-boot-info',
+            if_($live->{settings}{arch} eq 'x86_64',
+                # for DVD UEFI boot
+                '-eltorito-alt-boot',
+                '-e', "$EFI/BOOT/bootx64.efi",
+                '-no-emul-boot',
+                # for USB UEFI boot
+                '-part_like_isohybrid',
+                '-iso_mbr_part_type', '0x00',
+                '-append_partition', 2, '0xef', $esp_image,
+            ),
+            if_($dest, '-o', $dest),
+            @opts,
+    ) or die "unable to run xorrisofs\n";
     if ($dest) {
         my $dir = dirname($dest);
         my $filename = basename($dest);
-        run_('isohybrid', ($live->{settings}{arch} =~ /x86_64/ ? '-u' : '-o 1'), $dest);
         run_('mgaiso-addmd5', '>', '/dev/null', '2>', '/dev/null', $dest);
         run_({ chdir => $dir }, 'md5sum', '>', $dest . '.md5', $filename);
         run_({ chdir => $dir }, 'sha1sum', '>', $dest . '.sha1', $filename);
@@ -778,24 +668,6 @@ sub build_iso_image {
     }
 }
 
-#- $opts:
-#-   media: alternate media
-#-   onthefly : if true, the create function must output to stdout
-sub create_master {
-    my ($live, $opts) = @_;
-
-    if (my $create = $live->{media}->get_boot_setting('create', $opts)) {
-        $create->($live, $opts);
-    } else {
-        warn "not implemented yet\n";
-    }
-}
-
-sub maybe_umount_device {
-    my ($device) = @_;
-    run_('umount', $device) if cat_('/proc/mounts') =~ m!^$device\s+!m;
-}
-
 sub clean {
     my ($live) = @_;
     # umount filesystem in the live before cleaning
@@ -819,13 +691,11 @@ my @all = qw(install boot loop master);
 die "you must be root to run this program\n" if $>;
 
 my $live_object = 'MDV::Draklive::Live'->new;
-my %opts;
 my $config_root = $MDV::Draklive::Config::default_config_root;
 my $config_path = $MDV::Draklive::Config::default_config_path;
 my $settings_path = $MDV::Draklive::Config::default_settings_path;
 GetOptions(
     "help" => sub { Pod::Usage::pod2usage('-verbose' => 1) },
-    "boot-only" => \$opts{boot_only},
     "all" => sub { $_->{to_run} = 1 foreach grep { member($_->{name}, @all) } @actions },
     (map { $_->{name} => \$_->{to_run} } @actions),
     "all-regions" => sub { $live_object->{all_regions} = 1 },
@@ -845,7 +715,7 @@ require standalone;
         $live_object->{settings}{region} = $region;
         foreach (grep { $_->{to_run} } @actions) {
             print qq(* entering step "$_->{name}"\n);
-            $_->{do}->($live_object, \%opts);
+            $_->{do}->($live_object);
             print qq(* step "$_->{name}" done\n);
         }
     }
@@ -891,9 +761,6 @@ draklive [options]
 
    --all-regions     proceed with all configured regions
 
-   --boot-only       copy only boot files
-                     (affects master/record steps)
-
 Examples:
 
  draklive --clean