Httpd.resp_plain and friends
This commit is contained in:
parent
e968d78fc4
commit
ef5c9c061a
8
httpd.ml
8
httpd.ml
|
@ -94,6 +94,14 @@ let resp_html code reason extra_headers title content =
|
||||||
let resp_html_ok extra_headers title content =
|
let resp_html_ok extra_headers title content =
|
||||||
resp_html 200 "OK" extra_headers title content
|
resp_html 200 "OK" extra_headers title content
|
||||||
|
|
||||||
|
let resp_plain code reason extra_headers text =
|
||||||
|
resp_generic code reason
|
||||||
|
(text_content_type_header :: extra_headers)
|
||||||
|
(Fixed text)
|
||||||
|
|
||||||
|
let resp_plain_ok extra_headers text =
|
||||||
|
resp_plain 200 "OK" extra_headers text
|
||||||
|
|
||||||
let resp_redirect_permanent new_path =
|
let resp_redirect_permanent new_path =
|
||||||
resp_html_doc 301 "Moved permanently" ["Location", new_path]
|
resp_html_doc 301 "Moved permanently" ["Location", new_path]
|
||||||
(html_error_doc 301 "Moved permanently"
|
(html_error_doc 301 "Moved permanently"
|
||||||
|
|
Loading…
Reference in New Issue