- . "$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
- Content-Length:*) printf '%s\n' "$l"; cat;;
- $CR) printf 'Connection: close\r\n\r\n'; cat; exit 1;;
- *) printf '%s\n' "$l";;
+ cgilite_status='200 OK'; cgilite_response=''; cgilite_cl="Connection: close${CR}";
+ . "$0" | while read -r l; do case $l in
+ Status:*) cgilite_status="${l#Status: }";;
+ Content-Length:*) cgilite_cl="${l}";;
+ $CR) printf '%s %s\r\n%s\n%s\n\r\n' \
+ 'HTTP/1.1' "${cgilite_status%${CR}}" \
+ "$cgilite_response" "${cgilite_cl}"
+ cat
+ [ "${cgilite_cl#Connection}" = "${cgilite_cl}" ]; exit;;
+ *) cgilite_response="$cgilite_response${BR}$l";;