DVD installation media...

traxtopel traxtopel at fastmail.fm
Thu Oct 2 11:23:45 UTC 2003


Not my script, but this works ....

#!/usr/bin/perl

#############################################################################
$rhrelease = "severn"; #change this to the name of redhat release
$outdir = "/tmp/"; #change this to output iso to (needs 3.5gb free)
#############################################################################

use File::Path;
# The file prefixes redhat x
$rhname = $rhrelease . "-i386-disc";
$rhsname = $rhrelease . "-SRPMS-disc";

# Make the directories for the loop back mounts
$mk_dir = "mkdir ./$rhname"."{1,2,3,4,5,6}";
$cmd_res = `$mk_dir`;

# Mount the files RH9 uses has SRPMS and i386 discs, but to the RH
system they are all i386 in the 
# .discinfo file numbered 1..6 so we will mount them all under the same
naming convention for
# convenience.

$s = 1;
for($x = 1 ; $x < 4 ; $x++) {
        $mnt_res = `mount -o ro,loop ./$rhname$x.iso ./$rhname$x`;
        $s = $x+3;
        $mnt_res = `mount -o ro,loop ./$rhsname$x.iso ./$rhname$s`;
        }

# Copy out the isolinux and the .discinfo files from Disc1 and modify
.discinfo

$disc1 = "$rhname"."1";
`cp -r ./$disc1/.discinfo .`;
`cp -r ./$disc1/isolinux .`;

# This basically tells the RH installer that all the discs are together
# on a single disc. vs the old entry which was just 1.
`awk '{ nlines++ ; if(nlines == 4) { print \"1,2,3,4,5,6\" } else {
print \$0 }}' ./.discinfo > .discinfo.tmp`;
rename("./.discinfo.tmp","./.discinfo") or die "Couldn't rotate
.discinfo file\n";

# Naming...
$MKISO  = "mkisofs -o " . $outdir . $rhrelease . "-i386-\*dvd\*.iso ";

# Setup boot stuff using El Torito
$MKISO .= "-b isolinux/isolinux.bin -c isolinux/boot.cat ";
$MKISO .= "-no-emul-boot -boot-load-size 4 -boot-info-table ";

# Rockridge extensions and trans
$MKISO .= "-R -m TRANS.TBL ";

# What to exclude from the primary disc
$MKISO .= "-x $disc1/.discinfo -x $disc1/isolinux ";

# What to replace it with. Use the .discinfo edited above and the
isolinux directory
$MKISO .= "-graft-points $disc1 .discinfo=.discinfo isolinux/=isolinux
";

# Then append the directories needed from the other discs
$MKISO .= "RedHat/=$rhname"."2/RedHat RedHat/=$rhname"."3/RedHat ";
$MKISO .= "SRPMS/=$rhname"."4/SRPMS SRPMS/=$rhname"."5/SRPMS
SRPMS/=$rhname"."6/SRPMS ";

# Make the disc
`$MKISO`;

# Clean-up
$s = 1;
for($x = 1 ; $x < 7 ; $x++) {
        $mnt_res = `umount ./$rhrelease-i386-disc$x`;
        rmtree("./$rhrelease-i386-disc$x");
        }

rmtree("./isolinux");
unlink("./.discinfo");
# END


On Thu, 2003-10-02 at 12:37, Thomas Munck Steenholdt wrote:
> Is there a howto around somewhere descriping how to create a DVD media for
> RHL/Fedora Core??? Alternatively, was it an idea to produce a DVD image
> along with the CD images in the future?
> 
> Thomas
> 
> 
> 
> --
> fedora-test-list mailing list
> fedora-test-list at redhat.com
> http://www.redhat.com/mailman/listinfo/fedora-test-list
-- 
traxtopel <traxtopel at fastmail.fm>





More information about the fedora-test-list mailing list