+let check_dir fe =
+ let (vsysdir,slice) = fe in
+ let verdict = try Some(Unix.stat vsysdir) with
+ _ -> fprintf logfd "vsys directory not setup for slice %s\n" slice;flush logfd;None
+ in
+ match verdict with
+ | None->false
+ | Some(_) -> true
+
+let rec in_list elt lst =
+ match lst with
+ | car::cdr ->
+ if (elt = car) then true else in_list elt cdr
+ | [] -> false
+