CA-81442: SM services are now also allowed to VM power admins

Signed-off-by: Thomas Gazagnaire <[email protected]>

Author: samoht

ocaml/idl/constants.ml

@@ -15,6 +15,7 @@
 
 let services_uri = "/services"                        (* ocaml/xapi/xapi_services.ml *)
 let xenops_uri = "/services/xenops"                   (* ocaml/xapi/xapi_services.ml *)
+let sm_uri = "/services/SM"                           (* ocaml/xapi/xapi_services.ml *)
 let import_vdi_uri = "/import_vdi"                    (* Currently unused *)
 let import_raw_vdi_uri = "/import_raw_vdi"            (* ocaml/xapi/import_raw_vdi.ml *)
 let export_uri = "/export"                            (* ocaml/xapi/export.ml *)

ocaml/idl/datamodel.ml

@@ -7867,6 +7867,9 @@ let http_actions = [
   ("get_services_xenops", (Get, Constants.xenops_uri, false, [], _R_VM_POWER_ADMIN, []));
   ("post_services_xenops", (Post, Constants.xenops_uri, false, [], _R_VM_POWER_ADMIN, []));
   ("put_services_xenops", (Put, Constants.xenops_uri, false, [], _R_VM_POWER_ADMIN, []));
+  ("get_services_sm", (Get, Constants.sm_uri, false, [], _R_VM_POWER_ADMIN, []));
+  ("post_services_sm", (Post, Constants.sm_uri, false, [], _R_VM_POWER_ADMIN, []));
+  ("put_services_sm", (Put, Constants.sm_uri, false, [], _R_VM_POWER_ADMIN, []));
   ("put_import", (Put, Constants.import_uri, true,
 		  [Bool_query_arg "restore"; Bool_query_arg "force"; String_query_arg "sr_id"], _R_VM_ADMIN, []));
   ("put_import_metadata", (Put, Constants.import_metadata_uri, true,

ocaml/xapi/xapi.ml

@@ -627,6 +627,9 @@ let common_http_handlers = [
   ("get_services_xenops", (Http_svr.FdIO Xapi_services.get_handler));
   ("put_services_xenops", (Http_svr.FdIO Xapi_services.get_handler));
   ("post_services_xenops", (Http_svr.FdIO Xapi_services.get_handler));
+  ("get_services_sm", (Http_svr.FdIO Xapi_services.get_handler));
+  ("put_services_sm", (Http_svr.FdIO Xapi_services.get_handler));
+  ("post_services_sm", (Http_svr.FdIO Xapi_services.get_handler));
   ("get_services", (Http_svr.FdIO Xapi_services.get_handler));
   ("post_services", (Http_svr.FdIO Xapi_services.post_handler));
   ("put_services", (Http_svr.FdIO Xapi_services.put_handler));