This commit is contained in:
swrup 2026-02-03 21:31:48 +01:00
parent 0eef08d00f
commit e97ace8803
3 changed files with 32 additions and 3 deletions

View file

@ -136,6 +136,22 @@ let enable_auditor_cmd =
enable_auditor ~output ~master_key ~auditor_url ~auditor_name ~auditor_pub
~validity_start
let disable_auditor_cmd =
let doc = "Disable auditor." in
let auditor_pub =
Arg.(required & opt (some eddsa_pub) None & info [ "auditor_pub" ])
in
let validity_end =
Arg.(required & opt (some timestamp) None & info [ "validity_end" ])
in
Cmd.make (Cmd.info "disable-auditor" ~doc)
@@
let+ output = output
and+ master_key = master_key
and+ auditor_pub = auditor_pub
and+ validity_end = validity_end in
disable_auditor ~output ~master_key ~auditor_pub ~validity_end
let global_fees_cmd =
let doc = "Provides global fee configuration." in
let start_date =
@ -193,6 +209,7 @@ let cli =
revoke_denom_cmd;
revoke_signkey_cmd;
enable_auditor_cmd;
disable_auditor_cmd;
global_fees_cmd;
]
@ -200,8 +217,6 @@ let main () = Cmd.eval_result cli
let () = if !Sys.interactive then () else exit (main ())
(* TODO all management operations:
/management/auditors
/management/auditors/$AUDITOR_PUB/disable
/management/wire-fee
/management/wire
/management/wire/disable