root/morphix/trunk/morph-scripts/iso-builder.pl

#!/usr/bin/perl -w
#
# ISO-builder is a small script to generate an ISO image ready for burning from
# a directory containing all the modules and boot image
#

use strict;

if ($> != 0) {
    print "Sorry, you must be root to start the iso builder!\n";
    exit 1;
}

if (@ARGV != 2) {
    print "iso-builer, for Morphix/KNOPPIX based distros\n\n";
    print "Usage:\n";
    print "iso-builder.pl source-directory outputfile.iso\n";
    exit 1;
}

our $i;
our $moddir = "";
our $output = "";
our $var;

for ($i = 0; $i < @ARGV; $i++) {
    $var = $ARGV[$i];

    if ($moddir eq "") {
        $moddir = $ARGV[$i];
        next;
    }
    $output = $ARGV[$i];
}

print "Building iso, please wait...\n";

system "mkisofs -pad -l -r -J -v -V \"Morphix\" -b base/boot.img -c base/boot.cat -hide-rr-moved -o $output $moddir";