Audited code. Vsys should now be robust to system exceptions.

[vsys.git] / main.ml

diff --git a/main.ml b/main.ml
index 2bf4c8c..91df33a 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -1,3 +1,4 @@
+(** main () *)
 open Globals
 open Printf
 open Inotify
@@ -18,7 +19,7 @@ let cmdspeclist =
 let cont = ref true
 
 let _ =
-  printf "Vsys v0.3\n";flush stdout;
+  printf "Vsys v%s\n" Globals.vsys_version;flush stdout;
   Arg.parse cmdspeclist (fun x->()) "Usage: vsys <list of mount points>";  
   if (!Globals.backend == "" || !input_file_list == []) then
       printf "Try vsys --help\n"