17 lines
503 B
OCaml
17 lines
503 B
OCaml
|
open Tyxml.Html
|
||
|
|
open Tyx_util
|
||
|
|
|
||
|
|
let f request =
|
||
|
|
(* todo page titles? *)
|
||
|
|
let page_title = "Pellest|Login" in
|
||
|
|
let login =
|
||
|
|
let submit = button ~a:[ a_id "submit_login" ] [ txt "submit" ] in
|
||
|
|
let login = make_input_text "login" in
|
||
|
|
let password = make_input_text "password" in
|
||
|
|
div
|
||
|
|
[ make_form request ~action:"/login" ~items:[ login; password; submit ] ]
|
||
|
|
in
|
||
|
|
let text = div [ txt "login ~!" ] in
|
||
|
|
let page = div [ text; login ] in
|
||
|
|
Template.render ~page_title ~scripts:[] page
|