X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=dirwatcher.ml;fp=dirwatcher.ml;h=a50416fb72097235219dc513e54b5c7279ce137b;hb=7ae75ecaa4e7772450202515acf892685ee6179e;hp=810b2bc64f7464d7ee25746ea741c51359fdb537;hpb=39cd5ff0d06a1162c399ec09e12719813d6d64e4;p=vsys.git

diff --git a/dirwatcher.ml b/dirwatcher.ml
index 810b2bc..a50416f 100644
--- a/dirwatcher.ml
+++ b/dirwatcher.ml
@@ -71,17 +71,23 @@ let receive_event (eventdescriptor:fname_and_fd) (bla:fname_and_fd) =
                                      | None->logprint "Unhandled watch descriptor\n"
                                      | Some(handler)->
                                          let fqp = String.concat "/" [dirname;purestr] in
+                                           logprint "Received event from %s\n" fqp;
                                          let mask_filter = Hashtbl.mem masks fqp in
                                            begin
                                            if ((not mask_filter)) then
                                              begin
-                                                (*logprint "Received event for - %s\n"
+                                               (*
+                                                logprint "Received event for - %s\n"
                                                         fqp;*)
                                                 handler wd dirname evlist
                                                  purestr
                                              end
                                            else
-                                             unmask_watch fqp
+                                             begin
+                                                (*logprint "Unmasking %s\n"
+                                                 * fqp;*)
+                                                unmask_watch fqp
+                                             end
                                            end
                        end
                    | _ -> ())