X-Git-Url: http://git.annexia.org/?p=whenjobs.git;a=blobdiff_plain;f=tools%2Fwhenjobs.ml;fp=tools%2Fwhenjobs.ml;h=c792e266558f68d228ee5a43cbcd8718eb924ae8;hp=bd265459b05350443538073bdd97090e3c939270;hb=82c14058a0252e953cae3bd2f1fc3fe00746d173;hpb=2f2b5efdf699e4bc0723079dcd2f68a0fd44ce07

diff --git a/tools/whenjobs.ml b/tools/whenjobs.ml
index bd26545..c792e26 100644
--- a/tools/whenjobs.ml
+++ b/tools/whenjobs.ml
@@ -88,13 +88,13 @@ let rec main () =
     "--daemon-restart", Arg.Unit (set_mode `Daemon_restart), " Restart the daemon";
     "-e", Arg.Unit (set_mode `Edit), " Edit and upload the script";
     "--edit", Arg.Unit (set_mode `Edit), " Edit and upload the script";
-    "--get", Arg.Unit (set_mode `Get), " Display the variable";
+    "--get", Arg.Unit (set_mode `Get), "var Display the variable";
     "--jobs", Arg.Unit (set_mode `Jobs), " List running jobs";
     "-l", Arg.Unit (set_mode `List), " List the script";
     "--list", Arg.Unit (set_mode `List), " List the script";
     "--lib", Arg.Set_string libdir, "dir Specify directory that contains pa_when.cmo";
     "--set", Arg.Unit (set_mode `Set), " Set the variable";
-    "--start", Arg.Unit (set_mode `Start), " Start a job manually";
+    "--start", Arg.Unit (set_mode `Start), "name Start a job manually";
     "--type", Arg.Set_string typ, "bool|int|float|string|unit Set the variable type";
     "--upload", Arg.Unit (set_mode `Upload), " Upload the script";
     "--variables", Arg.Unit (set_mode `Variables), " Display all variables and values";