.
This commit is contained in:
parent
0eef08d00f
commit
e97ace8803
3 changed files with 32 additions and 3 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue