root/10kz/shell/decode-form-post.jm3

#!/bin/bash

# pull in config params like KEY_HOME, GPG_HOME, and app ROOT
. configure.sh

echo Content-type: text/plain
echo
if [ -z "$CONTENT_LENGTH" ]
then
        echo "<h1>Your browser did not send a 'POST' HTTP request; bailing.</h1> "
        exit 1
fi
        
root=$ROOT/shell

#echo "<pre>"
#echo \$CONTENT_LENGTH is $CONTENT_LENGTH
#echo \$REQUEST_METHOD is $REQUEST_METHOD
#echo "</pre>"
#echo

# bash / posix / something seems to barf on input lines (which is the form post in this case) longer than 4k
# so we force-wrap the single long line on entry and then recombine them so we don't gnarl up the data
# also, split up the HTTP request name=value params
fold -w 80 | awk '/./{printf "%s",$0;next}{print}' | sed "s/&/ /g" | tr " " "\n" > /tmp/params

# parse out params and toss LHS
while read name_value_pair; do
        read name value << HERE
                $(IFS==; echo $name_value_pair)
HERE
        echo name is $name
        echo raw value is $value


        decoded=`echo $safe_value | $root/urldecode | sed "s/^'//" | sed "s/'$//"`
        echo decoded value is \'$decoded\'
        export `echo $name`="`echo '$value' | $root/urldecode`"
        echo
done </tmp/params
        echo \$passphrase $passphrase

        while read tokens; do
                if echo $tokens | grep "HEX:" >/dev/null; then
                        t=`echo $t | sed s/HEX://`
                        tok=`printf "%d" 0x$t | awk '{printf("%c", $1)}'`
                        full="$full$tok"
                else
                        tok=`echo $t | sed "s/__SPACE__/ /g"`
                        full="$full$tok"
                fi
        done </tmp/half-decoded







# good so far

exit 1
        
OIFS="$IFS"
read key_id passphrase recipients plaintext << HERE
        $(IFS=\&; cat /tmp/params)
HERE
IFS="$OIFS"

echo key_id = $key_id
echo

exit 1

#unset IFS
for param in "foo bar"
do
        echo param is $param
        #OIFS="$IFS"
        #read name value << HERE
                #$(IFS==; echo $param)
#HERE
#IFS="$OIFS"
        #echo name is $name
        #echo value is $value
done
#export `echo $var`="$val"

exit 1

while read name_value_pair; do
        
        read name value << HERE
                $(IFS==; echo $name_value_pair)
HERE
        echo parsing name/value pair -\> name: $name, value: $value


        sed "s/=/__N__ /" /tmp/params |
        while read nov; do
                if echo $nov | grep "__N__" >/dev/null; then 
                        echo "FOUND PARAM: `echo $nov | sed s/__N__//`"
                        #export `echo $var`="$val"
                else
                        # cache value in file since it can be long:
                        
                        echo WITH RAW, UNDECODED VALUE: 
                        echo $nov | sed "s/\+/__SPACE__/g" | sed "s/%26/__AMP__/g" | sed "s/%\([0-9A-F][0-9A-F]\)/ HEX:\1 /g" > /tmp/half-decoded
                        
                        echo INTERIM DECODED VAR: 
                        cat /tmp/half-decoded

                        while read tokens; do
                        echo TOK
                                if echo $token | grep "HEX:" >/dev/null; then 
                                        t=`echo $t | sed s/HEX://`
                                        tok=`printf "%d" 0x$t | awk '{printf("%c", $1)}'`
                                        full="$full$tok"
                                else
                                        tok=`echo $t | sed "s/__SPACE__/ /g"`
                                        full="$full$tok"
                                fi
                        done </tmp/half-decoded
                        echo done:
                        echo $full

                fi
        done
done </tmp/params

        exit 1
        tokens=`echo $p | sed "s/\+/__SPACE__/g" | sed "s/%26/__AMP__/g" | sed "s/%\([0-9A-F][0-9A-F]\)/ HEX:\1 /g"`
        full=""
        for t in $tokens
        do
                echo $t | grep -q HEX:
                if [ $? = 0 ]
                then
                        t=`echo $t | sed s/HEX://`
                        tok=`printf "%d" 0x$t | awk '{printf("%c", $1)}'`
                        full="$full$tok"
                else
                        tok=`echo $t | sed "s/__SPACE__/ /g"`
                        full="$full$tok"
                fi
        done
        echo