package FPauth-responses

  1. Overview
  2. Docs

Source file html_pages.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#1 "src/responses/html_pages.eml.ml"
let login_successful_tmpl ?(app_name="FPauth") auth =
let ___eml_buffer = Buffer.create 4096 in
(Buffer.add_string ___eml_buffer "<!DOCTYPE html>\n<html>\n  <head>\n    <meta charset=\"utf-8\">\n    <title>");
(Printf.bprintf ___eml_buffer "%s" (Dream.html_escape (
#6 "src/responses/html_pages.eml.ml"
                 app_name^" login successful"
)));
(Buffer.add_string ___eml_buffer "</title>\n  </head>\n  <body>\n    <div id=\"auth\">Authentication status: ");
(Printf.bprintf ___eml_buffer "%s" (Dream.html_escape (
#9 "src/responses/html_pages.eml.ml"
                                                Bool.to_string auth
)));
(Buffer.add_string ___eml_buffer "</div>\n  </body>\n</html>\n\n");
(Buffer.contents ___eml_buffer)
#13 "src/responses/html_pages.eml.ml"
let login_error_tmpl ?(app_name="FPauth") err =
let ___eml_buffer = Buffer.create 4096 in
(Buffer.add_string ___eml_buffer "<!DOCTYPE html>\n<html>\n  <head>\n    <meta charset=\"utf-8\">\n    <title>");
(Printf.bprintf ___eml_buffer "%s" (Dream.html_escape (
#18 "src/responses/html_pages.eml.ml"
                 app_name^" login error"
)));
(Buffer.add_string ___eml_buffer "</title>\n  </head>\n  <body>\n    <div id=\"error\">Authentication error: ");
(Printf.bprintf ___eml_buffer "%s" (Dream.html_escape (
#21 "src/responses/html_pages.eml.ml"
                                                err
)));
(Buffer.add_string ___eml_buffer "</div>\n  </body>\n</html>\n\n");
(Buffer.contents ___eml_buffer)
#25 "src/responses/html_pages.eml.ml"
let logout_tmpl ?(app_name="FPauth") auth =
let ___eml_buffer = Buffer.create 4096 in
(Buffer.add_string ___eml_buffer "<!DOCTYPE html>\n<html>\n  <head>\n    <meta charset=\"utf-8\">\n    <title>");
(Printf.bprintf ___eml_buffer "%s" (Dream.html_escape (
#30 "src/responses/html_pages.eml.ml"
                 app_name^" logout"
)));
(Buffer.add_string ___eml_buffer "</title>\n  </head>\n  <body>\n    <div id=\"auth\">Authentication status: ");
(Printf.bprintf ___eml_buffer "%s" (Dream.html_escape (
#33 "src/responses/html_pages.eml.ml"
                                                Bool.to_string auth
)));
(Buffer.add_string ___eml_buffer "</div>\n  </body>\n</html>");
(Buffer.contents ___eml_buffer)