summaryrefslogtreecommitdiffstats
path: root/tools/draklive
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-12-15 18:34:17 +0000
committerOlivier Blin <oblin@mandriva.org>2005-12-15 18:34:17 +0000
commitd5cb89c3e9961c57ff19b020d6c1b874f9657673 (patch)
tree7dd0b1e4b890c269683742a5f84f5ea03132846b /tools/draklive
parent46c07cbbef963d0127fc557436136080bac63b9a (diff)
downloaddrakx-d5cb89c3e9961c57ff19b020d6c1b874f9657673.tar
drakx-d5cb89c3e9961c57ff19b020d6c1b874f9657673.tar.gz
drakx-d5cb89c3e9961c57ff19b020d6c1b874f9657673.tar.bz2
drakx-d5cb89c3e9961c57ff19b020d6c1b874f9657673.tar.xz
drakx-d5cb89c3e9961c57ff19b020d6c1b874f9657673.zip
create cdrom master using mkisofs
Diffstat (limited to 'tools/draklive')
-rwxr-xr-xtools/draklive20
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}) {