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:51:59 +01:00
parent e60de419e0
commit 845900960b
2 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/assets.ml
View file

@ -17,16 +17,11 @@ module Assets_config = struct
(* TODO this should be in the config like terms_etag *) (* TODO this should be in the config like terms_etag *)
let terms_legal_version = "0" let terms_legal_version = "0"
let privacy_legal_version = "0"
end end
let etag k = let etag k =
match k with Terms -> Config.terms_etag | Privacy -> Config.privacy_etag match k with Terms -> Config.terms_etag | Privacy -> Config.privacy_etag
let legal_version = function
| Terms -> Assets_config.terms_legal_version
| Privacy -> Assets_config.privacy_legal_version
let supported_lang_arr, supported_ext_arr = let supported_lang_arr, supported_ext_arr =
let aux t = let aux t =
let prefix = Fpath.v (Assets_config.base_dir t) in let prefix = Fpath.v (Assets_config.base_dir t) in

5
src/static.ml
View file

@ -27,8 +27,8 @@ let aux asset req _server _env =
add ~field:"etag" etag_field_value add ~field:"etag" etag_field_value
in in
let* () = let* () =
(* todo: is it "taler-privacy-version" for /policy ? *) add ~field:"taler-terms-version"
add ~field:"taler-terms-version" (Assets.legal_version asset) Assets.Assets_config.terms_legal_version
in in
let* () = let* () =
add ~field:"avail-languages" Headers.avail_languages_header_value add ~field:"avail-languages" Headers.avail_languages_header_value
@ -37,6 +37,7 @@ let aux asset req _server _env =
let content_type = Fmt.str "%a" Assets.Mimetype.pp mime in let content_type = Fmt.str "%a" Assets.Mimetype.pp mime in
add ~field:"content-type" content_type add ~field:"content-type" content_type
in in
let* () = add ~field:"content-language" lang in
respond `OK respond `OK
let terms req _server _env = let terms req _server _env =