From 350be4926dcd92b90854554767d423639f216481 Mon Sep 17 00:00:00 2001 From: paul Date: Wed, 25 Mar 2015 18:23:58 +0000 Subject: [PATCH] added debug output to cgi parser, set HTTP_REFERER to default svn path=/trunk/; revision=63 --- cgi.sh | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/cgi.sh b/cgi.sh index d35b368..7a19a10 100755 --- a/cgi.sh +++ b/cgi.sh @@ -21,15 +21,20 @@ declare -A _GET declare -A _POST declare -A _REF +[ -z "$HTTP_REFERER" ] && HTTP_REFERER="./" + cgi_get() { # parse HTTP GET string + debug "== CGI DATA: GET ==" echo "$QUERY_STRING" |tr '&' '\n' |while read query; do key="$(echo -E "$query" |sed -r 's:^([a-zA-Z0-9_-]*)=(.*)$:\1:')" val="$(echo -E "$query" |sed -r 's:^([a-zA-Z0-9_-]*)=(.*)$:\2:')" _GET["$key"]="$(echo -e "$(echo -E "$val" |sed 's:+: :g;s:\\:\\\\:g;s:%:\\x:g')")" + debug "_GET[$key] => $val" done } cgi_post() { # parse HTTP POST string + debug "== CGI DATA: POST ==" sed -u 1q |tr '&' '\n' |while read query; do key="$(echo -E "$query" |sed -r 's:^([a-zA-Z0-9_-]*)=(.*)$:\1:')" val="$(echo -E "$query" |sed -r 's:^([a-zA-Z0-9_-]*)=(.*)$:\2:')" @@ -41,14 +46,16 @@ cgi_post() { # parse HTTP POST string else _POST["$key"]="$value" fi - #debug "_POST[$key] => $value" + debug "_POST[$key] => $value" done } cgi_refdata() { # Parse GET data from referer + debug "== CGI DATA: REFERER ==" echo "$HTTP_REFERER" |cut -d'?' -f2- |tr '&' '\n' |while read query; do key="$(echo -E "$query" |sed -r 's:^([a-zA-Z0-9_-]*)=(.*)$:\1:')" val="$(echo -E "$query" |sed -r 's:^([a-zA-Z0-9_-]*)=(.*)$:\2:')" _REF["$key"]="$(echo -e "$(echo -E "$val" |sed 's:+: :g;s:\\:\\\\:g;s:%:\\x:g')")" + debug "_REF[$key] => $val" done } -- 2.39.2