From: Stefano Zacchiroli Date: Wed, 24 Jan 2007 09:10:03 +0000 (+0000) Subject: send internally generated headers in lowercase form for consistency X-Git-Tag: 0.4.95@7852~651 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=5cd2bfac5e47232f9e1a8f6189bcc49a3e73007f;p=helm.git send internally generated headers in lowercase form for consistency --- diff --git a/DEVEL/ocaml-http/debian/changelog b/DEVEL/ocaml-http/debian/changelog index 5d0033b8b..9b39aa5c4 100644 --- a/DEVEL/ocaml-http/debian/changelog +++ b/DEVEL/ocaml-http/debian/changelog @@ -1,3 +1,10 @@ +ocaml-http (0.1.4-1) UNRELEASED; urgency=low + + * send internally generated headers as lowercase strings, for consistency + with headers generated via setXXX methods + + -- Stefano Zacchiroli Wed, 24 Jan 2007 10:09:12 +0100 + ocaml-http (0.1.3-3) UNRELEASED; urgency=low * debian/rules diff --git a/DEVEL/ocaml-http/http_daemon.ml b/DEVEL/ocaml-http/http_daemon.ml index 992f3b99a..f7c8495de 100644 --- a/DEVEL/ocaml-http/http_daemon.ml +++ b/DEVEL/ocaml-http/http_daemon.ml @@ -36,6 +36,7 @@ let send_raw ~data outchan = let send_CRLF = send_raw ~data:crlf let send_header ~header ~value = + let header = String.lowercase header in Http_parser_sanity.heal_header (header, value); send_raw ~data:(header ^ ": " ^ value ^ crlf)