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

offline tool: add wire-fee cmd

Browse source
This commit is contained in:
swrup 2026-02-03 22:03:25 +01:00
parent 6ee1a994ad
commit 17be86bfd4
5 changed files with 111 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

37
tools/offline.ml
View file

@ -152,6 +152,35 @@ let disable_auditor_cmd =
and+ validity_end = validity_end in
disable_auditor ~output ~master_key ~auditor_pub ~validity_end
let wire_fee_cmd =
let doc = "Provides wire fee configuration." in
let wire_method =
Arg.(required & opt (some string) None & info [ "wire_method" ])
in
let fee_start =
Arg.(required & opt (some timestamp) None & info [ "fee_start" ])
in
let fee_end =
Arg.(required & opt (some timestamp) None & info [ "fee_end" ])
in
let closing_fee =
Arg.(required & opt (some amount) None & info [ "closing_fee" ])
in
let wire_fee =
Arg.(required & opt (some amount) None & info [ "wire_fee" ])
in
Cmd.make (Cmd.info "wire-fee" ~doc)
@@
let+ output = output
and+ master_key = master_key
and+ wire_method = wire_method
and+ fee_start = fee_start
and+ fee_end = fee_end
and+ closing_fee = closing_fee
and+ wire_fee = wire_fee in
Offline_impl.wire_fee ~output ~master_key ~wire_method ~fee_start ~fee_end
~closing_fee ~wire_fee
let global_fees_cmd =
let doc = "Provides global fee configuration." in
let start_date =
@ -210,16 +239,20 @@ let cli =
revoke_signkey_cmd;
enable_auditor_cmd;
disable_auditor_cmd;
wire_fee_cmd;
global_fees_cmd;
]
let main () = Cmd.eval_result cli
let () = if !Sys.interactive then () else exit (main ())
(* TODO all management operations:
/management/wire-fee
(* TODO
all management operations:
/management/wire
/management/wire/disable
-> how to build WireSetupMessage?
we need additional data to craft master_sig
maybe supposed to be found in the full payto-uri?
/management/drain
/management/aml-officers
/management/partners *)