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

s/Devices/Global/

Browse source
This commit is contained in:
swrup 2026-03-12 18:46:50 +01:00
parent 4bbe4c842c
commit 4bbd16d3d3
2 changed files with 23 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/mte_info.ml
View file

@ -158,8 +158,8 @@ let jsont = ExchangeKeysResponse.jsont
let keys req server _env = let keys req server _env =
Logs.info (fun m -> m "GET /keys"); Logs.info (fun m -> m "GET /keys");
let db_conn = Vifu.Server.device Devices.db_connection server in let db_conn = Vifu.Server.device Global.db_conn server in
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let res = let res =
let* last_issue_date = let* last_issue_date =
match Vifu.Queries.get req "last_issue_date" with match Vifu.Queries.get req "last_issue_date" with

42
src/mte_management.ml
View file

@ -7,7 +7,7 @@ module Keys_get = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "GET /management/keys/"); Logs.info (fun m -> m "GET /management/keys/");
let (module Keys : Keys.S) = Vifu.Server.device Devices.keys server in let (module Keys : Keys.S) = Vifu.Server.device Global.keys server in
let res = let res =
let* v = Keys.make_future_keys_response () in let* v = Keys.make_future_keys_response () in
Api.encode jsont v Api.encode jsont v
@ -31,7 +31,7 @@ module Keys_post = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/keys/"); Logs.info (fun m -> m "POST /management/keys/");
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let res = let res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -56,7 +56,7 @@ module Denom_revoke = struct
let f req h_denom_pub server _env = let f req h_denom_pub server _env =
Logs.info (fun m -> m "POST /management/denominations/$H_DENOM_PUB/revoke/"); Logs.info (fun m -> m "POST /management/denominations/$H_DENOM_PUB/revoke/");
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let res = let res =
let* h_denom_pub = Crypto.DenominationHash.of_b32 h_denom_pub in let* h_denom_pub = Crypto.DenominationHash.of_b32 h_denom_pub in
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
@ -82,7 +82,7 @@ module Signkey_revoke = struct
let f req exchange_pub server _env = let f req exchange_pub server _env =
Logs.info (fun m -> m "POST /management/signkeys/$EXCHANGE_PUB/revoke/"); Logs.info (fun m -> m "POST /management/signkeys/$EXCHANGE_PUB/revoke/");
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let res = let res =
let* exchange_pub = Crypto.EddsaPublicKey.of_b32 exchange_pub in let* exchange_pub = Crypto.EddsaPublicKey.of_b32 exchange_pub in
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
@ -133,8 +133,8 @@ module Auditors = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/auditors/"); Logs.info (fun m -> m "POST /management/auditors/");
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let db_conn = Vifu.Server.device Devices.db_connection server in let db_conn = Vifu.Server.device Global.db_conn server in
let res = let res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -178,8 +178,8 @@ module Auditors_disable = struct
let f req auditor_pub server _env = let f req auditor_pub server _env =
Logs.info (fun m -> m "POST /management/auditors/$AUDITOR_PUB/disable/"); Logs.info (fun m -> m "POST /management/auditors/$AUDITOR_PUB/disable/");
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let db_conn = Vifu.Server.device Devices.db_connection server in let db_conn = Vifu.Server.device Global.db_conn server in
let res = let res =
let* auditor_pub = Crypto.EddsaPublicKey.of_b32 auditor_pub in let* auditor_pub = Crypto.EddsaPublicKey.of_b32 auditor_pub in
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
@ -238,8 +238,8 @@ module Wire_fee = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/wire-fee/"); Logs.info (fun m -> m "POST /management/wire-fee/");
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let db_conn = Vifu.Server.device Devices.db_connection server in let db_conn = Vifu.Server.device Global.db_conn server in
let res = let res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -284,7 +284,7 @@ module Global_fees = struct
and once set for a timeframe, it should not change. *) and once set for a timeframe, it should not change. *)
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/global-fees/"); Logs.info (fun m -> m "POST /management/global-fees/");
let db_conn = Vifu.Server.device Devices.db_connection server in let db_conn = Vifu.Server.device Global.db_conn server in
let res = let res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify v in let* () = verify v in
@ -399,8 +399,8 @@ module Wire = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/wire/"); Logs.info (fun m -> m "POST /management/wire/");
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let db_conn = Vifu.Server.device Devices.db_connection server in let db_conn = Vifu.Server.device Global.db_conn server in
let res = let res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -438,8 +438,8 @@ module Wire_disable = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/wire/disable/"); Logs.info (fun m -> m "POST /management/wire/disable/");
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let db_conn = Vifu.Server.device Devices.db_connection server in let db_conn = Vifu.Server.device Global.db_conn server in
let res = let res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -487,8 +487,8 @@ module Drain = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/drain/"); Logs.info (fun m -> m "POST /management/drain/");
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let db_conn = Vifu.Server.device Devices.db_connection server in let db_conn = Vifu.Server.device Global.db_conn server in
let res = let res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -527,8 +527,8 @@ module AmlOfficer = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/aml-officers/"); Logs.info (fun m -> m "POST /management/aml-officers/");
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let db_conn = Vifu.Server.device Devices.db_connection server in let db_conn = Vifu.Server.device Global.db_conn server in
let res = let res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -569,8 +569,8 @@ module Partners = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/partners/"); Logs.info (fun m -> m "POST /management/partners/");
let keys = Vifu.Server.device Devices.keys server in let keys = Vifu.Server.device Global.keys server in
let db_conn = Vifu.Server.device Devices.db_connection server in let db_conn = Vifu.Server.device Global.db_conn server in
let res = let res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in