Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*)
+open Printf;;
+
let dump_args path args =
Printf.sprintf
"PATH: %s\nARGS:\n%s"
(String.concat
""
(List.map
- (fun (name, value) -> "\tNAME: " ^ name ^ ", VALUE: " ^ value ^ "\n")
+ (fun (name, value) -> sprintf "\tNAME: '%s', VALUE: '%s'\n" name value)
args))
in
let callback path args outchan =
in
print_endline "Starting custom Http_daemon ...";
flush stdout;
-Http_daemon.start ~addr:"127.0.0.1" ~port:9999 callback
+Http_daemon.start ~port:9999 callback