JJ: Description from the destination commit:

wip logging

JJ: Description from source commit:
~

src/mte.ml

@@ -13,90 +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/>. *)
 
-let error_detail ?hint _status =
-  let open Api in
-  let code = -1 in
-  let s = encode_exn ErrorDetail.jsont { code; hint } in
-  s
-
-module Respond_with = struct
-  open Vif.Response
-  open Syntax
-
-  let bad_request ?hint req =
-    let body = error_detail ?hint `Bad_request in
-    let* () = with_string ?compression:None req body in
-    respond `Bad_request
-
-  let not_modified () =
-    let* () = empty in
-    respond `Not_modified
-
-  let unsupported_media_type req =
-    let body =
-      error_detail ~hint:"no acceptable mimetype" `Unsupported_media_type
-    in
-    let* () = with_string ?compression:None req body in
-    let* () = add ~field:"accept" Headers.accept_header_value in
-    respond `Unsupported_media_type
-end
-
-(* TODO check for mathcing ETAG with a middleware instead? *)
-(* /terms + /privacy
-   - try to find a response with an acceptable mime-type
-   - pick the version in the most preferred language of the user
-   - apply compression if that is allowed by the client
-   - set ETAG header
-   - If it did not change, a "304 Not Modified" response will be returned
-   - A "Taler-Terms-Version" header is generated to indicate the legal version of the terms
-   - When returning a full response (not a "304 Not Modified"),
-     include a "Avail-Languages" header: a comma-separated list of the languages available *)
-module Static = struct
-  let f kind req _server _env =
-    let etag = Assets.etag kind in
-    let headers = Vif.Request.headers req in
-    let has_matching_etag =
-      match Vif.Headers.get headers "if-none-match" with
-      | None -> Ok false
-      | Some s ->
-          Headers_lib.Etag.parse s
-          |> Result.map (Headers_lib.Etag.evaluate etag)
-    in
-    match has_matching_etag with
-    | Error e -> Respond_with.bad_request ~hint:e req
-    | Ok true -> Respond_with.not_modified ()
-    | Ok false -> (
-        match Headers.select_mimetype headers with
-        | None -> Respond_with.unsupported_media_type req
-        | Some mime ->
-            let lang = Headers.select_language headers in
-            let compression = Headers.select_encoding headers in
-            let data = Assets.get_content ~mime ~lang kind in
-            (* -- *)
-            let open Vif.Response in
-            let open Syntax in
-            let* () = with_string ?compression req data in
-            let* () =
-              let etag_field_value = Headers_lib.Etag.to_field_value etag in
-              add ~field:"etag" etag_field_value
-            in
-            let* () =
-              (* todo: is it "taler-privacy-version" for /policy ? *)
-              add ~field:"taler-terms-version" Assets.terms_legal_version
-            in
-            let* () =
-              add ~field:"avail-languages" Headers.avail_languages_header_value
-            in
-            let* () =
-              let content_type = Fmt.str "%a" Assets.Mimetype.pp_mime mime in
-              add ~field:"content-type" content_type
-            in
-            respond `OK)
-
-  let terms = f Assets.Terms
-  let privacy = f Assets.Privacy
-end
-
 let hello req _server _env =
   let open Vif.Response in
   let open Syntax in
@@ -108,18 +24,24 @@ let routes =
   let open Vif.Uri in
   let open Vif.Route in
   let open Vif.Type in
+  (* just for alignement *)
+  let get_ = get in
+  let post = Fun.flip post in
   [
-    get (rel /?? nil) --> hello; get (rel / "terms" /?? nil) --> Static.terms;
-    get (rel / "privacy" /?? nil) --> Static.privacy;
-    get (rel / "management" / "keys" /?? nil) --> Management.keys_get;
-    post any (rel / "management" / "keys" /?? nil) --> Management.keys_post;
+    get_ (rel /?? nil) --> hello;
+    get_ (rel / "terms" /?? nil) --> Static.terms;
+    get_ (rel / "privacy" /?? nil) --> Static.privacy;
+    get_ (rel / "test" /?? nil) --> Database.test_activate;
+    get_ (rel / "management" / "keys" /?? nil) --> Management.keys_get;
+    post (rel / "management" / "keys" /?? nil) any --> Management.keys_post;
   ]
 
 let () =
+  Util.Log_reporter.setup ();
   let cfg =
     let port = Config.Exchange.port in
     let sockaddr = Unix.(ADDR_INET (inet_addr_loopback, port)) in
-    Vif.config sockaddr
+    Vif.config ~reporter:Util.Log_reporter.reporter sockaddr
   in
   Miou_unix.run @@ fun () ->
   Caqti_miou.Switch.run @@ fun caqti_switch ->
@@ -131,4 +53,6 @@ let () =
       [ Devices.db_connection; Devices.secmod_signkey; Devices.secmod_denom ]
   in
   let middlewares = Vif.Middlewares.[] in
+  Logs.info (fun m ->
+      m ~tags:(Util.Log_reporter.detail "...") "Starting MTE server");
   Vif.run ~cfg ~devices ~middlewares routes env