let log_aux file console_print s =
let date =
let t = Unix.localtime (Unix.time ()) in
Printf.sprintf
"%02d-%02d-%04d %02d:%02d:%02d"
t.Unix.tm_mday
(t.Unix.tm_mon + 1)
(1900 + t.Unix.tm_year)
t.Unix.tm_hour
t.Unix.tm_min
t.Unix.tm_sec
in
let s = date^" - "^s^"\n" in
if console_print then prerr_endline ("["^(fst file)^"] "^s);
ignore (Unix.write !(snd file) s 0 (String.length s))