#!/usr/bin/perl

{
	if ($ENV{'CONTENT_LENGTH'})
	{
		read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
	}
	$input = $ENV{'QUERY_STRING'} if $ENV{'QUERY_STRING'};
	if (($ENV{'QUERY_STRING_UNESCAPED'}) && ($input eq ''))
	{
		$input = $ENV{'QUERY_STRING_UNESCAPED'};
		$input =~ s/\\&/\&/g;
		$Unesc = 1;
	}
	if ($input =~ /=/g)
	{
	    @pairs = split(/&/, $input);
		foreach $pair (@pairs) 
		{
			($name, $value) = split(/=/, $pair);
			$value =~ tr/+/ /;
			$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;
			$in{$name} = $value;
			$NVPairsExist = 1;
		}
	}
	else
	{
		$count = 0;
		(@InputString) = split(/&/, $input);
		foreach $InputString (@InputString)
		{
			$InputString =~ tr/+/ /;
			$InputString =~
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
			$in{$count} = $InputString;
			$count++;
		}
		$NVPairsExist = 0;
	}
}



{





open ( MAIL, "| /usr/lib/sendmail -t" );
print MAIL "To: m.read\@mdx.ac.uk\n";
print MAIL "Subject: Form Submission\n\n";

print MAIL "name \- $in{name}\n";
print MAIL "addy \-$in{maile}";
print MAIL " AT ";
print MAIL "addy \-$in{email2}\n";
print MAIL "name \- $in{name2}\n";
print MAIL "addy\-$in{1email}";

print MAIL " AT ";
print MAIL "addy\-$in{1email2}\n";

print MAIL "\n\n";
close ( MAIL );

print "Content-type: text/html\n\n";

print"<BR><BR><BR><BR>Thank you for helping with my research. <p>\n";

}