X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=globals.ml;fp=globals.ml;h=1506e01d7710779965ef2d393c200c33401619fa;hb=ae0378a578b7c73091fdc46769ba7a5971ef0939;hp=4c040571b9994f71ad8fab010079a85e2355598c;hpb=542f2c4d52a5a1113ba9017cb0ee70304393fac4;p=vsys.git

diff --git a/globals.ml b/globals.ml
index 4c04057..1506e01 100644
--- a/globals.ml
+++ b/globals.ml
@@ -9,6 +9,9 @@ let log_filepath = ref "/var/log/vsys"
 let failsafe = ref false
 
 let logfd = open_out_gen [Open_append;Open_creat] 0o644 !log_filepath
+let logprint fmt = Printf.fprintf logfd (fmt ^^ "%!")
+let print fmt = Printf.printf (fmt ^^ "%!")
+
 type result = Success | Failed
 type fname_and_fd = string option * Unix.file_descr