v2.21 release

[perl/plp/.git] / plpfields.pm

diff --git a/plpfields.pm b/plpfields.pm
index 2babb6e14b556a0e7b19cbaae679158f8a473f33..8f566a28dfdbb8089af7d4cbfafc20626ec353c3 100644 (file)
--- a/plpfields.pm
+++ b/plpfields.pm
@@ -1,10 +1,13 @@
+#!/usr/bin/perl
+# shebang only for color coding, just ignore it m'kay?
+use strict;
+use vars qw(%get %post %fields %cookie %INTERNAL);
+
 if ($ENV{QUERY_STRING} ne ''){
     for (split /&/, $ENV{QUERY_STRING}) {
-       split /=/;
-       for (@_) {
-           $_ = DecodeURI($_);
-       }
-       $get{$_[0]} = $_[1];
+       my @keyval = split /=/;
+       DecodeURI(@keyval);
+       $get{$keyval[0]} = $keyval[1];
     }
 }
 
@@ -12,23 +15,20 @@ if ($ENV{QUERY_STRING} ne ''){
 $INTERNAL{post} = <STDIN>;
 if ($INTERNAL{post} ne ''){
     for (split /&/, $INTERNAL{post}) {
-       split /=/;
-       for (@_) {
-           $_ = DecodeURI($_);
-       }
-       $post{$_[0]} = $_[1];
+       my @keyval = split /=/;
+       DecodeURI(@keyval);
+       $post{$keyval[0]} = $keyval[1];
     }
 }
-%fields=(%get, %post);
 
-$INTERNAL{koek} = $ENV{HTTP_COOKIE};
-if ($INTERNAL{koek} ne ''){
-    for (split /; ?/, $INTERNAL{koek}) {
-       split /=/;
-       #for (@_) {
-       #    $_ = DecodeURI($_);
-       #}
-       $cookie{$_[0]} ||= $_[1];
+%fields = %get;
+@fields{keys %post} = values %post;
+#%fields = (%get, %post);
+
+if ($ENV{HTTP_COOKIE} ne ''){
+    for (split /; ?/, $ENV{HTTP_COOKIE}) {
+       my @keyval = split /=/;
+       $cookie{$keyval[0]} ||= $keyval[1];
     }
 }