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@redhat.com http://www.redhat.com/mailman/listinfo/fedora-test-list