Implement 'mclu reboot' command for rebooting guests.
[mclu.git] / mclu.ml
diff --git a/mclu.ml b/mclu.ml
index ff8103b..a6e6e1d 100644 (file)
--- a/mclu.ml
+++ b/mclu.ml
@@ -67,6 +67,9 @@ 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