plpfields.pm

   1 if ($ENV{QUERY_STRING} ne ''){
   2     for (split /&/, $ENV{QUERY_STRING}) {
   3         split /=/;
   4         for (@_) {
   5             $_ = DecodeURI($_);
   6         }
   7         $get{$_[0]} = $_[1];
   8     }
   9 }
  10
  11
  12 $INTERNAL{post} = <STDIN>;
  13 if ($INTERNAL{post} ne ''){
  14     for (split /&/, $INTERNAL{post}) {
  15         split /=/;
  16         for (@_) {
  17             $_ = DecodeURI($_);
  18         }
  19         $post{$_[0]} = $_[1];
  20     }
  21 }
  22 %fields=(%get, %post);
  23
  24 $INTERNAL{koek} = $ENV{HTTP_COOKIE};
  25 if ($INTERNAL{koek} ne ''){
  26     for (split /; ?/, $INTERNAL{koek}) {
  27         split /=/;
  28         #for (@_) {
  29         #    $_ = DecodeURI($_);
  30         #}
  31         $cookie{$_[0]} ||= $_[1];
  32     }
  33 }
  34
  35 1;