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: make_still_working~6510 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=091977e506a414ad2c71ae113703d7fc607b85a2;p=helm.git send internally generated headers in lowercase form for consistency --- diff --git a/helm/software/DEVEL/ocaml-http/debian/changelog b/helm/software/DEVEL/ocaml-http/debian/changelog index 5d0033b8b..9b39aa5c4 100644 --- a/helm/software/DEVEL/ocaml-http/debian/changelog +++ b/helm/software/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/helm/software/DEVEL/ocaml-http/http_daemon.ml b/helm/software/DEVEL/ocaml-http/http_daemon.ml index 992f3b99a..f7c8495de 100644 --- a/helm/software/DEVEL/ocaml-http/http_daemon.ml +++ b/helm/software/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)