# A simple HTTP request parser to emulate ASP request.xxx<
# So you can do $request->{"clicked"} in place of Request("clicked")
# Has problems with MIME or complex submits
#

sub getHTTPData

{

	my $xx;

	my $buffer;

	my %vars;

	if($ENV{"REQUEST_METHOD"} eq "GET")

	{
		$buffer=$ENV{'QUERY_STRING'};
	} 
	else 
	{
		read ( STDIN, $buffer, $ENV{"CONTENT_LENGTH"});
	}
	
	foreach $pair (split(/&/, $buffer)) 
	{
		$pair =~ tr/+//;
		($name, $value) = split(/=/, $pair);
		$value =~ s/%(\w\w)/sprintf("%c", hex($1))/ge; # convert hex to ascii
		$value=~s/\+/ /g;
		$vars{$name}="$value";
	}
	
	return \%vars;
}