swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add denom revoke

Browse source
This commit is contained in:
swrup 2025-12-07 17:21:08 +01:00
parent edbe3ceb70
commit 472463e68b
7 changed files with 84 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/handler.ml
View file

@ -26,7 +26,7 @@ end
include Respond_util
open Api
let keys_get req server _env =
let management_keys_get req server _env =
let sm_signkey = Vif.Server.device Devices.secmod_signkey server in
let sm_denom = Vif.Server.device Devices.secmod_denom server in
let res =
@ -36,9 +36,9 @@ let keys_get req server _env =
in
respond_with_res res req
let keys_post_jsont = MasterSignatures.jsont
let management_keys_post_jsont = MasterSignatures.jsont
let keys_post req server _env =
let management_keys_post req server _env =
let open Syntax in
let open Management in
let db_conn = Vif.Server.device Devices.db_connection server in
@ -55,3 +55,21 @@ let keys_post req server _env =
Ok ""
in
respond_with_res res req
let management_denom_revoke_jsont = DenomRevocationSignature.jsont
let management_denom_revoke req h_denom_pub server _env =
let open Syntax in
let open Management in
let db_conn = Vif.Server.device Devices.db_connection server in
let _sm_signkey = Vif.Server.device Devices.secmod_signkey server in
let sm_denom = Vif.Server.device Devices.secmod_denom server in
let res =
let* h_denom_pub = HashCode.of_b32 h_denom_pub in
let h_denom_pub = HashCode.to_denomination_hash h_denom_pub in
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify_denom_revocation_sig h_denom_pub v in
let* () = update_denom_revocation ~db_conn ~sm_denom h_denom_pub v in
Ok ""
in
respond_with_res res req