- disabled OCaml HTTP debugging

- added a debugging messages that is printed after a request is served

diff --git a/helm/uwobo/src/ocaml/uwobo.ml b/helm/uwobo/src/ocaml/uwobo.ml
index 2f5e549830e859d5978b65d7a898ad60e7249e65..c99b4907c9573929c7f16b6d3a67a188b5068ac4 100644 (file)
--- a/helm/uwobo/src/ocaml/uwobo.ml
+++ b/helm/uwobo/src/ocaml/uwobo.ml
@@ -34,7 +34,7 @@ open Uwobo_common;;
 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 *)
@@ -248,7 +248,8 @@ let callback (req: Http_types.request) outchan =
               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