diff options
| -rwxr-xr-x | tools/draklive | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tools/draklive b/tools/draklive index 0bee1a415..f4b15329b 100755 --- a/tools/draklive +++ b/tools/draklive @@ -225,6 +225,7 @@ my %storage = ( cdrom => { read_only => 1, modules => 'disk/cdrom|hardware_raid|sata|scsi bus/usb disk/raw', + create => \&create_cdrom_master, }, usb => { modules => 'bus/usb disk/raw|usb', @@ -351,6 +352,7 @@ sub create_initrd_linuxrc { "")); } +#- builds $live->{boot_dir} . '/initrd.gz' sub compress_initrd_tree { my ($live) = @_; @@ -473,6 +475,24 @@ sub prepare_bootloader { output($live->{boot_dir} . '/syslinux.cfg', build_syslinux_cfg($live)); } +sub create_cdrom_master { + my ($live) = @_; + my $dest = $live->{images_dir} . '/live.iso'; + my $label = get_media_label($live) or die "the source device must be described by a label"; + run_('mkisofs', '-pad', '-l', '-R', '-J', '-v', '-v', + '-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', + '-o', $dest, + '-graft-points', + 'isolinux/isolinux.bin=/usr/lib/syslinux/isolinux-graphic.bin', + 'isolinux/isolinux.cfg=' . $live->{boot_dir} . '/syslinux.cfg', + (map { 'isolinux/=' . $live->{boot_dir} . '/' . $_ } qw(vmlinuz initrd.gz live.msg)), + (map { $live->{images_dir} . '/' . $_->{source} } grep { $_->{build_from} } @{$live->{mount}{dirs}})); +} + sub create_master { my ($live) = @_; if (my $create = $storage{$live->{media}{storage}}{create}) { |