add /management/auditors (untested)

This commit is contained in:
swrup 2025-12-11 04:20:09 +01:00
parent 399a977c2d
commit a7b205b33e
6 changed files with 119 additions and 17 deletions

View file

@ -88,3 +88,17 @@ let management_signkey_revoke req exchange_pub server _env =
Ok ""
in
respond_with_res res req
let management_auditors_jsont = AuditorSetupMessage.jsont
let management_auditors req server _env =
let open Syntax in
let open Management in
let db_conn = Vif.Server.device Devices.db_connection server in
let res =
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify_auditor_add_sig v in
let* () = update_auditor ~db_conn v in
Ok ""
in
respond_with_res res req