- end
- else (* regex not matched *)
- ()
-
- initializer
- let rec build_initial_tree dir =
- let dir_handle = opendir dir in
- let cont = ref true in
- while (!cont) do
- try
- let curfile = readdir dir_handle in
- let fqp = String.concat "/" [dir;curfile] in
- if (Str.string_match !file_regexp curfile 0) then
- let s = Unix.stat fqp in
- begin
- match s.st_kind with
- | S_DIR ->
- this#new_dir fqp this#handle_dir_event;
- build_initial_tree fqp;
- | S_REG ->
- this#new_script fqp
- | _ ->
- printf "Don't know what to do with %s\n" curfile;flush Pervasives.stdout
- end
- with
- _->cont:=false;()
- done
- in
- begin
- build_initial_tree dir_root;
- Dirwatcher.add_watch dir_root [S_Create;S_Delete] (Some(this#handle_dir_event));
- end
-end
+ with _ ->
+ fprintf logfd "Could not create %s. Looks like a slice shot itself in the foot\n" fqp;flush logfd;
+ )
+ slice_list
+
+ (** Somebody copied in a new script *)
+ (* XXX Race condition here *)
+ method private new_script slice_list fqp =
+ let s = Unix.stat fqp in
+ List.iter (fun frontend->
+ frontend#mkentry (mk_rel_path fqp) fqp (s.st_perm)) slice_list
+
+ method private make_filter acl_fqp =
+ let filter = Hashtbl.create 16 in
+ try
+ let acl_file = open_in acl_fqp in
+ let rec read_acl cur_filter =
+ let next_item =
+ try Some(input_line acl_file)
+ with _ -> None
+ in
+ match next_item with
+ | None -> close_in acl_file;cur_filter
+ | Some(item) ->
+ Hashtbl.add cur_filter item true;
+ read_acl cur_filter
+ in
+ Some(read_acl filter)
+ with _ ->
+ None
+
+ method is_acl fname = Str.string_match acl_file_regexp fname 0
+
+ (** Gets called every time there's an inotify event at the backend
+ @param dirname Name of the backend directory
+ @param evlist Description of what happened
+ @param fname Name of the file that the event applies to
+ *)
+ method handle_dir_event _ dirname evlist fname =
+ let fqp = String.concat "/" [dirname;fname] in
+ if ((Str.string_match file_regexp fname 0) && not (Str.string_match acl_file_regexp fname 0)) then
+ begin
+ (* Filter frontend list based on acl *)
+ let acl_fqp = String.concat "." [fqp;"acl"] in
+ let acl_filter = this#make_filter acl_fqp in
+ let slice_list =
+ match acl_filter with
+ | None -> [] (* No ACL *)
+ | Some(filter) -> List.filter (fun fe->Hashtbl.mem filter (fe#get_slice_name ())) frontend_lst
+ in
+ let is_event = list_check evlist in
+ if (is_event Create) then
+ begin
+ if (is_event Isdir) then
+ begin
+ this#new_dir slice_list fqp this#handle_dir_event
+ end
+ else
+ (* It's a new script *)
+ begin
+ (*
+ if (Str.string_match dir_regexp fname 0) then
+ let fqp = String.concat "/" [dirname;String.sub fname 4 ((String.length fname)-4+1)] in
+ let real_fqp = String.concat "/" [dirname;fname] in
+ this#new_dir fqp this#handle_spool_event;
+ Hashtbl.add spools fqp real_fqp
+ else*)
+ this#new_script slice_list fqp
+ end
+ end
+ else if (is_event Delete) then
+ begin
+ if (is_event Isdir) then
+ begin
+ (*this#rm_watch fqp;*)
+ List.iter (fun frontend->
+ frontend#rmdir (mk_rel_path fqp)) slice_list
+ end
+ else List.iter (fun frontend ->
+ frontend#unlink (mk_rel_path fqp)) slice_list
+ end
+ end
+ else (* regex not matched *)
+ ()
+
+ (** Initializer - build the initial tree based on the contents of /vsys *)
+ initializer
+ let rec build_initial_tree dir =
+ let dir_handle = opendir dir in
+ let cont = ref true in
+ while (!cont) do
+ try
+ let curfile = readdir dir_handle in
+ if (not (this#is_acl curfile)) then
+ begin
+ let fqp = String.concat "/" [dir;curfile] in
+ let acl_fqp = String.concat "." [fqp;"acl"] in
+ let acl_filter = this#make_filter acl_fqp in
+ let slice_list =
+ match acl_filter with
+ | None -> [] (*frontend_lst -> No ACL => No Show *)
+ | Some(filter) -> List.filter (fun fe->Hashtbl.mem filter (fe#get_slice_name ())) frontend_lst
+ in
+ if (Str.string_match file_regexp curfile 0) then
+ let s = Unix.stat fqp in
+ begin
+ match s.st_kind with
+ | S_DIR ->
+ this#new_dir slice_list fqp this#handle_dir_event;
+ build_initial_tree fqp;
+ | S_REG ->
+ this#new_script slice_list fqp
+ | _ ->
+ fprintf logfd "Don't know what to do with %s\n" curfile;flush logfd
+ end
+ end
+ with _
+ ->cont:=false;()
+ done
+ in
+ begin
+ build_initial_tree dir_root;
+ Dirwatcher.add_watch dir_root [S_Create;S_Delete] (this#handle_dir_event);
+ end
+ end