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

Browse source
This commit is contained in:
swrup 2026-02-03 20:36:33 +01:00
parent 1af3718b1e
commit 3f582326e2
6 changed files with 70 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

24
tools/offline_impl.ml
View file

@ -74,11 +74,10 @@ let revoke_denom ~output ~master_key ~h_denom =
let revoke_signkey ~output ~master_key ~signkey =
let* key = read_master_key_file master_key in
let* exchange_pub = Crypto.EddsaPublicKey.of_b32 signkey in
let signkey_revoke =
let master_sig =
let open Bin_sig.MasterSigningKeyRevocation in
sign_f ~f:(Crypto.EddsaSignature.sign ~key) { exchange_pub }
sign_f ~f:(Crypto.EddsaSignature.sign ~key) { exchange_pub= signkey }
in
Api.SignkeyRevocationSignature.{ master_sig }
in
@ -135,3 +134,24 @@ let global_fees ~output ~master_key ~start_date ~end_date ~history_fee
let* s = Api.encode Api.GlobalFees.jsont global_fees in
let* () = write_file output s in
Ok ()
let enable_auditor ~output ~master_key ~auditor_url ~auditor_name ~auditor_pub
~validity_start =
let open Crypto in
let* key = read_master_key_file master_key in
let master_sig =
let open Bin_sig.MasterAddAuditor in
sign_f ~f:(EddsaSignature.sign ~key)
{
start_date= validity_start;
auditor_pub;
h_auditor_url= Bin_type.Hash_64_cstr.hash auditor_url;
}
in
let v =
Api.AuditorSetupMessage.
{ auditor_url; auditor_name; auditor_pub; master_sig; validity_start }
in
let* s = Api.encode Api.AuditorSetupMessage.jsont v in
let* () = write_file output s in
Ok ()