geminid

A Sandboxed Gemini server
git clone git@git.mpah.dev/geminid.git
Log | Files | Refs | README

log.ml (280B)

      1 let datetime =
      2   let date = Unix.localtime (Unix.time ()) in
      3   Printf.sprintf
      4     "%d/%d/%d %d:%d" (* YYYY/MM/DD H:M *)
      5     (date.tm_year + 1900) (date.tm_mon + 1)
      6     date.tm_mday date.tm_hour date.tm_min
      7 
      8 let log_msg msg =
      9   Printf.printf "%s %s\n" datetime msg;
     10   flush stdout