Merge pull request #4857 from snwoods/private/stevenwo/CA-371790

Author: psafont

ocaml/xapi-types/secretString.ml

@@ -24,7 +24,7 @@ let with_cookie t request =
   let cookie = [(_pool_secret, t)] in
   {request with Http.Request.cookie}
 
-let write_to_file = Xapi_stdext_unix.Unixext.write_string_to_file
+let write_to_file = Xapi_stdext_unix.Unixext.write_string_to_file ~perms:0o600
 
 let write_to_channel c s = output_string c s