#!/usr/bin/perl

$|=1;

$ENV{'APACHE'} = '/usr/local/apache';

chomp($system = `uname -s`);

if ($system =~ /freebsd/i) {
	$proto='ftp';
} else {
	$proto='http';
}


system("ln -s /usr /usr/local/ssl 2>/dev/null");

use Cwd;
use File::Spec;
use CPAN;


eval {
                require CPAN::MyConfig
};
if($@) {
        eval {
                require CPAN::Config;
        };
};


sub CPAN::Distribution::test {
   my($self) = @_;
    $self->make;
}

$CPAN::Config = {
  'build_cache' => q[10],
  'build_dir' => q[/home/.cpan/build],
  'cache_metadata' => q[1],
  'cpan_home' => q[/home/.cpan],
  'dontload_hash' => {  },
  'ftp' => q[/usr/bin/ftp],
  'ftp_proxy' => q[],
  'getcwd' => q[cwd],
  'gzip' => q[/bin/gzip],
  'http_proxy' => q[],
  'inactivity_timeout' => q[400],
  'index_expire' => q[1],
  'inhibit_startup_message' => q[0],
  'keep_source_where' => q[/home/.cpan/sources],
  'lynx' => q[/usr/bin/lynx],
  'make' => q[/usr/bin/make],
  'make_arg' => q[],
  'make_install_arg' => q[UNINST=1],
  'makepl_arg' => q[],
  'ncftpget' => q[/usr/bin/ncftpget],
  'no_proxy' => q[],
  'pager' => q[/usr/bin/less],
  'prerequisites_policy' => q[follow],
  'scan_cache' => q[atstart],
  'shell' => q[/bin/bash],
  'tar' => q[/bin/tar],
  'term_is_latin' => q[1],
  'unzip' => q[/usr/bin/unzip],
  'urllist' => [q[$proto://ftp.cpanel.net/pub/CPAN/]],
  'wait_list' => [q[wait://ls6.informatik.uni-dortmund.de:1404]],
  'wget' => q[/usr/bin/wget],
};


	push(@mods_to_get,$mod);
	for my $module (@mods_to_get) {
	        $CPAN::Config->{make_install_arg}[0] = "UNINST=1";
	        $CPAN::Config->{make_test} = "NO";
	        $CPAN::Config->{urllist}[0] = "$proto://ftp.cpanel.net/pub/CPAN/";
		CPAN::Shell->install("Bundle::CPAN");

open(PERLMODS,"perlmods");
while(<PERLMODS>) {
        $obj = $_;
        $obj =~ s/\n//g;
        next if ($obj eq "");
        print "Installing $obj....\n";
		$CPAN::Config{makepl_arg} = '';

	if ($obj eq "HTML::Embperl"){
		$CPAN::Config{makepl_arg} = '0 n';
	}
	 CPAN::Shell->install("$obj");
}
close(PERLMODS);



	}





print "perlmod--Install done\n";