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

more management

Browse source
This commit is contained in:
swrup 2025-10-18 18:19:09 +02:00
parent 85ddb8194f
commit 8b92b81946
1 changed files with 6 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/management.ml
View file

@ -1,13 +1,6 @@
(*open Types*) (*open Types*)
open Api_types open Api_types
(* TODO
- take secmod devices as param
- hash stuff
what is the hash algorithm
is it hash'ed then base32'ed in xxxP?
... *)
let mk_future_denom denom_key_signf let mk_future_denom denom_key_signf
({ ({
section_name; section_name;
@ -64,7 +57,7 @@ let mk_future_denom denom_key_signf
denom_secmod_sig; denom_secmod_sig;
} }
let mk_future_sign_key signkey_signf let mk_future_signkey signkey_signf
({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) = ({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) =
let signkey_secmod_sig = let signkey_secmod_sig =
let open Binary_formats in let open Binary_formats in
@ -92,9 +85,13 @@ let mk_future_sign_key signkey_signf
signkey_secmod_sig; signkey_secmod_sig;
} }
let keys req _server _env = let keys req server _env =
let open Vif.Response in let open Vif.Response in
let open Syntax in let open Syntax in
let _signkey = Vif.Server.device Devices.signkey server in
let _exchange_key = Vif.Server.device Devices.exchange_key server in
let _denom_key = Vif.Server.device Devices.denom_key server in
let _denominations = Vif.Server.device Devices.denominations server in
let* () = with_string req "keys .. \n" in let* () = with_string req "keys .. \n" in
let* () = add ~field:"content-type" "application/json" in let* () = add ~field:"content-type" "application/json" in
respond `OK respond `OK