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

#!/usr/bin/perl -w
# Small script for Generating a Custom ISO for Morphix
# © Laurens Buhler 2003 under the terms of the GPL

use strict; 

print ("\t\tWelcome to the Morphix CD ISO creator\n\n");

# Creating a while loop to make the program stop when requested
our $exit;
our $continue;
our @mainmod;
our @minimod;
our @chosenmain;
our @chosenmini;

while (!$exit){

# Checking for the necessary programs (mkisofs, wget, tar)
my $wget = qx|which wget 2>&1|;
my $mkisofs = qx|which mkisofs 2>&1|;
my $tar = qx|which tar 2>&1|;
        
if ($wget =~/no wget in/){
        print ("wget was not found, exiting...\n");
        $exit++; last if $exit;
} elsif ($mkisofs =~/no mkisofs in/){
        print ("mkisofs was not found, exiting...\n");
        $exit++; last if $exit;
} elsif ($tar =~/no tar in/){
        print ("tar was not found, exiting...\n");
        $exit++; last if $exit;
} else {
        print ("\tNecessary programs where found, fetching the modules list...\n");
}

my $startdir = qx|pwd|;
my $workdir = "./.tmp.6978";

# Creating temp dir for generating the ISO
system ("mkdir $workdir");
system ("wget ftp://dl.xs4all.nl/pub/mirror/drupal/Morphix/modules.list");

# Sorting the available modules
my @modules = grep {!/^\s*$/} qx|cat modules.list|;
foreach my $line(@modules){
        if ($line =~/mainmod/){
                push(@mainmod,$line);
        } elsif ($line =~/minimod/){
                push(@minimod,$line);
        }
}
print ("\tWhich Main Module\(s\) would you like added?\n\n");

# Printing the available modules
my $number = "1";
foreach my $line(@mainmod){
        my @x = split/\//,$line;
        my @name = split/\t/,$x[-1];
        print ("[$number]\t $name[0]\n");
        $number++;
}

# User choses the modules here
print ("\nPlease make your choice: ");
chomp (my $mainchoice = <stdin>);
my $maxnum = @mainmod;
while ($mainchoice =~/\D/ || $mainchoice eq "" || $mainchoice > $maxnum || $mainchoice < 1 || $mainchoice =~/\./){
                print ("Invalid number, please choose again: ");
                chomp ($mainchoice = <stdin>);
}
push (@chosenmain,$mainchoice);

my $stop_add;
$maxnum = @minimod;
while (!$stop_add){
        print ("Would you like to add another module? [y/N]: ");
        chomp ($continue = <stdin>);
        $continue = lc($continue);
        if ($continue =~/n/ || $continue eq ""){
                $stop_add = "1";
        } elsif ($continue =~/y/){
                print ("Please make your choice: ");
                chomp (my $mainchoice = <stdin>);
                while ($mainchoice =~/\D/ || $mainchoice eq "" || $mainchoice > $maxnum || $mainchoice < 1 || $mainchoice =~/\./){
                        print ("Invalid number, please choose again: ");
                        chomp ($mainchoice = <stdin>);
                }
                push (@chosenmain,$mainchoice);
        }
}

undef $stop_add;
while (!$stop_add){
        print ("Would you like to add a minimodule? [y/N]: ");
        chomp ($continue = <stdin>);
        $continue = lc($continue);
        if ($continue =~/n/ || $continue eq ""){
                $stop_add = "1";
        } elsif ($continue =~/y/){
                my $number = "1";
                print ("\n");
                foreach my $line(@minimod){
                        my @x = split/\//,$line;
                        my @name = split/\t/,$x[-1];
                        print ("[$number]\t $name[0]\n");
                        $number++;
                }
                print ("Please make your choice: ");
                chomp (my $minichoice = <stdin>);
                while ($minichoice =~/\D/ || $minichoice eq "" || $minichoice > $maxnum || $minichoice < 1 || $minichoice =~/\./){
                        print ("Invalid number, please choose again: ");
                        chomp ($minichoice = <stdin>);
                }
                push (@chosenmini,$minichoice);
        }
}

# Printing the list of chosen modules
print ("\nThe following module\(s\) will be added:\n");
foreach my $line(@chosenmain){
        $line--;
        my @x = split/\//,$mainmod[$line];
        my @name = split/\t/,$x[-1];
        print ("\t$name[0]\n");
}
if (@chosenmini){
        foreach my $line(@chosenmini){
                $line--;
                my @x = split/\//,$minimod[$line];
                my @name = split/\t/,$x[-1];
                print ("\t$name[0]\n");
        }
}

# Here we calculate the total size to be used for the ISO
my @basesize = split/\t/,$modules[-1];
chomp (my $basesize = $basesize[-1]);
my $isototal = $basesize;
foreach my $line(@chosenmain){
        $line--;
        my @x = split/\//,$mainmod[$line];
        my @name = split/\t/,$x[-1];
        chomp $name[1];
        $isototal = sprintf ("%.f",($isototal + $name[1]));
}
if (@chosenmini){
        foreach my $line(@chosenmini){
                my @x = split/\//,$minimod[$line];
                my @name = split/\t/,$x[-1];
                chomp $name[1];
                $isototal = sprintf ("%.f",($isototal + $name[1]));
        }
}
$isototal = sprintf ("%.f",($isototal / 1024));
print ("The ISO will be: $isototal mb\n");

# Downloading the files for the ISO
print ("The ISO will now be downloaded and build, do you wish to proceed?\n");
print ("Press any key to proceed or q to quit: ");
chomp ($continue = <stdin>);
$continue = lc($continue);
if ($continue =~/q/){
        $exit++; last if $exit;
}

my @baseurl = split/\t/,$modules[-1];
#print ("$baseurl[0]\n");
system ("wget $baseurl[0]");
foreach my $line(@chosenmain){
        $line--;
        my @x = split/\t/,$mainmod[$line];
        system ("wget $x[0]");
        #print ("$x[0]\n");
}
if (@chosenmini){
        foreach my $line(@chosenmini){
                my @x = split/\t/,$minimod[$line];
                system ("wget $x[0]");
                #print ("$x[0]\n");
        }
}

my @morphbase = split/\//,$baseurl[0];
chomp $morphbase[-1];
system ("cd $workdir && tar xvzf ../$morphbase[-1]");
system ("cp *Main*.mod $workdir/mainmod");
system ("cp *Mini*.mod $workdir/minimod");

# Time to create the ISO
system ("cd $workdir && mkisofs -r -b base/boot.img -c boot.catalog -o ../morphix-custom.iso -J -v -l -L -T -V \"Morphix-Custom\" .");
print ("ISO written to: morphix-custom.iso\n");

# Finishing up 
print ("Do you want to delete the downloaded files?\n");
print ("Press any key to proceed or q to quit: ");
chomp ($continue = <stdin>);
$continue = lc($continue);
if ($continue =~/q/){
} else {
        system ("rm -rf $morphbase[-1]");
        system ("rm -rf *Main*.mod");
        system ("rm -rf *Mini*.mod");
        system ("rm -rf modules.list");
}

# Cleaning up
system ("rm -rf $workdir");
$exit++; last if $exit;
}