wip debug
This commit is contained in:
parent
08699487f1
commit
f1936f150d
166 changed files with 17619 additions and 15 deletions
150
src/assets.ml
150
src/assets.ml
|
|
@ -1,150 +0,0 @@
|
|||
(* TODO clean up *)
|
||||
|
||||
(* docs: https://docs.taler.net/manpages/taler-exchange.conf.5.html
|
||||
https://docs.taler.net/design-documents/003-tos-rendering.html *)
|
||||
|
||||
(* hardcoded config just for static assets *)
|
||||
let default_lang = "en"
|
||||
let default_encoding : [< `Identity | `DEFLATE | `Gzip ] = `Identity
|
||||
|
||||
(* todo: Taler documentation markdown mimetype should be the prefered one, and be
|
||||
supported, according to DD we take text/plain as default instead for now *)
|
||||
let default_mimetype = ("text", "plain")
|
||||
let default_extension = ".txt"
|
||||
let terms_legal_version = "1"
|
||||
let privacy_legal_version = "1"
|
||||
|
||||
module Mimetype = struct
|
||||
let mimetype_extension_assoc =
|
||||
[
|
||||
(("text", "plain"), ".txt");
|
||||
(("text", "markdown"), ".md");
|
||||
(("text", "html"), ".html");
|
||||
(("text", "html"), ".htm");
|
||||
(("application", "pdf"), ".pdf");
|
||||
(("image", "jpeg"), ".jpg");
|
||||
(("image", "jpeg"), ".jpeg");
|
||||
(("image", "png"), ".png");
|
||||
(("image", "gif"), ".gif");
|
||||
]
|
||||
|
||||
let mimetype_l, _ = List.split mimetype_extension_assoc
|
||||
|
||||
let of_cohttp_media = function
|
||||
| Cohttp.Accept.MediaType (m, m_sub) ->
|
||||
List.find_opt (( = ) (m, m_sub)) mimetype_l
|
||||
| AnyMediaSubtype m ->
|
||||
List.find_opt (fun (m', _) -> String.equal m m') mimetype_l
|
||||
| AnyMedia -> Some default_mimetype
|
||||
|
||||
let to_extension (m, m_sub) =
|
||||
assert (m <> "*");
|
||||
assert (m_sub <> "*");
|
||||
List.assoc_opt (m, m_sub) mimetype_extension_assoc
|
||||
|
||||
let of_extension ext =
|
||||
List.find_map
|
||||
(fun (mime, ext') ->
|
||||
match String.equal ext ext' with false -> None | true -> Some mime)
|
||||
mimetype_extension_assoc
|
||||
|
||||
let pp_mime fmt mime = Fmt.pf fmt "%s/%s" (fst mime) (snd mime)
|
||||
end
|
||||
|
||||
(* TODO config *)
|
||||
type t =
|
||||
| Terms
|
||||
| Privacy
|
||||
|
||||
let etag k =
|
||||
Result.get_ok
|
||||
@@ Headers_lib.Etag.of_crockford32
|
||||
@@ match k with Terms -> "0" | Privacy -> "0"
|
||||
|
||||
let legal_version = function
|
||||
| Terms -> terms_legal_version
|
||||
| Privacy -> privacy_legal_version
|
||||
|
||||
let base_dir = function
|
||||
| Terms -> Fpath.v "terms"
|
||||
| Privacy -> Fpath.v "privacy"
|
||||
|
||||
(* does some checks on assets/ folder content and infer the set of supported languages and mimetype *)
|
||||
let supported_lang_arr, supported_ext_arr =
|
||||
let open Syntax in
|
||||
let path_l =
|
||||
Assets_crunch.file_list |> list_map Fpath.of_string |> function
|
||||
| Error (`Msg e) -> Fmt.failwith "%s" e
|
||||
| Ok x -> x
|
||||
in
|
||||
let aux t =
|
||||
let prefix = base_dir t in
|
||||
let path_l = path_l |> List.filter_map (Fpath.rem_prefix prefix) in
|
||||
let ext_l =
|
||||
path_l |> List.map Fpath.get_ext |> List.sort_uniq String.compare
|
||||
in
|
||||
let lang_l =
|
||||
path_l
|
||||
|> List.map (fun path ->
|
||||
match Fpath.segs path with
|
||||
| [] -> assert false
|
||||
| [ dir; _file ] -> dir
|
||||
| _l ->
|
||||
Fmt.failwith "invalid folder structure, file `%s` is misplaced"
|
||||
(Fpath.to_string path))
|
||||
|> List.sort_uniq String.compare
|
||||
in
|
||||
let () =
|
||||
if List.is_empty lang_l then Fmt.failwith "no language supported";
|
||||
if List.is_empty ext_l then Fmt.failwith "no mimetype supported";
|
||||
if not @@ List.mem default_lang lang_l then
|
||||
Fmt.failwith "default language `%s` files not found" default_lang;
|
||||
if not @@ List.mem ".txt" ext_l then
|
||||
Fmt.failwith "plain text file not found";
|
||||
if not @@ List.mem ".md" ext_l then Fmt.failwith "markdown file not found";
|
||||
List.iter
|
||||
(fun dir ->
|
||||
if String.length dir <> 2 then
|
||||
Fmt.failwith "language directory with invalid name: `%s`" dir)
|
||||
lang_l;
|
||||
if List.length path_l <> List.length ext_l * List.length lang_l then
|
||||
Fmt.failwith
|
||||
"invalid folder structure, all supported language must provide the \
|
||||
same set of file mimetype"
|
||||
in
|
||||
(lang_l, ext_l)
|
||||
in
|
||||
let lang_l, ext_l = aux Terms in
|
||||
let lang_l', ext_l' = aux Privacy in
|
||||
let () =
|
||||
if
|
||||
not
|
||||
@@ (List.equal String.equal lang_l lang_l'
|
||||
&& List.equal String.equal ext_l ext_l')
|
||||
then
|
||||
Fmt.failwith
|
||||
"invalid folder structure, /terms and /privacy must support the same \
|
||||
set of languages and mimetypes";
|
||||
()
|
||||
in
|
||||
(Array.of_list lang_l, Array.of_list ext_l)
|
||||
|
||||
let supported_mimetype_arr =
|
||||
Array.map Mimetype.of_extension supported_ext_arr |> Array.map Option.get
|
||||
|
||||
let is_supported_lang lang = Array.mem lang supported_lang_arr
|
||||
let is_supported_ext ext = Array.mem ext supported_ext_arr
|
||||
let is_supported_mimetype mime = Array.mem mime supported_mimetype_arr
|
||||
|
||||
(* ! lang and mime must be supported *)
|
||||
let get_content ~lang ~mime t =
|
||||
let etag = Headers_lib.Etag.to_raw_string (etag t) in
|
||||
let ext =
|
||||
match Mimetype.to_extension mime with
|
||||
| None -> Fmt.failwith "mimetype `%s/%s` unknown" (fst mime) (snd mime)
|
||||
| Some ext -> ext
|
||||
in
|
||||
let path = Fpath.to_string Fpath.((base_dir t / lang / etag) + ext) in
|
||||
match Assets_crunch.read path with
|
||||
| None -> Fmt.failwith "static file not found: `%s`" path
|
||||
| Some data -> data
|
||||
Loading…
Add table
Add a link
Reference in a new issue