JJ: Description from the destination commit:
+ wire JJ: Description from source commit: + drain
This commit is contained in:
parent
f3c6424ec9
commit
c7901eb9e1
7 changed files with 296 additions and 120 deletions
|
|
@ -1,13 +1,6 @@
|
|||
(* TODO
|
||||
all management operations:
|
||||
/management/wire
|
||||
/management/wire/disable
|
||||
|
||||
/management/aml-officers
|
||||
-> /aml
|
||||
/management/partners
|
||||
-> /wads *)
|
||||
|
||||
(* not done:
|
||||
/management/aml-officers (for /aml)
|
||||
/management/partners (for /wads) *)
|
||||
open Cmdliner
|
||||
open Cmdliner.Term.Syntax
|
||||
open Offline_impl
|
||||
|
|
@ -292,6 +285,36 @@ let global_fees_cmd =
|
|||
~account_fee ~purse_fee ~history_expiration ~purse_account_limit
|
||||
~purse_timeout
|
||||
|
||||
let enable_wire_cmd =
|
||||
let doc = "Enable wire method." in
|
||||
let payto_uri =
|
||||
Arg.(required & opt (some string) None & info [ "payto_uri" ])
|
||||
in
|
||||
let bank_label =
|
||||
Arg.(value & opt (some string) None & info [ "bank_label" ])
|
||||
in
|
||||
let priority = Arg.(value & opt (some int) None & info [ "priority" ]) in
|
||||
Cmd.make (Cmd.info "enable-wire" ~doc)
|
||||
@@
|
||||
let+ output = output
|
||||
and+ master_key = master_key
|
||||
and+ payto_uri = payto_uri
|
||||
and+ bank_label = bank_label
|
||||
and+ priority = priority in
|
||||
enable_wire ~output ~master_key ~payto_uri ~bank_label ~priority
|
||||
|
||||
let disable_wire_cmd =
|
||||
let doc = "Disable wire method." in
|
||||
let payto_uri =
|
||||
Arg.(required & opt (some string) None & info [ "payto_uri" ])
|
||||
in
|
||||
Cmd.make (Cmd.info "disable-wire" ~doc)
|
||||
@@
|
||||
let+ output = output
|
||||
and+ master_key = master_key
|
||||
and+ payto_uri = payto_uri in
|
||||
disable_wire ~output ~master_key ~payto_uri
|
||||
|
||||
let drain_cmd =
|
||||
let doc =
|
||||
"Drain profits from the exchange. The actual drain requires running the \
|
||||
|
|
@ -335,7 +358,10 @@ let cli =
|
|||
disable_auditor_cmd;
|
||||
wire_fee_cmd;
|
||||
global_fees_cmd;
|
||||
enable_wire_cmd;
|
||||
disable_wire_cmd;
|
||||
drain_cmd;
|
||||
(* - *)
|
||||
test_hash64_cmd;
|
||||
]
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue