#!/usr/bin/perl
system( "rm", "-rf", "/root/.cpcpan" );
system( "rm", "-rf", "/home/.cpcpan" );

my $hasexp = 0;
open( PERLINSTALLER, "/scripts/perlinstaller" );
while (<PERLINSTALLER>) {
    if (/^[\s\t]*(require|use) Expect/) { $hasexp = 1; }
}
close(PERLINSTALLER);

if ($hasexp) {
    eval { require Cwd; };
    my $cwd = '.';
    my $cwd_cwd = Cwd::getcwd();
    if ($cwd_cwd) { $cwd = $cwd_cwd; }

    system( '/scripts/perlinstaller', 'Expect' );
    system( '/scripts/perlinstaller', 'CPAN' );
    system( '/scripts/perlinstaller', 'CPAN' );
    system( '/scripts/perlinstaller', 'file:' . $cwd . '/perlmods' );
    system( '/scripts/perlinstaller', 'file:' . $cwd . '/perlmods' );
}
else {
    system('./expectcpan');
    system('./expectcpan');
    system('./expectperl');
    system('./expectperl');
}