From: Jon Ludlam Date: Fri, 7 Oct 2011 14:44:34 +0100 Subject: no-runstate-info --- ocaml/xapi/monitor.ml | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ocaml/xapi/monitor.ml b/ocaml/xapi/monitor.ml index 4f5e7d1..6b10629 100644 --- a/ocaml/xapi/monitor.ml +++ b/ocaml/xapi/monitor.ml @@ -91,7 +91,7 @@ let update_vcpus xc doms = in (* Runstate info is per-domain rather than per-vcpu *) - let dss = + let dss = (* try let ri = Xenctrl.domain_get_runstate_info xc domid in (VM uuid, ds_make ~name:"runstate_entry_time" ~value:(Rrd.VT_Float ((Int64.to_float ri.Xenctrl.state_entry_time) /. 1.0e9)) ~description:"" ~ty:Rrd.Derive ~default:false ~min:0.0 ()):: @@ -101,7 +101,7 @@ let update_vcpus xc doms = (VM uuid, ds_make ~name:"runstate_blocked" ~value:(Rrd.VT_Float ((Int64.to_float ri.Xenctrl.time3) /. 1.0e9)) ~description:"Fraction of time that all VCPUs are blocked or offline" ~ty:Rrd.Derive ~default:false ~min:0.0 ()):: (VM uuid, ds_make ~name:"runstate_partial_run" ~value:(Rrd.VT_Float ((Int64.to_float ri.Xenctrl.time4) /. 1.0e9)) ~description:"Fraction of time that some VCPUs are running, and some are blocked" ~ty:Rrd.Derive ~default:false ~min:0.0 ()):: (VM uuid, ds_make ~name:"runstate_partial_contention" ~value:(Rrd.VT_Float ((Int64.to_float ri.Xenctrl.time5) /. 1.0e9)) ~description:"Fraction of time that some VCPUs are runnable and some are blocked" ~ty:Rrd.Derive ~default:false ~min:0.0 ())::dss - with e -> + with e -> *) dss in --