shithub: werc

Download patch

ref: 5cf42c28a0223319b7744ce57bfeeea7dd70a850
parent: c078d804a64b2d8ccc210a27bcaead96f26dfeca
author: uriel <uriel@engel.se.cat-v.org>
date: Fri Sep 26 07:09:18 EDT 2008

Syntax fix and other minnor improvements

--- a/bin/cgilib.rc
+++ b/bin/cgilib.rc
@@ -10,13 +10,13 @@
     exit
 }
 
-fn setvars {
+fn get_post_args {
     ifs='&
 '   for(pair in `{cat}) {
         pair = `{echo -n $pair | sed 's/=/\&/'} \
         ifs=() \
         if(~ $pair(1) $*)
-            eval $pair(1)'=`{urldecode $pair(2)}'
+            $pair(1) = `{urldecode $pair(2)}
     }
 }
 
@@ -36,6 +36,9 @@
 
 # .rec parsing
 fn parse_rec {
-    sed 's/% *//; /^$/q' < $1
-    sed -n '/^$/,$p' < $1
+    for(i in `{sed 's/% *//; /^$/q' < $1}) {
+        v = `{echo $i | sed 's/^/rec_/; s/=.*//;'} 
+        $v = `{echo $i | sed 
+    }
+    rec_data = `{sed -n '/^$/,$p' < $1}
 }