bugfix/typo: correct transformation of header fields into web server variable names

diff --git a/cgilite.sh b/cgilite.sh
index 2193e29ff90069b181db9475c439c89f34e5f529..b51ee8ec9e4c938413817bd8dff00ffdb3ab1d82 100755 (executable)
--- a/cgilite.sh
+++ b/cgilite.sh
@@ -264,7 +264,7 @@ HEADER(){
     str="${str#*${BR}${1}: }"
     printf %s "${str%%${BR}*}"
   else
     str="${str#*${BR}${1}: }"
     printf %s "${str%%${BR}*}"
   else

-    local var="HTTP_$(printf %s "$1" |tr a-z- A-Z-)"
+    local var="HTTP_$(printf %s "$1" |tr a-z- A-Z_)"

     eval "[ \"\$$var\" ] && printf %s \"\$$var\" || return 1"
     # eval "printf %s \"\$HTTP_$(printf %s "${1}" |tr a-z A-Z |tr -c A-Z _)\""
   fi
     eval "[ \"\$$var\" ] && printf %s \"\$$var\" || return 1"
     # eval "printf %s \"\$HTTP_$(printf %s "${1}" |tr a-z A-Z |tr -c A-Z _)\""
   fi