- cgilite_status='200 OK'; cgilite_response=''; cgilite_cl='';
- . "$0" |sed '1{s;^Status: ;HTTP/1.1 ;; t; s;^;HTTP/1.1 200 OK\r\n;;}' \
- | while read -r l; do case $l in
- Status:*) cgilite_status="${l#Status: }";;
- Content-Length:*) cgilite_response="$cgilite_response${BR}$l"; cgilite_cl='x';;
- $CR) if [ "$cgilite_cl" ]; then
- printf '%s %s\r\n%s\n\r\n' \
- 'HTTP/1.1' "${cgilite_status%${CR}}" \
- "$cgilite_response"
- cat; exit 0
- else
- printf '%s %s\r\n%s\n%s\r\n\r\n' \
- 'HTTP/1.1' "${cgilite_status%${CR}}" \
- "$cgilite_response" "Connection: close"
- cat; exit 1
- fi;;
- *) cgilite_response="$cgilite_response${BR}$l";;
+ cgilite_status='200 OK'; cgilite_response=''; cgilite_cl="Connection: close${CR}${BR}";
+ . "$0" | while read -r l; do case $l in
+ Status:*)
+ cgilite_status="${l#Status: }";;
+ Content-Length:*)
+ cgilite_cl=""
+ cgilite_response="${cgilite_response:+${cgilite_response}${BR}}${l}";;
+ Connection:*)
+ cgilite_cl="${l}${BR}";;
+ $CR) printf '%s %s\r\n%s%s\r\n' \
+ 'HTTP/1.1' "${cgilite_status%${CR}}" \
+ "${cgilite_response}${cgilite_response:+${BR}}" "${cgilite_cl}"
+ cat || kill $$
+ [ "${cgilite_cl#Connection}" = "${cgilite_cl}" ]; exit;;
+ *) cgilite_response="${cgilite_response:+${cgilite_response}${BR}}${l}";;