~proc_set_variables
~proc_get_job_names
~proc_test_variables
+ ~proc_ping_daemon
(Rpc_server.Unix addr)
Rpc.Tcp (* not TCP, this is the same as SOCK_STREAM *)
Rpc.Socket
(* Return the names. *)
Array.of_list jobnames
+and proc_ping_daemon () = `ok
+
(* Reload the jobs file. *)
and reload_file () =
let file = sprintf "%s/jobs.cmo" !jobsdir in