#######################################
#changes I should make to buildModules script:
#   -libwww: pass -n option to Makefile.PL
#   -Net::SSLeay:  perl Makefile.PL /usr/local/openssl
#   -print out a warning telling you to build openssl, expat, and zlib
+ first
#######################################

print "\n  (Don't forget to build openssl, expat, and zlib first.  Als
+o see notes at the top of this script.)\n";

$perl = '/usr/newperl/bin/perl';
if ($^O eq 'aix') {
    $dir = '/export/home/joe/perl58source/modules';
}
else {
    $dir = '/export/home/u1/jcullin/perl58source/modules';
}

use File::Copy;

my (@modules, $unpackOnly);

# Optional args:
#  These are for when I want to test my changes for a specific
#  module, or for when I mess up a specific module and need to
#  redo it.
if (@ARGV)
{
    @modules = @ARGV;
    if (scalar @ARGV == 2 && $ARGV[1] eq 'unpack')
    {
        pop @modules;
        $unpackOnly = 1;
    }   
}
# When run with no args, the script installs this list of modules:
#
else
{
    # I think I remember tweaking the order of this list
    # in order to satisfy some dependencies.  Too bad I
    # didn't bother commenting it...

    @modules = ('IO-stringy-2.108',
                'YAML-0.35',
                'Parse-RecDescent-1.94',
                'Mail-IMAPClient-2.2.9',
                'CGI.pm-3.00',
                'Convert-ASN1-0.17',
                'Digest-MD5-2.29',
                'HTML-Tagset-3.03',
                'HTML-Parser-3.31',
                'Lingua-Ispell-0.07',
                'URI-1.27',
                'libnet-1.17',
                'XML-Parser-2.31',
                'MIME-Base64-2.20',
                'MailTools-1.60',
                'MIME-tools-5.411a',
                'Net-Ping-2.30',
                'Net_SSLeay.pm-1.22',
                'IO-Socket-SSL-0.95',
                'libwww-perl-5.69',
                'XML-SAX-Base-1.02',
                'Authen-SASL-2.04',
                'perl-ldap-0.29',
                'Hook-WrapSub-0.03',
                'Date-Simple-2.04',
                'Convert-TNEF-0.17',
                'Compress-Zlib-1.22',
                'IO-Zlib-1.01',
                'Archive-Tar-1.05',
                'Archive-Zip-1.06',
                'MIME-Lite-3.01',
                'Crypt-SSLeay-0.51',
                'SOAP-Lite-0.55',
                'DBI-1.38',
                'NTLM-1.02',
                );
}

# non perl modules, extra steps, etc.:
@exceptions = ('expat-1.95.6',
               'openssl-0.9.7c',
               'zlib-1.1.4',
               );

# check directories first:
die ("directory$dir doesn't exist.\n") if !-d $dir;
if (!-d "$dir/temp")
{
    mkdir "$dir/temp" || die ("directory$dir/temp doesn't exist.\n");
}
die ("directory$dir/temp is not writable.\n") if !-w "$dir/temp";



for my $module (@modules)
{
    if (&GetYesNoInput("Begin install of $module?") ne 'yes')
    {
        print "Skipping $module...\n\n";
        next;
    }

    print "cleaning up temp directory...\n";
    chdir $dir;
    system('rm -Rf temp/*');

    print "unpacking $module files...\n";
    my $copySuccess = copy ("$dir/${module}.tar.gz", "$dir/temp");
    if (!$copySuccess)
    {
        print "failed copying ${module}.tar.gz to temp directory!!!\n"
+;
        print "skipping ${module}...\n";
    }
    chdir "$dir/temp";
    system ("gzip -d ${module}.tar.gz");
    system ("tar xvf ${module}.tar");
    exit if $unpackOnly;

    # create empty config file for Net module:
    if ($module =~ /libnet/)
    {
        open (CONFIG, ">$dir/temp/${module}/libnet.cfg");
        close CONFIG;
    }

    # MIME-tools .tar.gz file is named differently than the dir that i
+t contains:
    $module =~ s/a$// if $module eq 'MIME-tools-5.411a';

    my $makefileArgs;
    $makefileArgs = 'EXPATLIBPATH=/usr/footprints_perl/expat/lib EXPAT
+INCPATH=/usr/footprints_perl/expat/include' if $module =~ /^XML-Parse
+r/;

    print "Makefile.PL $makefileArgs...\n";
    chdir "$dir/temp/$module";
    system ("$perl Makefile.PL $makefileArgs");

    print "make...\n";
    system ("make");

    print "make test...\n";
    system ("make test");

    if (&GetYesNoInput("Ok to continue with install of $module?") eq '
+yes')
    {
        print "make install...\n";
        system ("make install");
    }
    else
    {
        print "ok.  skipping $module\n";
    }
}

sub GetYesNoInput
{
    my $prompt = $_[0];
    print "\a";  # system bell
    print "\n";

    print "$prompt\n"if $prompt;

    my ($correctYesNoInput, $yesNoInput, $yesNo);
    while (!$correctYesNoInput)
    {
        print "[Enter y or n.] \n";
        $yesNoInput = <STDIN>;
        $yesNoInput =~ s/^\s*(.*?)\s*$/$1/;  # trim whitespace
        my $lcInput = lc($yesNoInput);
        if ($lcInput eq 'y' || $lcInput eq 'yes')
        {
            $yesNo = 'yes';
            $correctYesNoInput = 1;
        }
        elsif ($yesNoInput =~ /^n(o){0,1}$/i)
        {
            $yesNo = 'no';
            $correctYesNoInput = 1;

        }
    }
    return $yesNo;
}
[download]