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

Browse source
This commit is contained in:
swrup 2026-02-12 12:45:07 +01:00
parent e60de419e0
commit 666a08c46e
3 changed files with 40 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

56
src/static.ml
View file

@ -13,31 +13,37 @@ let aux asset req _server _env =
match has_matching_etag with
| Error e -> Respond.bad_request ~hint:e req
| Ok true -> Respond.not_modified ()
| Ok false ->
let mime = Headers.select_mimetype headers in
let lang = Headers.select_language headers in
let compression = Headers.select_encoding headers in
let data = Assets.get_content ~mime ~lang asset 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_string etag in
add ~field:"etag" etag_field_value
in
let* () =
(* todo: is it "taler-privacy-version" for /policy ? *)
add ~field:"taler-terms-version" (Assets.legal_version asset)
in
let* () =
add ~field:"avail-languages" Headers.avail_languages_header_value
in
let* () =
let content_type = Fmt.str "%a" Assets.Mimetype.pp mime in
add ~field:"content-type" content_type
in
respond `OK
| Ok false -> (
match Headers.select_mimetype headers with
| None -> Respond.unsupported_media_type req
| Some mime ->
let lang =
Headers.select_language headers
|> Option.value ~default:Assets.Language.default
in
let compression = Headers.select_encoding headers in
let data = Assets.get_content ~mime ~lang asset 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_string etag in
add ~field:"etag" etag_field_value
in
let* () = add ~field:"accept" Headers.accept_header_value in
let* () =
add ~field:"avail-languages" Headers.avail_languages_header_value
in
let* () =
(* todo: is it "taler-privacy-version" for /policy ? *)
add ~field:"taler-terms-version" (Assets.legal_version asset)
in
let* () =
let content_type = Fmt.str "%a" Assets.Mimetype.pp mime in
add ~field:"content-type" content_type
in
respond `OK)
let terms req _server _env =
Logs.info (fun m -> m "GET /terms");