From: Stefano Zacchiroli Date: Sun, 5 Jan 2003 14:07:37 +0000 (+0000) Subject: - dump also request's body, useful to debug POST requests X-Git-Tag: v0_3_99~97 X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=commitdiff_plain;h=e2103d86692f0782eca040d7fdf9c1080fa229fc - dump also request's body, useful to debug POST requests --- diff --git a/helm/DEVEL/ocaml-http/examples/dump_args.ml b/helm/DEVEL/ocaml-http/examples/dump_args.ml index 3287ea710..8e0d5dc67 100644 --- a/helm/DEVEL/ocaml-http/examples/dump_args.ml +++ b/helm/DEVEL/ocaml-http/examples/dump_args.ml @@ -24,20 +24,21 @@ open Printf;; let callback req outchan = Http_daemon.send_basic_headers ~code:200 outchan; Http_daemon.send_CRLF outchan; - let (s1, s2, s3, s4) = - (sprintf "request path = %s\n" req#path), + let str = + (sprintf "request path = %s\n" req#path) ^ (sprintf "request GET params = %s\n" (String.concat ";" - (List.map (fun (h,v) -> String.concat "=" [h;v]) req#params_GET))), + (List.map (fun (h,v) -> String.concat "=" [h;v]) req#params_GET))) ^ (sprintf "request POST params = %s\n" (String.concat ";" - (List.map (fun (h,v) -> String.concat "=" [h;v]) req#params_POST))), + (List.map (fun (h,v) -> String.concat "=" [h;v]) req#params_POST))) ^ (sprintf "request ALL params = %s\n" (String.concat ";" - (List.map (fun (h,v) -> String.concat "=" [h;v]) req#params))) + (List.map (fun (h,v) -> String.concat "=" [h;v]) req#params))) ^ + (sprintf "request BODY = '%s'\n" req#body) in - output_string outchan (s1 ^ s2 ^ s3 ^ s4); - prerr_endline (s1 ^ s2 ^ s3 ^ s4) + output_string outchan str; + prerr_endline str in print_endline "Starting custom Http_daemon ..."; flush stdout;