Source file `utils.ml`

1
2
3
4
5
6
7
8
9
10
11
12
module Server = Cohttp_lwt_unix.Server
module Path = Cohttp.Path

let string_of_timestamp time =
  let { Unix.tm_year; tm_mon; tm_mday; tm_hour; tm_min; tm_sec; _ } = time in
  Fmt.str "%04d-%02d-%02d %02d:%02d:%02d" (tm_year + 1900) (tm_mon + 1) tm_mday tm_hour tm_min tm_sec

(* Add security headers to prevent clickjacking attacks *)
let add_security_headers headers =
  let headers = Cohttp.Header.add headers "X-Frame-Options" "DENY" in
  let headers = Cohttp.Header.add headers "Content-Security-Policy" "frame-ancestors 'none'" in
  headers