let check_permission pid password for_what =
match password, Helm_registry.get_bool (permission_key for_what pid) with
- None, true -> ()
+ _, true -> ()
| Some pwd, false when Some pwd = Helm_registry.get_opt Helm_registry.get (password_key pid) -> ()
| _ -> raise (Access_denied (string_of_permission for_what, pid))
check_permission pid clone_password `Read ;
to_list_rel ~prefix:(params_key pid) ()
in
- List.iter (fun (key, value) -> Helm_registry.set_string key value) params ;
+ List.iter (fun (key, value) -> Helm_registry.set_string (params_key pid ^ "." ^ key) value) params ;
Helm_registry.set_bool (read_permission_key pid) read_perm ;
Helm_registry.set_bool (write_permission_key pid) write_perm ;
Helm_registry.set_bool (admin_permission_key pid) admin_perm ;