X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=mclu.ml;h=a6e6e1dc24f37dca4c21da103560f787af6471b7;hb=21746ef0144c70168d5fb424ed086bf641412853;hp=af54c5be1bf0f4cc04f7c9ea8ed8b1904f67f469;hpb=e9fb416793079336c60dd0143df10791f69eaf86;p=mclu.git

diff --git a/mclu.ml b/mclu.ml
index af54c5b..a6e6e1d 100644
--- a/mclu.ml
+++ b/mclu.ml
@@ -67,9 +67,15 @@ let anon_fun, get_anon_args =
       | "on" ->
         speclist := Mclu_onoff.get_arg_speclist ();
         subcommand_run := Mclu_onoff.run ~on:true
+      | "reboot" ->
+        speclist := Mclu_reboot.get_arg_speclist ();
+        subcommand_run := Mclu_reboot.run
       | "status" ->
         speclist := Mclu_status.get_arg_speclist ();
         subcommand_run := Mclu_status.run
+      | "viewer" ->
+        speclist := Mclu_viewer.get_arg_speclist ();
+        subcommand_run := Mclu_viewer.run
       | _ ->
         eprintf "mclu: unknown subcommand '%s'
 For help, use mclu --help or read the mclu(1) man page.\n" arg;