################################################################################
=pod

by Kris Kowal
2000-10-19-1652 PDT

=cut
################################################################################

### parse CGI get and post

my $data;
my $data_post;
my $data_get;

read \*main::STDIN, $data_post, "$ENV{CONTENT_LENGTH}";
$data_get = "$ENV{QUERY_STRING}";
$data = join '&', "$data_post", "$data_get";

# Un-Webify plus signs and %-encoding
$data =~ tr/+/ /;
$data =~ s/%([a-fA-F0-9][a-fA-F0-9])/chr( hex( $1 ) )/eg;
$data =~ s/<!--[.\n]*-->//g;

%main::cgi = map { ( split '=', $_ ); } split '&', "$data";

##########################################################################

1;