*)
open Neturl;;
+open Printf;;
exception Malformed_query of string
exception Malformed_query_binding of string * string
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)