X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Focaml-http%2Fhttp_parser.ml;h=ea78eaf29a7ae20464219bdc87e0e4434fe3dd2a;hb=856dc227c9781439a31d03f5b68d32a41db63ab9;hp=a753e40bbb12cfe5e67df2c5701b2fa8d826b65f;hpb=697d0d8857366485238a67386d0ce8f18404ac42;p=helm.git

diff --git a/helm/DEVEL/ocaml-http/http_parser.ml b/helm/DEVEL/ocaml-http/http_parser.ml
index a753e40bb..ea78eaf29 100644
--- 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)