CA-228035: Export update-resync-host and deprecate refresh_pack_info

Signed-off-by: Cheng Zhang <[email protected]>

Author: cheng-z

ocaml/idl/datamodel.ml

@@ -3241,10 +3241,11 @@ let host_set_localdb_key = call
 
 let host_refresh_pack_info = call
     ~name:"refresh_pack_info"
-    ~in_product_since:rel_midnight_ride
     ~doc:"Refresh the list of installed Supplemental Packs."
     ~params:[Ref _host, "host", "The Host to modify"]
     ~allowed_roles:_R_POOL_OP
+    ~lifecycle:[Published, rel_midnight_ride, "";
+                Deprecated, rel_ely, "Use Pool_update.resync_host instead"]
     ()
 
 (* ------------------------------------------------------------------------------------------------------------

ocaml/xapi/cli_frontend.ml

@@ -959,6 +959,15 @@ let rec cmdtable_data : (string*cmd_spec) list =
       flags=[];
     };
 
+    "update-resync-host",
+    {
+      reqd=["host-uuid"];
+      optn=[];
+      help="Refreshes Host.updates";
+      implementation=No_fd Cli_operations.update_resync_host;
+      flags=[Hidden];
+    };
+
     "user-password-change",
     {
       reqd=["new"];

ocaml/xapi/cli_operations.ml

@@ -4837,3 +4837,8 @@ let update_destroy printer rpc session_id params =
   let uuid = List.assoc "uuid" params in
   let ref = Client.Pool_update.get_by_uuid rpc session_id uuid in
   Client.Pool_update.destroy rpc session_id ref
+
+let update_resync_host printer rpc session_id params =
+  let uuid = List.assoc "host-uuid" params in
+  let host = Client.Host.get_by_uuid rpc session_id uuid in
+  Client.Pool_update.resync_host rpc session_id host