=cut
sub doit {
tie %PLP::Script::get, 'PLP::Tie::Delay', 'PLP::Script::get', sub {
my %get;
=cut
sub doit {
tie %PLP::Script::get, 'PLP::Tie::Delay', 'PLP::Script::get', sub {
my %get;
- if ($ENV{QUERY_STRING} ne ''){
- for (split /[&;]/, $ENV{QUERY_STRING}) {
+ my $get;
+ if ($ENV{MOD_PERL}) {
+ $get = Apache->request->args;
+ } else {
+ $get = $ENV{QUERY_STRING}
+ }
+ if ($get ne ''){
+ for (split /[&;]/, $get) {
my @keyval = split /=/, $_, 2;
PLP::Functions::DecodeURI(@keyval);
$get{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
my @keyval = split /=/, $_, 2;
PLP::Functions::DecodeURI(@keyval);
$get{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
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;
if (defined($post) && $post ne '' &&
($ENV{CONTENT_TYPE} eq '' || $ENV{CONTENT_TYPE} eq 'application/x-www-form-urlencoded')){
for (split /&/, $post) {
if (defined($post) && $post ne '' &&
($ENV{CONTENT_TYPE} eq '' || $ENV{CONTENT_TYPE} eq 'application/x-www-form-urlencoded')){
for (split /&/, $post) {