X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=mclu.ml;h=b4bbf947959ed6f3266116be44aaa99e48b7912c;hb=84c3f83dd0dfc363ce72b06dbb4a7955ce653dfd;hp=65e7e7b19aea3a5143b893f748fd07f81a864e36;hpb=b29a837444aa5827b683bee5a7457fbb32305ae5;p=mclu.git

diff --git a/mclu.ml b/mclu.ml
index 65e7e7b..b4bbf94 100644
--- a/mclu.ml
+++ b/mclu.ml
@@ -20,6 +20,8 @@ open Utils
 
 open Printf
 
+let () = Random.self_init ()
+
 let config_file =
   let default =
     try Sys.getenv "MCLU_CONFIG"
@@ -52,6 +54,12 @@ let anon_fun, get_anon_args =
       | "boot" ->
         speclist := Mclu_boot.get_arg_speclist ();
         subcommand_run := Mclu_boot.run
+      | "console" ->
+        speclist := Mclu_console.get_arg_speclist ();
+        subcommand_run := Mclu_console.run
+      | "destroy" ->
+        speclist := Mclu_destroy.get_arg_speclist ();
+        subcommand_run := Mclu_destroy.run
       | "list" ->
         speclist := Mclu_list.get_arg_speclist ();
         subcommand_run := Mclu_list.run
@@ -61,9 +69,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;