added support for IP address info retrieval for OO style 'start' functions

[helm.git] / helm / DEVEL / ocaml-http / http_parser.ml

diff --git a/helm/DEVEL/ocaml-http/http_parser.ml b/helm/DEVEL/ocaml-http/http_parser.ml
index 00f8a68182671827bbdb0356bdfe201e767f65b5..7f7b22349a907a75309a42eb315b11933306e6ae 100644 (file)
--- a/helm/DEVEL/ocaml-http/http_parser.ml
+++ b/helm/DEVEL/ocaml-http/http_parser.ml
@@ -194,5 +194,6 @@ let parse_request =
 
 let parse_request' ic =
   let (path, params) = parse_request ic in
-  new Http_request.request ~path ~params
+  let clisockaddr = Http_misc.peername_of_in_channel ic in
+  new Http_request.request ~path ~params ~clisockaddr