From e9fb416793079336c60dd0143df10791f69eaf86 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Sat, 21 Mar 2015 22:28:48 +0000 Subject: [PATCH] Implement 'mclu destroy' command. --- Makefile.am | 2 ++ mclu.ml | 3 +++ mclu.pod | 6 +++++ mclu_destroy.ml | 69 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ mclu_destroy.mli | 21 +++++++++++++++++ 5 files changed, 101 insertions(+) create mode 100644 mclu_destroy.ml create mode 100644 mclu_destroy.mli diff --git a/Makefile.am b/Makefile.am index a3964ef..213df2d 100644 --- a/Makefile.am +++ b/Makefile.am @@ -29,6 +29,7 @@ SOURCES_MLI = \ mclu_boot.mli \ mclu_conf.mli \ mclu_console.mli \ + mclu_destroy.mli \ mclu_list.mli \ mclu_onoff.mli \ mclu_status.mli \ @@ -47,6 +48,7 @@ SOURCES_ML = \ mclu_status.ml \ mclu_onoff.ml \ mclu_boot.ml \ + mclu_destroy.ml \ mclu_console.ml \ mclu.ml diff --git a/mclu.ml b/mclu.ml index 2b34dac..af54c5b 100644 --- a/mclu.ml +++ b/mclu.ml @@ -55,6 +55,9 @@ let anon_fun, get_anon_args = | "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 diff --git a/mclu.pod b/mclu.pod index 9cfcf8f..e5b028f 100644 --- a/mclu.pod +++ b/mclu.pod @@ -82,6 +82,12 @@ is the number of physical CPUs, but not more than 4. Connect to the serial console console of the named guest. +=item B + +Destroy the named guest. + +Note this permanently deletes the guest and its data. + =item B List all active (running) guests and/or templates. You can use diff --git a/mclu_destroy.ml b/mclu_destroy.ml new file mode 100644 index 0000000..550d3d4 --- /dev/null +++ b/mclu_destroy.ml @@ -0,0 +1,69 @@ +(* mclu: Mini Cloud + * Copyright (C) 2014-2015 Red Hat Inc. + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + *) + +(* Implement 'mclu destroy'. *) + +open Printf + +open Utils + +let get_arg_speclist () = [] + +let destroy ~verbose ?host name = + let nodes = Mclu_conf.nodes () in + let node = + match host with + | Some host -> + (try List.find (fun n -> host = n.Mclu_conf.hostname) nodes + with Not_found -> + eprintf "mclu: host '%s' not found\n" host; + exit 1) + | None -> + (* No 'host:' prefix given, so we need to find the host. *) + let guests = Mclu_list.active_guests ~verbose ~nodes () in + let node, _ = + try + List.find ( + fun (node, doms) -> + List.exists ( + fun dom -> + name = dom.Mclu_list.dom_name + ) doms + ) guests + with + Not_found -> + eprintf "mclu: guest '%s' not found\n" name; + exit 1 in + node in + + let uri = node.Mclu_conf.libvirt_uri in + + let cmd = sprintf "virsh -c %s destroy %s" (quote uri) (quote name) in + if verbose then printf "%s\n%!" cmd; + if Sys.command cmd <> 0 then ( + eprintf "mclu: %s: command failed\n" cmd; + exit 1 + ) + +let run ~verbose = function + | [ name ] -> + let host, name = name_parse name in + destroy ~verbose ?host name + | _ -> + eprintf "Usage: mclu destroy <[host:]name>\n"; + exit 1 diff --git a/mclu_destroy.mli b/mclu_destroy.mli new file mode 100644 index 0000000..46ae35e --- /dev/null +++ b/mclu_destroy.mli @@ -0,0 +1,21 @@ +(* mclu: Mini Cloud + * Copyright (C) 2014-2015 Red Hat Inc. + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + *) + +val get_arg_speclist : unit -> (Arg.key * Arg.spec * Arg.doc) list + +val run : verbose:bool -> string list -> unit -- 1.8.3.1