key listing functions: GET_KEYS() POST_KEYS() REF_KEYS()

diff --git a/cgilite.sh b/cgilite.sh
index 12350777ae2f9a94c8ea9137eaef654e97746498..8af3eb12790b998f59d8421778aff333c619ca53 100755 (executable)
--- a/cgilite.sh
+++ b/cgilite.sh
@@ -119,14 +119,26 @@ cgilite_value(){
   printf "$(printf %s "${str%%&*}" |sed -r 's;\+; ;g;'"$HEX_DECODE")"
 }
 
   printf "$(printf %s "${str%%&*}" |sed -r 's;\+; ;g;'"$HEX_DECODE")"
 }
 

+cgilite_keys(){
+  local str="&$1"
+  while [ "${str#*&}" != "${str}" ]; do
+    str="${str#*&}"
+    printf '%s\n' "${str%%=*}"
+  done \
+  | sort -u
+}
+

 GET(){ cgilite_value "${QUERY_STRING}" $@; }
 GET_COUNT(){ cgilite_count "${QUERY_STRING}" $1; }
 GET(){ cgilite_value "${QUERY_STRING}" $@; }
 GET_COUNT(){ cgilite_count "${QUERY_STRING}" $1; }

+GET_KEYS(){ cgilite_keys "${QUERY_STRING}"; }

 
 POST(){ cgilite_value "${cgilite_post}" $@; }
 POST_COUNT(){ cgilite_count "${cgilite_post}" $1; }
 
 POST(){ cgilite_value "${cgilite_post}" $@; }
 POST_COUNT(){ cgilite_count "${cgilite_post}" $1; }

+POST_KEYS(){ cgilite_keys "${cgilite_post}"; }

 
 REF(){ cgilite_value "${HTTP_REFERER#*\?}" $@; }
 REF_COUNT(){ cgilite_count "${HTTP_REFERER#*\?}" $1; }
 
 REF(){ cgilite_value "${HTTP_REFERER#*\?}" $@; }
 REF_COUNT(){ cgilite_count "${HTTP_REFERER#*\?}" $1; }

+REF_KEYS(){ cgilite_keys "${HTTP_REFERER#*\?}"; }

 
 COOKIE(){
   HEX_DECODE "$(
 
 COOKIE(){
   HEX_DECODE "$(