slitaz-base-files view rootfs/usr/lib/slitaz/httphelper @ rev 114

httphelper: add md5crypt function
author Christophe Lincoln <pankso@slitaz.org>
date Thu Apr 05 13:51:01 2012 +0200 (2012-04-05)
parents 00bd4a793041
children 7a11fde90d8a
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 # Copyright (C) SliTaz 2012 - GNU gpl v2
11 #
12
13 alias urlencode='httpd -e'
14 alias urldecode='httpd -d'
15
16 # Help and usage.
17 httphelper() {
18 cat << EOT
19
20 Include this helper in a script:
21 . /usr/lib/slitaz/httphelper
22
23 Functions:
24 GET [var [index]]
25 POST [var [index]]
26 COOKIE [var [index]]
27 FILE [var {name|tmpname|size|type}]
28 header [strings]
29 http_urlencode string
30 urlencode string
31 urldecode string
32 htmlentities string
33 md5crypt
34 httpinfo
35
36 Example:
37 header "Content-type: text/html" "Set-Cookie: name=value; HttpOnly"
38
39 if [ "\$(GET name)" ]; then
40 echo "Input name has a value from HTML form"
41 fi
42
43 EOT
44 }
45
46 # Send headers.
47 header() {
48 local i
49 [ -z "$1" ] && set -- "Content-type: text/html"
50 for i in "$@" ""
51 do
52 echo -e "$i\r"
53 done
54 }
55
56 http_urlencode() {
57 sed -e "s|%|%25|g;s|!|%21|g;s|\*|%2A|g;s|'|%27|g;s|(|%28|g" \
58 -e "s|)|%29|g;s|;|%3B|g;s|:|%3A|g;s|@|%40|g;s|&|%26|g" \
59 -e "s|=|%3D|g;s|+|%2B|g;s|\$|%24|g;s|,|%2C|g;s|/|%2F|g" \
60 -e "s|\?|%3F|g;s|#|%25|g;s|\[|%5B|g;s|\]|%5D|g;s| |+|g"
61 }
62
63 htmlentities() {
64 echo $1 | sed 's|&|\&amp;|g;s|<|\&lt;|g;s|>|\&gt;|g;s|"|\&quot;|g'
65 }
66
67 # MD5 crypt a string such as password (httpd -m dont give same result ?)
68 md5crypt() {
69 echo -n "$1" | md5sum | awk '{print $1}'
70 }
71
72 _ARRAY()
73 {
74 [ -z "$2" ] && eval echo \$${1}__NAMES ||
75 [ -n "$(eval echo \$${1}__NAMES)" ] && eval echo \$${1}_${2}_${3:-1}
76 }
77
78 GET() { _ARRAY GET "$1" $2; }
79 POST() { _ARRAY POST "$1" $2; }
80 FILE() { _ARRAY FILE "$1" $2; }
81 COOKIE() { _ARRAY COOKIE "$1" $2; }
82
83 httpinfo()
84 {
85 local i
86 local j
87 local x
88 for i in SERVER_PROTOCOL SERVER_SOFTWARE SERVER_NAME SERVER_PORT AUTH_TYPE \
89 GATEWAY_INTERFACE REMOTE_HOST REMOTE_ADDR REMOTE_PORT \
90 HTTP_REFERER HTTP_HOST HTTP_USER_AGENT HTTP_ACCEPT \
91 HTTP_ACCEPT_LANGUAGE HTTP_COOKIE AUTH_TYPE REMOTE_USER REMOTE_IDENT \
92 REQUEST_METHOD REQUEST_URI QUERY_STRING CONTENT_LENGTH CONTENT_TYPE \
93 SCRIPT_NAME SCRIPT_FILENAME PATH_INFO PATH_TRANSLATED \
94 USER HOME LOGNAME SHELL PWD ; do
95 eval x=\$$i
96 [ -n "$x" ] && echo "$i='$x'"
97 done
98 for x in GET POST COOKIE ; do
99 for i in $($x) ; do
100 if [ $($x $i count) -gt 1 ]; then
101 for j in $(seq 1 $($x $i count)); do
102 echo "$x($i,$j)='$($x $i $j)'"
103 done
104 else
105 echo "$x($i)='$($x $i)'"
106 fi
107 done
108 done
109 for i in $(FILE) ; do
110 for j in name size type tmpname ; do
111 echo "FILE($i,$j)='$(FILE $i $j)'"
112 done
113 done
114 }
115
116 read_query_string()
117 {
118 local i
119 local names
120 local cnt
121 names=""
122 IFS="&"
123 for i in $2 ; do
124 var=${i%%[^A-Za-z_0-9]*}
125 case " $names " in
126 *\ $var\ *) eval cnt=\$${1}_${var}_count ;;
127 *) cnt=0
128 names="$names $var" ;;
129 esac
130 eval ${1}_${var}_count=$((++cnt))
131 eval ${1}_${var}_$cnt=\'$(httpd -d "${i#*=}" | sed "s/'/\'\\\\\'\'/g")\'
132 done
133 unset IFS
134 eval ${1}__NAMES=\'${names# }\'
135 }
136
137 [ -z "$GET__NAMES" ] && read_query_string GET "$QUERY_STRING"
138 [ -z "$COOKIE_NAMES" ] &&
139 read_query_string COOKIE "$(echo "$HTTP_COOKIE" | sed 's/; /\&/g')"
140
141 ddcut()
142 {
143 page=4096
144 skip=$1
145 count=$(($2 - $1 -2))
146 tmp=$(($skip / $page))
147 [ $tmp -ne 0 ] && dd bs=$page skip=$tmp count=0
148 skip=$(($skip - ($tmp * $page) ))
149 dd bs=1 skip=$skip count=0
150 tmp=$(( ($page - $skip) % $page ))
151 if [ $tmp -ne 0 -a $tmp -le $count ]; then
152 dd bs=1 count=$tmp
153 count=$(($count - $tmp))
154 fi
155 tmp=$(($count / $page))
156 [ $tmp -ne 0 ] && dd bs=$page count=$tmp
157 dd bs=1 count=$(($count - ($tmp * $page) ))
158 }
159
160 if [ "$REQUEST_METHOD$POST__NAMES" == "POST" ]; then
161 prefix=/tmp/httpd_post
162 mkdir $prefix$$
163 now=$(stat -c %Y $prefix$$)
164 for i in $prefix* ; do
165 [ $(stat -c %Y $i) -lt $(($now - 3600)) ] && rm -rf $i
166 done
167 post=$prefix$$/post
168 n=1
169 cat > ${post}0
170 read args < ${post}0
171 delim="${args%?}"
172 case "$delim" in
173 -*) awk "/$delim/ { o+=index(\$0,\"$delim\")-1; print o }
174 { o+=1+length() }" < ${post}0 | while read offset; do
175 if [ $offset -ne 0 ]; then
176 ddcut $last $offset < ${post}0 > $post$n 2> /dev/null
177 n=$(($n+1))
178 fi
179 last=$offset
180 done
181 rm -f ${post}0
182 CR=`printf '\r'`
183 for i in $post* ; do
184 head -n 2 $i | grep -q filename= || echo '' >> $i
185 filename=
186 while read line; do
187 case "$line" in
188 *Content-Disposition*)
189 name=$(echo $line | sed 's/.* name="\([^"]*\)".*$/\1/')
190 name=${name%%[^A-Za-z_0-9]*}
191 case "$line" in
192 *filename=*) filename=$(echo $line | sed 's/.* filename="\([^"]*\)".*$/\1/') ;;
193 esac ;;
194 *Content-Type*)
195 type=$(echo $line | sed 's/.*-Type: \(.*\).$/\1/') ;;
196 $CR)
197 if [ -n "$filename" ]; then
198 tmp=$(mktemp $prefix$$/uploadXXXXXX)
199 cat > $tmp
200 FILE__NAMES="$FILE__NAMES $name"
201 FILE__NAMES="${FILE__NAMES# }"
202 eval FILE_${name}_tmpname=$tmp
203 eval FILE_${name}_name=$filename
204 eval FILE_${name}_size=$(stat -c %s $tmp)
205 eval FILE_${name}_type=$type
206 elif [ -n "$name" ]; then
207 eval cnt=\$POST_${name}_count
208 cnt=$(($cnt + 1))
209 eval var=\$POST_${name}_$cnt
210 while read line; do
211 [ -n "$var" ] && var="$var
212 "
213 var="$var$line"
214 done
215 eval POST_${name}_$cnt="\$var"
216 eval POST_${name}_count=$cnt
217 case " $POST__NAMES " in
218 *\ $name\ *) ;;
219 *) POST__NAMES="$POST__NAMES $name"
220 POST__NAMES="${POST__NAMES# }" ;;
221 esac
222 fi
223 break ;;
224 *)
225 esac
226 done < $i
227 rm -f $i
228 done
229 rmdir $(dirname $post) ;;
230 *) rm -rf $(dirname $post)
231 read_query_string POST "$args" ;;
232 esac
233 fi
234
235 case "$1" in
236 usage|help)
237 httphelper ;;
238 esac