boot: Allow template to specify custom libvirt XML.
[mclu.git] / mclu_viewer.ml
1 (* mclu: Mini Cloud
2  * Copyright (C) 2014-2015 Red Hat Inc.
3  *
4  * This program is free software; you can redistribute it and/or modify
5  * it under the terms of the GNU General Public License as published by
6  * the Free Software Foundation; either version 2 of the License, or
7  * (at your option) any later version.
8  *
9  * This program is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  * GNU General Public License for more details.
13  *
14  * You should have received a copy of the GNU General Public License
15  * along with this program; if not, write to the Free Software
16  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17  *)
18
19 (* Implement 'mclu viewer'. *)
20
21 open Printf
22
23 open Utils
24
25 let get_arg_speclist () = []
26
27 let viewer ~verbose ?host name =
28   let node, name = Mclu_list.find_guest ~verbose name in
29   let uri = node.Mclu_conf.libvirt_uri in
30
31   let cmd = sprintf "virt-viewer -c %s %s &" (quote uri) (quote name) in
32   if verbose then printf "%s\n%!" cmd;
33   if Sys.command cmd <> 0 then (
34     eprintf "mclu: %s: command failed\n" cmd;
35     exit 1
36   )
37
38 let run ~verbose = function
39   | [ name ] -> viewer ~verbose name
40   | _ ->
41     eprintf "Usage: mclu viewer <[host:]name>\n";
42     exit 1