diff --git a/src/handler.ml b/src/handler.ml index 9ba38900..091a33fc 100644 --- a/src/handler.ml +++ b/src/handler.ml @@ -100,12 +100,13 @@ let management_auditors req server _env = in respond_with_res res req -let management_auditors_disable_jsont = AuditorSetupMessage.jsont +let management_auditors_disable_jsont = AuditorTeardownMessage.jsont let management_auditors_disable req auditor_pub server _env = let open Management in let db_conn = Vif.Server.device Devices.db_connection server in let res = + let* auditor_pub = Crypto.EddsaPublicKey.of_b32 auditor_pub in let* v = Vif.Request.of_json req |> unwrap_err_msg in let* () = verify_auditor_disable_sig auditor_pub v in let* () = auditor_disable ~db_conn auditor_pub v in diff --git a/src/mte.ml b/src/mte.ml index 530826a2..b330574c 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -45,6 +45,10 @@ let routes = --> management_signkey_revoke; post (v "management" / "auditors") management_auditors_jsont --> management_auditors; + post + (v "management" / "auditors" /% string `Path / "disable") + management_auditors_disable_jsont + --> management_auditors_disable; ] let () =