my %get;
if ($ENV{QUERY_STRING} ne ''){
for (split /[&;]/, $ENV{QUERY_STRING}) {
- my @keyval = split /=/;
+ my @keyval = split /=/, $_, 2;
PLP::Functions::DecodeURI(@keyval);
$get{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
push @{ $get{'@' . $keyval[0]} }, $keyval[1];
our $post = <STDIN>;
if (defined($post) && $post ne '' &&
($ENV{CONTENT_TYPE} eq '' || $ENV{CONTENT_TYPE} eq 'application/x-www-form-urlencoded')){
- for (split /[&;]/, $post) {
- my @keyval = split /=/;
+ for (split /&/, $post) {
+ my @keyval = split /=/, $_, 2;
PLP::Functions::DecodeURI(@keyval);
$post{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
push @{ $post{'@' . $keyval[0]} }, $keyval[1];
if (defined($ENV{HTTP_COOKIE}) && $ENV{HTTP_COOKIE} ne ''){
for (split /; ?/, $ENV{HTTP_COOKIE}) {
- my @keyval = split /=/;
+ my @keyval = split /=/, $_, 2;
$PLP::Script::cookie{$keyval[0]} ||= $keyval[1];
}
}