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

add http_information.ml

Browse source
This commit is contained in:
swrup 2026-02-07 21:25:49 +01:00 • committed by Swrup
parent 0f412d0075
commit 117f7075bb
5 changed files with 23 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/http_keys.ml → src/http_information.ml
View file

@ -2,6 +2,24 @@ open Syntax
open Api
module String_map = Stdlib.Map.Make (Stdlib.String)
(* TODO mirage-crypto
is this ok?
maybe don't use the same RNG-initialization as the one used to generate keys *)
let seed req _server _env =
Logs.info (fun m -> m "GET /seed");
(* RNG is initialized by Vif.run *)
let s = Mirage_crypto_rng.generate 64 in
let open Vif.Response in
let open Syntax in
let* () = add ~field:"content-type" "application/octet-stream" in
let* () = with_string req s in
respond `OK
let config req _server _env =
Logs.info (fun m -> m "GET /config");
let s = Api.(encode_exn ExchangeVersionResponse.jsont config) in
Respond_util.respond_with_ok_json s req
(* TODO
for now we only have one item in each "denom group"
change this once we have denom/signkey rotation *)
@ -239,7 +257,7 @@ let mk_keys ~db_conn (module Sm : Secmod.S) ~last_issue_date =
let jsont = ExchangeKeysResponse.jsont
let f req server _env =
let keys req server _env =
Logs.info (fun m -> m "GET /keys");
let db_conn = Vif.Server.device Devices.db_connection server in
let sm = Vif.Server.device Devices.secmod server in

24
src/mte.ml
View file

@ -13,24 +13,6 @@
You should have received a copy of the GNU Affero General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>. *)
(* TODO mirage-crypto
is this ok?
maybe don't use the same RNG-initialization as the one used to generate keys *)
let seed req _server _env =
Logs.info (fun m -> m "GET /seed");
(* RNG is initialized by Vif.run *)
let s = Mirage_crypto_rng.generate 64 in
let open Vif.Response in
let open Syntax in
let* () = add ~field:"content-type" "application/octet-stream" in
let* () = with_string req s in
respond `OK
let config req _server _env =
Logs.info (fun m -> m "GET /config");
let s = Api.(encode_exn ExchangeVersionResponse.jsont config) in
Respond_util.respond_with_ok_json s req
let hello req _server _env =
let open Vif.Response in
let open Syntax in
@ -53,9 +35,9 @@ let routes =
in
let status_info =
[
get_ (rel / "seed") --> seed;
get_ (rel / "config") --> config;
get_ (rel / "keys") --> Http_keys.f;
get_ (rel / "seed") --> Http_information.seed;
get_ (rel / "config") --> Http_information.config;
get_ (rel / "keys") --> Http_information.keys;
]
in
let management =