Source

OCaml-WebFramework / cgi-bin / date.ml

(*
** date.ml for OCaml-WebFramework
** 
** Made by Pierre Surply
** <pierre.surply@gmail.com>
** 
** Started on  Sat Sep 15 21:11:47 2012 Pierre Surply
Last update Thu Oct 11 15:24:01 2012 pierre surply
*)

let get_date () =
  let time = Unix.localtime (Unix.time ()) in
  string_of_int (time.Unix.tm_hour) ^ ":" ^
    string_of_int (time.Unix.tm_min) ^ ":" ^
    string_of_int (time.Unix.tm_sec)