#!/usr/local/bin/perl
#
# put together by simon lai in a great hurry with thanks to the CGI.pm library
#
use CGI;

$cgi = new CGI;

read_form();
make_environment();
read_response();
exit;

#-------------------------------------------------------------------------
sub read_form{
	@form_names= $cgi->param;
	}

#-------------------------------------------------------------------------

sub make_environment{
	foreach $n (@form_names) {
		$ENV{$n}=$cgi->param($n);
		}
	}	

#-------------------------------------------------------------------------

sub read_response {
	$safescript=$cgi->param(AAscript);
	$safescript =~ s/[~A-Z].*// ;

# Security feature, put your home directory here instead of
# my home directory /cc/staff1/edp/cpa

	open(CMD, "/cc/staff1/edp/cpa/WWW/cgi-bin/$safescript|");
	while(<CMD>) {
		print $_;
		}
	}