# HG changeset patch
# User Rob Hoes <rob.hoes@xxxxxxxxxx>
CA-35348: CLI call to update pack info

Use "xe host-refresh-pack-info host-uuid=..." to update Host.software_version after installing a new supplemental pack (done by the installer).

Signed-off-by: Rob Hoes <rob.hoes@xxxxxxxxxx>

diff -r 9305bc8628d1 ocaml/xapi/cli_frontend.ml
--- a/ocaml/xapi/cli_frontend.ml	Wed Dec 09 10:29:57 2009 +0000
+++ b/ocaml/xapi/cli_frontend.ml	Thu Dec 10 09:57:08 2009 +0000
@@ -681,6 +681,15 @@
       optn=["config:"];
       help="Disables external authentication in a host";
       implementation= No_fd Cli_operations.host_disable_external_auth;
+      flags=[Hidden];
+    };
+
+   "host-refresh-pack-info",
+    {
+      reqd=["host-uuid"];
+      optn=[""];
+      help="Refreshes Host.software_version";
+      implementation= No_fd Cli_operations.host_refresh_pack_info;
       flags=[Hidden];
     };
 
diff -r 9305bc8628d1 ocaml/xapi/cli_operations.ml
--- a/ocaml/xapi/cli_operations.ml	Wed Dec 09 10:29:57 2009 +0000
+++ b/ocaml/xapi/cli_operations.ml	Thu Dec 10 09:57:08 2009 +0000
@@ -3520,6 +3520,11 @@
   let host = Client.Host.get_by_uuid rpc session_id host_uuid in
   let config = read_map_params "config" params in
   Client.Host.disable_external_auth rpc session_id host config
+  
+let host_refresh_pack_info printer rpc session_id params =
+  let host_uuid = List.assoc "host-uuid" params in
+  let host = Client.Host.get_by_uuid rpc session_id host_uuid in
+  Client.Host.refresh_pack_info rpc session_id host
 
 let patch_upload fd printer rpc session_id params = 
   let filename = List.assoc "file-name" params in