CP-42182 Add CLI tool on xe and rrd-cli to enable saving of rrds to local host

Backport of xapi-project/xen-api#4908

This is spread over multiple repositories in the backport.

Signed-off-by: Christian Lindig <[email protected]>

Author: Christian Lindig

rrd/dune

@@ -44,6 +44,8 @@
 
 (executable
  (name rrd_cli)
+ (public_name rrd-cli)
+ (package xapi-idl)
  (modules rrd_cli)
  (libraries
    cmdliner

rrd/rrd_cli.ml

@@ -17,7 +17,7 @@ let default_cmd =
       ]
   in
   ( Cmdliner.Term.(ret (const (fun _ -> `Help (`Pager, None)) $ const ()))
-  , Cmdliner.Term.info "rrd_cli" ~version:(version_str Cmds.description) ~doc )
+  , Cmdliner.Term.info "rrd-cli" ~version:(version_str Cmds.description) ~doc )
 
 let cli () =
   let rpc = Rrd_client.rpc in

rrd/rrd_interface.ml

@@ -246,6 +246,15 @@ module RPC_API (R : RPC) = struct
       ]
       (rem_addr_opt_p @-> unit_p @-> returning unit_p rrd_err)
 
+  let save_rrds =
+    declare "save_rrds"
+      [
+        "Backs up RRD data to disk on localhost. This should be done \
+         periodically to ensure"
+      ; "that if the host crashes we don't lose too much data."
+      ]
+      (unit_p @-> returning unit_p rrd_err)
+
   let archive_rrd =
     declare "archive_rrd"
       [