Expose Secret API

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

diff --git a/examples/get_cpu_stats.ml b/examples/get_cpu_stats.ml
index 79d5c3c..27e1306 100644 (file)
--- a/examples/get_cpu_stats.ml
+++ b/examples/get_cpu_stats.ml
@@ -17,15 +17,17 @@ let () =
     );
     let domname = Sys.argv.(1) in
 
-    let conn = C.connect_readonly () in
+    let conn = C.connect_auth_readonly (C.get_auth_default ()) in
 
+    (*
     let nr_pcpus =
       let info = C.get_node_info conn in
       C.maxcpus_of_node_info info in
+     *)
 
     let stats =
       let dom = D.lookup_by_name conn domname in
-      D.get_cpu_stats dom nr_pcpus in
+      D.get_cpu_stats dom in
 
     Array.iteri (
       fun n params ->