Usage: list_domains [URI]
(C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
http://libvirt.org/
- $Id: list_domains.ml,v 1.1 2007/08/06 10:16:53 rjones Exp $
*)
open Printf
Some (Sys.argv.(1))
else
None in
- let conn = C.connect ?name () in
+ let conn = C.connect_readonly ?name () in
(* List running domains. *)
let n = C.num_of_domains conn in