slitaz-base-files view rootfs/usr/lib/slitaz/httphelper.sh @ rev 139

Add libtaz and httphelper man a like documentation
author Christophe Lincoln <pankso@slitaz.org>
date Tue Apr 24 10:26:35 2012 +0200 (2012-04-24)
parents 333e86ef0a8f
children 4b43ed13b73e
line source
1 #!/bin/sh
2 #
3 # SliTaz Helper for SHell CGI scripts - See httphelper function
4 #
5 # This helper is used in TazPanel, Pizza and other SliTaz CGI tools and
6 # services. The goal is to maintain it according to the needs of the
7 # project and Busybox httpd server applet since it is used for URL
8 # [en|de]coding.
9 #
10 # Documentation: man httphelper or /usr/share/doc/slitaz/httpelper.txt
11 #
12 # Copyright (C) SliTaz 2012 - GNU gpl v2
13 #
14
15 alias urlencode='busybox httpd -e'
16 alias urldecode='busybox httpd -d'
17
18 # Send headers.
19 header() {
20 local i
21 [ -z "$1" ] && set -- "Content-type: text/html"
22 for i in "$@" ""
23 do
24 echo -e "$i\r"
25 done
26 }
27
28 http_urlencode() {
29 sed -e "s|%|%25|g;s|!|%21|g;s|\*|%2A|g;s|'|%27|g;s|(|%28|g" \
30 -e "s|)|%29|g;s|;|%3B|g;s|:|%3A|g;s|@|%40|g;s|&|%26|g" \
31 -e "s|=|%3D|g;s|+|%2B|g;s|\$|%24|g;s|,|%2C|g;s|/|%2F|g" \
32 -e "s|\?|%3F|g;s|#|%25|g;s|\[|%5B|g;s|\]|%5D|g;s| |+|g"
33 }
34
35 htmlentities() {
36 echo $1 | sed 's|&|\&amp;|g;s|<|\&lt;|g;s|>|\&gt;|g;s|"|\&quot;|g'
37 }
38
39 # MD5 crypt a string such as password (httpd -m dont give same result ?)
40 md5crypt() {
41 echo -n "$1" | md5sum | awk '{print $1}'
42 }
43
44 # MD5 crypt a string. Stronger crypto than MD5
45 sha512crypt() {
46 echo -n "$1" | sha512sum | awk '{print $1}'
47 }
48
49 _ARRAY()
50 {
51 [ -z "$2" ] && eval echo \$${1}__NAMES ||
52 [ -n "$(eval echo \$${1}__NAMES)" ] && eval echo \$${1}_${2}_${3:-1}
53 }
54
55 GET() { _ARRAY GET "$1" $2; }
56 POST() { _ARRAY POST "$1" $2; }
57 FILE() { _ARRAY FILE "$1" $2; }
58 COOKIE() { _ARRAY COOKIE "$1" $2; }
59
60 httpinfo()
61 {
62 local i
63 local j
64 local x
65 for i in SERVER_PROTOCOL SERVER_SOFTWARE SERVER_NAME SERVER_PORT AUTH_TYPE \
66 GATEWAY_INTERFACE REMOTE_HOST REMOTE_ADDR REMOTE_PORT \
67 HTTP_REFERER HTTP_HOST HTTP_USER_AGENT HTTP_ACCEPT \
68 HTTP_ACCEPT_LANGUAGE HTTP_COOKIE AUTH_TYPE REMOTE_USER REMOTE_IDENT \
69 REQUEST_METHOD REQUEST_URI QUERY_STRING CONTENT_LENGTH CONTENT_TYPE \
70 SCRIPT_NAME SCRIPT_FILENAME PATH_INFO PATH_TRANSLATED \
71 USER HOME LOGNAME SHELL PWD ; do
72 eval x=\$$i
73 [ -n "$x" ] && echo "$i='$x'"
74 done
75 for x in GET POST COOKIE ; do
76 for i in $($x) ; do
77 if [ $($x $i count) -gt 1 ]; then
78 for j in $(seq 1 $($x $i count)); do
79 echo "$x($i,$j)='$($x $i $j)'"
80 done
81 else
82 echo "$x($i)='$($x $i)'"
83 fi
84 done
85 done
86 for i in $(FILE) ; do
87 for j in name size type tmpname ; do
88 echo "FILE($i,$j)='$(FILE $i $j)'"
89 done
90 done
91 }
92
93 read_query_string()
94 {
95 local i
96 local names
97 local cnt
98 names=""
99 IFS="&"
100 for i in $2 ; do
101 var=${i%%[^A-Za-z_0-9]*}
102 case " $names " in
103 *\ $var\ *) eval cnt=\$${1}_${var}_count ;;
104 *) cnt=0
105 names="$names $var" ;;
106 esac
107 eval ${1}_${var}_count=$((++cnt))
108 eval ${1}_${var}_$cnt=\'$(busybox httpd -d "${i#*=}" | sed "s/'/\'\\\\\'\'/g")\'
109 done
110 unset IFS
111 eval ${1}__NAMES=\'${names# }\'
112 }
113
114 [ -z "$GET__NAMES" ] && read_query_string GET "$QUERY_STRING"
115 [ -z "$COOKIE_NAMES" ] &&
116 read_query_string COOKIE "$(echo "$HTTP_COOKIE" | sed 's/; /\&/g')"
117
118 ddcut()
119 {
120 page=4096
121 skip=$1
122 count=$(($2 - $1 -2))
123 tmp=$(($skip / $page))
124 [ $tmp -ne 0 ] && dd bs=$page skip=$tmp count=0
125 skip=$(($skip - ($tmp * $page) ))
126 dd bs=1 skip=$skip count=0
127 tmp=$(( ($page - $skip) % $page ))
128 if [ $tmp -ne 0 -a $tmp -le $count ]; then
129 dd bs=1 count=$tmp
130 count=$(($count - $tmp))
131 fi
132 tmp=$(($count / $page))
133 [ $tmp -ne 0 ] && dd bs=$page count=$tmp
134 dd bs=1 count=$(($count - ($tmp * $page) ))
135 }
136
137 if [ "$REQUEST_METHOD$POST__NAMES" == "POST" ]; then
138 prefix=/tmp/httpd_post
139 mkdir $prefix$$
140 now=$(stat -c %Y $prefix$$)
141 for i in $prefix* ; do
142 [ $(stat -c %Y $i) -lt $(($now - 3600)) ] && rm -rf $i
143 done
144 post=$prefix$$/post
145 n=1
146 cat > ${post}0
147 read args < ${post}0
148 delim="${args%?}"
149 case "$delim" in
150 -*) awk "/$delim/ { o+=index(\$0,\"$delim\")-1; print o }
151 { o+=1+length() }" < ${post}0 | while read offset; do
152 if [ $offset -ne 0 ]; then
153 ddcut $last $offset < ${post}0 > $post$n 2> /dev/null
154 n=$(($n+1))
155 fi
156 last=$offset
157 done
158 rm -f ${post}0
159 CR=`printf '\r'`
160 for i in $post* ; do
161 head -n 2 $i | grep -q filename= || echo '' >> $i
162 filename=
163 while read line; do
164 case "$line" in
165 *Content-Disposition*)
166 name=$(echo $line | sed 's/.* name="\([^"]*\)".*$/\1/')
167 name=${name%%[^A-Za-z_0-9]*}
168 case "$line" in
169 *filename=*) filename=$(echo $line | sed 's/.* filename="\([^"]*\)".*$/\1/') ;;
170 esac ;;
171 *Content-Type*)
172 type=$(echo $line | sed 's/.*-Type: \(.*\).$/\1/') ;;
173 $CR)
174 if [ -n "$filename" ]; then
175 tmp=$(mktemp $prefix$$/uploadXXXXXX)
176 cat > $tmp
177 FILE__NAMES="$FILE__NAMES $name"
178 FILE__NAMES="${FILE__NAMES# }"
179 eval FILE_${name}_tmpname=$tmp
180 eval FILE_${name}_name=$filename
181 eval FILE_${name}_size=$(stat -c %s $tmp)
182 eval FILE_${name}_type=$type
183 elif [ -n "$name" ]; then
184 eval cnt=\$POST_${name}_count
185 cnt=$(($cnt + 1))
186 eval var=\$POST_${name}_$cnt
187 while read line; do
188 [ -n "$var" ] && var="$var
189 "
190 var="$var$line"
191 done
192 eval POST_${name}_$cnt="\$var"
193 eval POST_${name}_count=$cnt
194 case " $POST__NAMES " in
195 *\ $name\ *) ;;
196 *) POST__NAMES="$POST__NAMES $name"
197 POST__NAMES="${POST__NAMES# }" ;;
198 esac
199 fi
200 break ;;
201 *)
202 esac
203 done < $i
204 rm -f $i
205 done
206 rmdir $(dirname $post) ;;
207 *) rm -rf $(dirname $post)
208 read_query_string POST "$args" ;;
209 esac
210 fi