software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remap paths containing slashes

Browse Source
This commit is contained in:
Stavros Polymenis 2016-09-06 22:55:34 +01:00
parent 7218db542b
commit cf0749e90c
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/web.ml
View File

@ -9,13 +9,18 @@ let load_file f =
(s)
let print_css =
get "/style.css" begin fun req -> `String (load_file "ymd/style.css") |> respond' end
get "/style.css"
begin
fun req -> `String (load_file "ymd/style.css") |> respond'
end
let print_ymd =
get "/:title" begin fun req ->
let file = "ymd/" ^ (param req "title") ^ ".ymd" in
`Html (Html.html_of (Logarion.ymd (load_file file))) |> respond'
end
get "/:title"
begin fun req ->
let filename = String.map (fun c -> if '/' = c then '_' else c) (param req "title") in
let filepath = "ymd/" ^ filename ^ ".ymd" in
`Html (Html.html_of (Logarion.ymd (load_file filepath))) |> respond'
end
let _ =
App.empty