CP-14944: Add host-license-remove CLI command

Signed-off-by: John Else <[email protected]>

Author: johnelse

ocaml/xapi/cli_frontend.ml

@@ -2092,7 +2092,15 @@ add a mapping of 'path' -> '/tmp', the command line should contain the argument
       help="Add a license to a host.";
       implementation=With_fd Cli_operations.host_license_add;
       flags=[];
-    };    
+    };
+   "host-license-remove",
+    {
+      reqd=[];
+      optn=["host-uuid"];
+      help="Remove any licensing applied to a host.";
+      implementation=No_fd Cli_operations.host_license_remove;
+      flags=[];
+    };
    "host-license-view",
     {
       reqd=[];

ocaml/xapi/cli_operations.ml

@@ -2995,6 +2995,14 @@ let host_license_add fd printer rpc session_id params =
 			marshal fd (Command (PrintStderr "Failed to read license file\n"));
 			raise (ExitWithError 1)
 
+let host_license_remove printer rpc session_id params =
+	let host =
+		if List.mem_assoc "host-uuid" params then
+			Client.Host.get_by_uuid rpc session_id (List.assoc "host-uuid" params)
+		else
+			get_host_from_session rpc session_id in
+	Client.Host.license_remove rpc session_id host
+
 let host_license_view printer rpc session_id params =
 	let host =
 		if List.mem_assoc "host-uuid" params then