X-Git-Url: http://git.annexia.org/?p=whenjobs.git;a=blobdiff_plain;f=tools%2Fwhenjobs.ml;h=f77e825e5ae156eb056588c9936f6654a94327c6;hp=db32eaf54879f173d903cd0067365c9f27592834;hb=d0eb02dfe7ab7db2f9e67c4313a1cad3b0ce4d93;hpb=46130209a2535fe06801f933e164c65084119705

diff --git a/tools/whenjobs.ml b/tools/whenjobs.ml
index db32eaf..f77e825 100644
--- a/tools/whenjobs.ml
+++ b/tools/whenjobs.ml
@@ -407,7 +407,7 @@ and list_variables () =
   stop_client client
 
 and daemon_start () =
-  assert false
+  exit (Sys.command "whenjobsd")
 
 and daemon_stop () =
   let client = start_client () in
@@ -421,7 +421,14 @@ and daemon_stop () =
   stop_client client
 
 and daemon_restart () =
-  assert false
+  (try
+     let client = start_client_no_exit () in
+     ignore (Whenproto_clnt.When.V1.exit_daemon client ());
+     stop_client client
+   with _ -> ()
+  );
+  sleep 1;
+  daemon_start ()
 
 and daemon_status () =
   let r =