let styles = new Uwobo_styles.styles in
(* (3) clean up actions *)
let last_process = ref true in
let styles = new Uwobo_styles.styles in
(* (3) clean up actions *)
let last_process = ref true in
let (res_pipe_exit, res_pipe_entrance) = Unix.pipe () in
match Unix.fork () with
| child when child > 0 -> (* (4) parent: listen on cmd pipe for updates *)
let (res_pipe_exit, res_pipe_entrance) = Unix.pipe () in
match Unix.fork () with
| child when child > 0 -> (* (4) parent: listen on cmd pipe for updates *)
let stop_http_daemon () = (* kill child *)
debug_print (sprintf "Grandparent: killing pid %d" child);
Unix.kill child Sys.sigterm; (* kill child ... *)
let stop_http_daemon () = (* kill child *)
debug_print (sprintf "Grandparent: killing pid %d" child);
Unix.kill child Sys.sigterm; (* kill child ... *)