From 1535c8c830919b3df63375a31008e8f0a5d7244f Mon Sep 17 00:00:00 2001 From: Sapan Bhatia Date: Tue, 24 Mar 2009 14:54:03 +0000 Subject: [PATCH] --- unixsocketwatcher.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/unixsocketwatcher.ml b/unixsocketwatcher.ml index 1634c49..b5672b0 100644 --- a/unixsocketwatcher.ml +++ b/unixsocketwatcher.ml @@ -36,11 +36,12 @@ let receive_event (listening_socket_spec:fname_and_fd) (_:fname_and_fd) = match mapping with |None -> logprint "Received unexpected socket event\n";() |Some (execpath, slice_name) -> + print "Execpath: %s\n" execpath; begin let child = fork () in if (child == 0) then begin - (*Child*) + (* Child *) (* Close all fds except for the socket *) ignore(execv execpath,[execpath,sprintf "%d" (Obj.magic data_socket)]); logprint "Could not execve %s" execpath @@ -65,7 +66,7 @@ let mkentry fqp exec_fqp perm slice_name = Unix.chown control_filename pwentry.pw_uid pwentry.pw_gid ); Hashtbl.replace unix_socket_table_fname control_filename (Some(listening_socket)); - Hashtbl.replace unix_socket_table_fd listening_socket (Some(control_filename,slice_name)); + Hashtbl.replace unix_socket_table_fd listening_socket (Some(exec_fqp,slice_name)); Fdwatcher.add_fd (None,listening_socket) (None,listening_socket) receive_event; Success with -- 2.43.0