if ($ENV{QUERY_STRING} ne ''){
    for (split /&/, $ENV{QUERY_STRING}) {
	split /=/;
	for (@_) {
	    $_ = DecodeURI($_);
	}
	$get{$_[0]} = $_[1];
    }
}


$INTERNAL{post} = <STDIN>;
if ($INTERNAL{post} ne ''){
    for (split /&/, $INTERNAL{post}) {
	split /=/;
	for (@_) {
	    $_ = DecodeURI($_);
	}
	$post{$_[0]} = $_[1];
    }
}
%fields=(%get, %post);

$INTERNAL{koek} = $ENV{HTTP_COOKIE};
if ($INTERNAL{koek} ne ''){
    for (split /; ?/, $INTERNAL{koek}) {
	split /=/;
	#for (@_) {
	#    $_ = DecodeURI($_);
	#}
	$cookie{$_[0]} ||= $_[1];
    }
}

1;
