#!/usr/bin/perl

my(@MODS);
my $hasnetftp = 0;
my $hasnetsslftp = 0;
eval {
        require Net::FTP;
        $hasnetftp = 1;
};
eval {
        require Net::FTPSSL;
        $hasnetsslftp = 1;
};


if (!$hasnetftp) {
        push(@MODS,'Net::FTP');
}
if (!$hasnetsslftp && $ARGV[0] =~ /ssl/i) {
        push(@MODS,'Net::FTPSSL');
}

if ($#MODS > -1) {
	system('/scripts/perlinstaller',@MODS);
}
if ($ARGV[0] =~ /ssl/i) {
	exec('/scripts/netftpsslpatch');
}