in
let print_domain_list doms =
List.iter (
- fun dom ->
+ fun (dom, info) ->
let id =
try sprintf "%d" (D.get_id dom)
with Libvirt.Virterror _ -> "" in
with Libvirt.Virterror _ -> "" in
let state =
try
- let { D.state = state } = D.get_info dom in
+ let { D.state = state } = info in
string_of_domain_state state
with Libvirt.Virterror _ -> "" in
printf "%5s %-30s %s\n" id name state
in
loop 0;
buf)
- (arg_readonly_connection domain_of_string)
+ (arg_full_connection domain_of_string)
string_of_string Int64.of_string int_of_string,
s_"Peek into a block device of a domain.",
[dom_help; s_"path",s_"Path to block device";
in
loop 0;
buf)
- (arg_readonly_connection domain_of_string)
+ (arg_full_connection domain_of_string)
Int64.of_string int_of_string,
s_"Peek into memory of a device.",
[dom_help; s_"offset",s_"Offset in memory";
cmd0 print_domain_list
(fun () ->
let c = get_readonly_connection () in
- fst (Libvirt.get_domains c ~want_info:false [D.ListActive])),
+ D.get_domains_and_infos c [D.ListActive]),
+ s_"List the running domains.",
+ [];
+ "list-all",
+ cmd0 print_domain_list
+ (fun () ->
+ let c = get_readonly_connection () in
+ D.get_domains_and_infos c [D.ListAll]),
s_"List the running domains.",
[];
"list-defined",
cmd0 print_domain_list
(fun () ->
let c = get_readonly_connection () in
- fst (Libvirt.get_domains c ~want_info:false [D.ListInactive])),
+ D.get_domains_and_infos c [D.ListInactive]),
s_"List the defined but not running domains.",
[];
"quit",