Merge pull request #209 from johnelse/cp-13861

CP-13861: Write licensing information to xenstore

Author: robhoes

lib/xenops_server.ml

@@ -1786,6 +1786,16 @@ module HOST = struct
 				let module B = (val get_backend () : S) in
 				B.HOST.mask_features features mask
 			) ()
+
+	let update_guest_agent_features _ dbg features =
+		Debug.with_thread_associated dbg
+			(fun () ->
+				debug "HOST.update_guest_agent_features %s"
+					(Rpc.Enum (List.map Host.rpc_of_guest_agent_feature features)
+						|> Jsonrpc.to_string);
+				let module B = (val get_backend () : S) in
+				B.HOST.update_guest_agent_features features
+			) ()
 end
 
 module VM = struct

lib/xenops_server_plugin.ml

@@ -62,6 +62,7 @@ module type S = sig
 		val get_total_memory_mib: unit -> int64
 		val send_debug_keys: string -> unit
 		val mask_features: string -> string -> string
+		val update_guest_agent_features : Host.guest_agent_feature list -> unit
 	end
 	module VM : sig
 		val add: Vm.t -> unit

lib/xenops_server_skeleton.ml

@@ -47,6 +47,7 @@ module HOST = struct
 	let get_total_memory_mib () = 0L
 	let send_debug_keys _ = ()
 	let mask_features features mask = features
+	let update_guest_agent_features _ = ()
 end
 module VM = struct
 	let add _ = ()

xc/xenops_server_xen.ml

@@ -507,6 +507,39 @@ module HOST = struct
 			(fun xc xs ->
 				Xenctrl.send_debug_keys xc keys
 			)
+
+	let update_guest_agent_features features =
+		let root = "/guest_agent_features" in
+		let perms =
+			Xs_protocol.ACL.({
+				owner = 0;
+				other = READ;
+				acl = [];
+			}) in
+		with_xs
+			(fun xs ->
+				Xs.transaction xs (fun t ->
+					t.Xst.rm root;
+					let write_with_perms key value =
+						t.Xst.write key value;
+						t.Xst.setperms key perms
+					in
+					write_with_perms root "";
+					List.iter (fun feature ->
+						let feature_root = Filename.concat root feature.Host.name in
+						let parameters_root = Filename.concat feature_root "parameters" in
+						write_with_perms feature_root "";
+						write_with_perms parameters_root "";
+						write_with_perms
+							(Filename.concat feature_root "licensed")
+							(if feature.Host.licensed then "1" else "0");
+						List.iter
+							(fun (key, value) ->
+								write_with_perms
+									(Filename.concat parameters_root key)
+									value)
+							feature.Host.parameters)
+					features))
 end
 
 module VM = struct