examples: switch from C.connect_readonly to connect_auth_readonly

[ocaml-libvirt.git] / examples / list_domains.ml

diff --git a/examples/list_domains.ml b/examples/list_domains.ml
index 6b04932..87ccd8c 100644 (file)
--- a/examples/list_domains.ml
+++ b/examples/list_domains.ml
@@ -26,17 +26,19 @@ let () =
        Some (Sys.argv.(1))
       else
        None in
-    let conn = C.connect_readonly ?name () in
+    let conn = C.connect_auth_readonly ?name (C.get_auth_default ()) in
 
     (* List all domains (running and inactive). *)
     let domains = D.get_domains_and_infos conn [D.ListAll] in
     List.iter (
       fun (dom, info) ->
-       if info.D.state <> D.InfoShutoff then
-         printf "%8d %-20s %s\n%!"
-           (D.get_id dom) (D.get_name dom) (string_of_state info.D.state)
+       let id = D.get_id dom in
+       let name = D.get_name dom in
+       let state = string_of_state info.D.state in
+       if id >= 0 then
+         printf "%8d %-20s %s\n%!" id name state
        else
-         printf "%8s %-20s shutoff\n%!" "" (D.get_name dom)
+         printf "%8s %-20s %s\n%!" "inactive" name state
     ) domains
   with
     Libvirt.Virterror err ->