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

Browse source
This commit is contained in:
swrup 2025-10-19 01:37:21 +02:00
parent d938b17d2b
commit fcae062b37
4 changed files with 34 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/management.ml
View file

@ -1,5 +1,6 @@
(*open Types*)
open Api_types
open Devices
let mk_future_denom denom_key_signf
({
@ -88,18 +89,21 @@ let mk_future_signkey signkey_signf
signkey_secmod_sig;
}
let mk_future_keys_response ~signkey ~online_key ~denom_key ~denominations =
let mk_future_keys_response (secmod_signkey : Secmod_signkey.t)
(secmod_denom : Secmod_denom.t) =
let future_denoms =
(* todo: "only those lacking a master signature" *)
List.map (mk_future_denom denom_key.Signkey.sign) denominations
secmod_denom.denom_keys
|> List.filter (fun k -> Option.is_none k.Denomination.master_sig)
|> List.map (mk_future_denom secmod_denom.secmod_key.Signkey.sign)
in
let future_signkeys =
(* todo: "only those lacking a master signature" *)
List.map (mk_future_signkey signkey.Signkey.sign) [ online_key ]
secmod_signkey.signkeys
|> List.filter (fun k -> Option.is_none k.Signkey.master_sig)
|> List.map (mk_future_signkey secmod_signkey.secmod_key.sign)
in
let master_pub = Config.Exchange.master_public_key in
let denom_secmod_public_key = denom_key.pub in
let signkey_secmod_public_key = signkey.pub in
let denom_secmod_public_key = secmod_denom.secmod_key.pub in
let signkey_secmod_public_key = secmod_signkey.secmod_key.pub in
FutureKeysResponse.
{
future_denoms;
@ -112,13 +116,9 @@ let mk_future_keys_response ~signkey ~online_key ~denom_key ~denominations =
let keys req server _env =
let open Vif.Response in
let open Syntax in
let signkey = Vif.Server.device Devices.signkey server in
let online_key = Vif.Server.device Devices.online_key server in
let denom_key = Vif.Server.device Devices.denom_key server in
let denominations = Vif.Server.device Devices.denominations server in
let v =
mk_future_keys_response ~signkey ~online_key ~denom_key ~denominations
in
let secmod_signkey = Vif.Server.device Devices.secmod_signkey server in
let secmod_denom = Vif.Server.device Devices.secmod_denom server in
let v = mk_future_keys_response secmod_signkey secmod_denom in
let s = Json.encode_exn Json.FutureKeysResponse.jsont v in
let* () = with_string req s in
let* () = add ~field:"content-type" "application/json" in