X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/6b971262dcda8586066379c1b3fcea9c457ce575..b5eadb0c810558015cd4dc943e2c25b4acbfec58:/plpfields.pm

diff --git a/plpfields.pm b/plpfields.pm
index 2babb6e..8f566a2 100644
--- 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];
     }
 }