bug fix: reset timeout after processing request in Tcp_server.simple

[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 a753e40bbb12cfe5e67df2c5701b2fa8d826b65f..ea78eaf29a7ae20464219bdc87e0e4434fe3dd2a 100644 (file)
--- a/helm/DEVEL/ocaml-http/http_parser.ml
+++ b/helm/DEVEL/ocaml-http/http_parser.ml
@@ -20,6 +20,7 @@
 *)
 
 open Neturl;;
+open Printf;;
 
 exception Malformed_query of string
 exception Malformed_query_binding of string * string
@@ -145,6 +146,13 @@ let parse_request =
         let query_params =
           try split_query_params (url_query request_uri) with Not_found -> []
         in
+        Http_common.debug_print
+          (sprintf
+            "recevied request; path: %s; params: %s"
+            path
+            (String.concat
+              ", "
+              (List.map (fun (n, v) -> n ^ "=" ^ v) query_params)));
         (path, query_params)
     | _ -> raise (Malformed_request request_line)