# Has only one function: doit(), which ties the hashes %get, %post, %fields
# and %header in PLP::Script. Also generates %cookie immediately.
# Has only one function: doit(), which ties the hashes %get, %post, %fields
# and %header in PLP::Script. Also generates %cookie immediately.
for (split /[&;]/, $ENV{QUERY_STRING}) {
my @keyval = split /=/, $_, 2;
PLP::Functions::DecodeURI(@keyval);
for (split /[&;]/, $ENV{QUERY_STRING}) {
my @keyval = split /=/, $_, 2;
PLP::Functions::DecodeURI(@keyval);
tie %PLP::Script::post, 'PLP::Tie::Delay', 'PLP::Script::post', sub {
my %post;
tie %PLP::Script::post, 'PLP::Tie::Delay', 'PLP::Script::post', sub {
my %post;
- my $post;
-
- return \%post if $ENV{CONTENT_TYPE} !~
- m!^(?:application/x-www-form-urlencoded|$)!;
-
- $post = $PLP::read->($ENV{CONTENT_LENGTH}) if $ENV{CONTENT_LENGTH};
+ return \%post unless $ENV{CONTENT_TYPE} and $ENV{CONTENT_LENGTH} and
+ $ENV{CONTENT_TYPE} =~ m!^(?:application/x-www-form-urlencoded|$)!;