#! /usr/bin/perl -w

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CPAN;
use CPAN::Config;

my $query = new CGI;
my $update = $query->url_param('update');
my $moduleparam = $query->url_param('module');

if ($update) {
	for my $key (keys %{$CPAN::Config}) {
		$CPAN::Config->{$key} = $query->param($key) unless grep($key eq $_, qw[dontload_hash urllist wait_list]);
	}
}

else {
	$CPAN::Config->{'build_dir'} = q[EDITED FOR SECURITY PURPOSES];
	$CPAN::Config->{'cpan_home'} = q[EDITED FOR SECURITY PURPOSES];
	$CPAN::Config->{'histfile'} = q[EDITED FOR SECURITY PURPOSES];
	$CPAN::Config->{'keep_source_where'} = q[EDITED FOR SECURITY PURPOSES];
	$CPAN::Config->{'make_install_arg'} = q[];
	$CPAN::Config->{'makepl_arg'} = q[PREFIX=EDITED FOR SECURITY PURPOSES SITELIBEXP=EDITED FOR SECURITY PURPOSES LIB=EDITED FOR SECURITY PURPOSES INSTALLMAN1DIR=EDITED FOR SECURITY PURPOSES INSTALLMAN3DIR=EDITED FOR SECURITY PURPOSES INSTALLSITEMAN1DIR=EDITED FOR SECURITY PURPOSES INSTALLSITEMAN3DIR=EDITED FOR SECURITY PURPOSES];
}

print $query->header();
printf '<h2>CGI CPAN Module Installer</h2><h3>CPAN Configuration (CPAN::Config)</h3><form action="%s?update=1&module=%s" method="post"><table border="0" cellpadding="3" cellspacing="0">', $query->url(-relative=>1), $moduleparam;

for my $key (sort keys %{$CPAN::Config}) {
	printf '<tr><td align="right"><label for="%s">%s</label></td><td><input type="text" name="%s" value="%s" size="75" /></td></tr>', $key, $key, $key, $CPAN::Config->{$key} unless grep($key eq $_, qw[dontload_hash urllist wait_list]);
}

print '<tr><td colspan="2" align="right"><input type="submit" value="run again" /></td></tr></table></form>';

if ($moduleparam) {
	print '<p /><h3>Working...</h3><textarea cols="76" rows="25">';
	my $module = CPAN::Shell->expand('Module',$moduleparam);
	$module->install;
	print '</textarea><p />';
}

print '<strong>finished</strong>';