Instead of closing the socket to avoid persistent connections (a bugged

[helm.git] / daemons / uwobo / uwobo.ml

diff --git a/daemons/uwobo/uwobo.ml b/daemons/uwobo/uwobo.ml
index 7b8a20954f973743eb9a57351d45ce55a8b26124..e7aa1e8f9fc478d8589c3bf749f5a98aa1340280 100644 (file)
--- a/daemons/uwobo/uwobo.ml
+++ b/daemons/uwobo/uwobo.ml
@@ -566,13 +566,6 @@ let callback
       return_error ("Uncaught exception: " ^ (Printexc.to_string exc)) outchan
 ;;
 
-let callback
-  ~syslogger ~styles ~cmd_pipe ~res_pipe () (req: Http_types.request) outchan
-=
-  HExtlib.finally
-    (fun () -> try close_out outchan with Sys_error _ -> ())
-    (callback ~syslogger ~styles ~cmd_pipe ~res_pipe () req) outchan
-
   (* UWOBO's startup *)
 let main () =
     (* (1) system logger *)
@@ -809,7 +802,8 @@ let main () =
           requests until it will get killed by father *)
         let d_spec = Http_daemon.daemon_spec
             ~port ~mode:`Fork
-            ~callback:(callback ~syslogger ~styles ~cmd_pipe ~res_pipe ()) ()
+            ~callback:(callback ~syslogger ~styles ~cmd_pipe ~res_pipe ())
+            ~auto_close:true ()
         in
         Http_daemon.main d_spec
     | _ (* < 0 *) ->  (* fork failed :-((( *)