33 lines
1.1 KiB
OCaml
33 lines
1.1 KiB
OCaml
(* TODO
|
|
- GNU Taler db-events?
|
|
it seems caqti/pgx does not support it *)
|
|
|
|
let on_ok req () =
|
|
let open Vif.Response.Syntax in
|
|
let* () =
|
|
Vif.Response.add ~field:"content-type" "text/plain; charset= utf-8"
|
|
in
|
|
let* () =
|
|
Vif.Response.with_string req (Fmt.str "activate_signing_key done~~@.")
|
|
in
|
|
Vif.Response.respond `OK
|
|
|
|
let on_error req err =
|
|
(* TODO be sure to not leak private data in error messages *)
|
|
let open Vif.Response.Syntax in
|
|
let str = Fmt.str "Database error: %a." Caqti_error.pp err in
|
|
Logs.err (fun m -> m "%s" str);
|
|
let* () = Vif.Response.with_string req str in
|
|
Vif.Response.respond `Internal_server_error
|
|
|
|
(* TODO master_sig *)
|
|
let dummy_master_sig =
|
|
Option.some @@ Crypto.EddsaSignature.of_octets (String.make 64 '\x00')
|
|
|
|
let test_activate req server _ =
|
|
let db_conn = Vif.Server.device Devices.db_connection server in
|
|
let secmod_signkey = Vif.Server.device Devices.secmod_signkey server in
|
|
let sm_key = secmod_signkey.sm_key in
|
|
let sm_key = { sm_key with master_sig= dummy_master_sig } in
|
|
let res = Pg.activate_signing_key db_conn sm_key in
|
|
Result.fold ~ok:(on_ok req) ~error:(on_error req) res
|