Merge pull request #4968 from robhoes/xsi1423

CA-376448: explicitly validate refs in PVS_cache_storage.create
xapi-project · Apr 18, 2023 · a637bc3 · a637bc3
2 parents f354373 + 2456167
commit a637bc3
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/ocaml/xapi/xapi_pvs_cache_storage.ml b/ocaml/xapi/xapi_pvs_cache_storage.ml
@@ -29,6 +29,9 @@ let assert_not_already_present ~__context site host =
     api_error E.pvs_cache_storage_already_present [str site; str host]
 
 let create ~__context ~host ~sR ~site ~size =
+  Helpers.assert_is_valid_ref ~__context ~name:"host" ~ref:host ;
+  Helpers.assert_is_valid_ref ~__context ~name:"SR" ~ref:sR ;
+  Helpers.assert_is_valid_ref ~__context ~name:"site" ~ref:site ;
   assert_not_already_present ~__context site host ;
   let cache_storage = Ref.make () in
   let uuid = Uuidx.(to_string (make ())) in