# HG changeset patch
# User Pascal Bellard <pascal.bellard@slitaz.org>
# Date 1275664350 -7200
# Node ID 8c1e893567be7d96dc33436ded91f3f373a32d0e
# Parent  2a5e098a34ac074351464b5aa3fab205a5db637b
busybox: add httpd_helper.sh

diff -r 2a5e098a34ac -r 8c1e893567be busybox/stuff/httpd_helper.sh
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/busybox/stuff/httpd_helper.sh	Fri Jun 04 17:12:30 2010 +0200
@@ -0,0 +1,164 @@
+#!/bin/sh
+#
+# busybox/httpd helper for shell cgi scripts
+#
+# GET [var] | POST [var] | FILE [var {name|tmpname|size|type}]
+# urlencode string | htmlentities string | httpinfo
+
+alias urlencode='httpd -e'
+
+header()
+{
+echo -e "$1\r"
+}
+
+htmlentities()
+{
+echo $1 | sed -e 's|&|\&amp;|g' -e 's|<|\&lt;|g' -e 's|>|\&gt;|g' -e 's|"|\&quot;|g'
+}
+
+GET()
+{
+[ -z "$1" ] && echo $GET__NAMES || [ -n "$GET__NAMES" ] && eval echo \$GET_$1
+}
+
+POST()
+{
+[ -z "$1" ] && echo $POST__NAMES || [ -n "$POST__NAMES" ] && eval echo \$POST_$1
+}
+
+FILE()
+{
+[ -z "$1" ] && echo $FILE__NAMES || [ -n "$FILE__NAMES" ] && eval echo \$FILE_${1}_$2
+}
+
+httpinfo()
+{
+local i
+local x
+for i in SERVER_PROTOCOL SERVER_SOFTWARE SERVER_NAME SERVER_PORT AUTH_TYPE \
+	 GATEWAY_INTERFACE REMOTE_ADDR REMOTE_PORT HTTP_REFERER HTTP_HOST \
+	 HTTP_USER_AGENT HTTP_ACCEPT HTTP_ACCEPT_LANGUAGE HTTP_COOKIE \
+	 REQUEST_METHOD REQUEST_URI QUERY_STRING CONTENT_LENGTH CONTENT_TYPE \
+	 SCRIPT_NAME SCRIPT_FILENAME PATH_INFO USER HOME LOGNAME SHELL PWD ; do
+	eval x=\$$i
+	[ -n "$x" ] && echo "$i='$x'"
+done
+for i in $GET__NAMES ; do
+	echo "GET[$i]='$(GET $i)'"
+done
+for i in $POST__NAMES ; do
+	echo "POST[$i]='$(POST $i)'"
+done
+for i in $FILE__NAMES ; do
+	for j in name size type tmpname ; do
+		echo "FILE[$i][$j]='$(FILE $i $j)'"
+	done
+done
+}
+
+read_query_string()
+{
+local i
+local names
+names=""
+IFS="&"
+for i in $QUERY_STRING ; do
+	names="$names ${i%%=*}"
+	eval ${1}_${i%%=*}=\'$(httpd -d "${i#*=}" | sed "s/'/\'\\\\\'\'/g")\'
+done
+unset IFS
+eval ${1}__NAMES=\'${names# }\'
+}
+
+[ "$REQUEST_METHOD" == "GET" -a -z "$GET__NAMES" ] && read_query_string GET
+
+ddcut()
+{
+page=4096
+skip=$1
+count=$(($2 - $1 -2))
+tmp=$(($skip / $page))
+[ $tmp -ne 0 ] && dd bs=$page skip=$tmp count=0 
+skip=$(($skip - ($tmp * $page) ))
+dd bs=1 skip=$skip count=0
+tmp=$(( ($page - $skip) % $page ))
+if [ $tmp -ne 0 -a $tmp -le $count ]; then
+	dd bs=1 count=$tmp
+	count=$(($count - $tmp))
+fi
+tmp=$(($count / $page))
+[ $tmp -ne 0 ] && dd bs=$page count=$tmp
+dd bs=1 count=$(($count - ($tmp * $page) ))
+}
+
+if [ "$REQUEST_METHOD" == "POST" -a -z "$POST__NAMES" ]; then
+	prefix=/tmp/httpd_post
+	mkdir $prefix$$
+	now=$(stat -c %Y $prefix$$)
+	for i in $prefix* ; do
+		[ $(stat -c %Y $i) -lt $(($now - 3600)) ] && rm -rf $i
+	done
+	post=$prefix$$/post
+	n=1
+	cat > ${post}0
+	read delim < ${post}0
+	case "$delim" in
+	-*)	awk "/$delim/ { o+=index(\$0,\"$delim\")-1; print o }
+	   		  { o+=1+length() }" < ${post}0 | while read offset; do
+		    if [ $offset -ne 0 ]; then
+			ddcut $last $offset < ${post}0 > $post$n 2> /dev/null
+			n=$(($n+1))
+		    fi
+		    last=$offset
+		done
+		rm -f ${post}0
+		CR=`printf '\r'`
+		for i in $post* ; do
+		    head -n 2 $i | grep -q filename= || echo '' >> $i
+		    filename=
+		    while read line; do
+			case "$line" in
+			*Content-Disposition*)
+			    name=$(echo $line | sed 's/.* name="\([^"]*\)".*$/\1/')
+			    case "$line" in
+			    *filename=*) filename=$(echo $line | sed 's/.* filename="\([^"]*\)".*$/\1/') ;;
+			    esac ;;
+			*Content-Type*)
+			    type=$(echo $line | sed 's/.*-Type: \(.*\).$/\1/') ;;
+			$CR)
+			    if [ -n "$filename" ]; then
+				tmp=$(mktemp $prefix$$/uploadXXXXXX)
+				cat > $tmp
+				FILE__NAMES="$FILE__NAMES $name"
+				FILE__NAMES="${FILE__NAMES# }"
+				eval FILE_${name}_tmpname=$tmp
+				eval FILE_${name}_name=$filename
+				eval FILE_${name}_size=$(stat -c %s $tmp)
+				eval FILE_${name}_type=$type
+			    elif [ -n "$name" ]; then
+				eval var=\$POST_${name}
+				while read line; do
+					[ -n "$var" ] && var="$var
+"
+					var="$line"
+				done
+				eval POST_${name}="\$var"
+				case " $POST__NAMES " in
+				*\ $name\ *) ;;
+				*) POST__NAMES="$POST__NAMES $name"
+				   POST__NAMES="${POST__NAMES# }" ;;
+				esac
+			    fi
+			    break ;;
+			*)
+			esac
+		    done < $i
+		    rm -f $i
+		done
+		rmdir $(dirname $post) ;;
+	*)	export QUERY_STRING="$delim"
+		rm -rf $(dirname $post)
+		read_query_string POST ;;
+	esac
+fi