5 let split_conf_line s =
6 sscanf s "%s %s" (fun s1 s2->(s1,s2))
9 let (vsysdir,slice) = fe in
10 let verdict = try Some(Unix.stat vsysdir) with
11 _ -> logprint "vsys directory not setup for slice %s\n" slice;None
17 let rec in_list elt lst =
20 if (elt = car) then true else in_list elt cdr
23 let read_frontends f =
24 let setup_ok = if (!Globals.failsafe) then check_dir else fun _ -> true in
25 let f_file = try open_in f with e -> logprint "Could not open config file\n";raise e
27 let rec read_conf_file cur_list =
28 let next_line = try Some(input_line f_file) with _ -> None in
31 let fe = split_conf_line inp_line in
32 let new_list = if (not (in_list fe cur_list) && (setup_ok(fe))) then (fe::cur_list) else cur_list
34 read_conf_file new_list