Startup log

[vsys.git] / main.ml

diff --git a/main.ml b/main.ml
index 58e13b6..ac7a8ce 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -25,6 +25,7 @@ let cont = ref true
 
 let _ =
   printf "Vsys v%s\n" Globals.vsys_version;flush stdout;
+  fprintf logfd "Starting Vsys v%s\n" Globals.vsys_version;flush logfd;
   Arg.parse cmdspeclist (fun x->()) "Usage: vsys <list of mount points>";  
   if (!Globals.backend == "") then
       printf "Try vsys --help\n"