add /management/auditors (untested)
This commit is contained in:
parent
399a977c2d
commit
a7b205b33e
6 changed files with 119 additions and 17 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue