formparser.lib

# Perl form parser library
# Taken from `Perl in Easy Steps' by Mike McGrath

sub parseform
{
	if( $ENV{'REQUEST_METHOD'} eq 'GET' )
	{ 
		$pairs = split( /&/, $ENV{'QUERY_STRING'} ); 
	}
	elsif( $ENV{'REQUEST_METHOD'} eq 'POST' )
	{
		read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
		@pairs = split( /&/, $buffer );
		if( $ENV{'QUERY_STRING'} )
		{
			@getpairs = split( /&/, $ENV{'QUERY_STRING'} );
			push( @pairs, @getpairs );
		}
	}
	else
	{
		print "Content-type:text/html\n\n";
		print "Unrecognized Method - Use GET or POST.";
	}

	foreach $pair( @pairs )
	{
		( $key, $value ) = split( /=/, $pair );
		$key =~ tr/+/ /;
		$value =~ tr/+/ /;
		$key =~ s/%(..)/pack("c", hex($1))/eg;
		$value =~ s/%(..)/pack("c", hex($1))/eg;
		$value =~ s/<!--(.|\n)*-->//g;			#ignore SSI

		if( $formdata{ $key } )
		{
			$formdata{$key} .= ", $value";
		}
		else
		{
			$formdata{$key} = $value;
		}
	}
}

1;