let debug = true;;
let debug_level = `Debug;;
let debug_print s = if debug then prerr_endline s;;
-let http_debug = true;;
+let http_debug = false;;
Http_common.debug := http_debug;;
(* environment settings *)
in
(* thread action *)
-let callback req outchan =
+let callback (req: Http_types.request) outchan =
(* perform an 'action' that can be applied to a list of keys or, if no
keys was given, to all keys *)
- let act_on_keys req styles outchan per_key_action all_keys_action logmsg =
+ let act_on_keys (req: Http_types.request)
+ styles outchan per_key_action all_keys_action logmsg
+ =
let log = new Uwobo_logger.processingLogger () in
let keys =
try
outchan)
| "/help" -> Http_daemon.respond ~body:usage_string outchan
| invalid_request ->
- Http_daemon.respond_error ~status:(`Client_error `Bad_request) outchan)
+ Http_daemon.respond_error ~status:(`Client_error `Bad_request) outchan);
+ syslogger#log `Debug (sprintf "%s done!" req#path);
with
| Http_types.Param_not_found attr_name ->
bad_request (sprintf "Parameter '%s' is missing" attr_name) outchan