- if ($ENV{QUERY_STRING} ne ''){
- for (split /[&;]/, $ENV{QUERY_STRING}) {
- my @keyval = split /=/;
+ 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;