X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=frontend.ml;h=ad36172c0087d9116c5087a2de2972ef4230e60d;hb=212fd80329013ca85fb88470eeb1144816b68244;hp=1c46b2cdb751e6501f8caf6faba5c9a714db896a;hpb=acbdd1601fcfb161089d326e7e32b74b76f441e3;p=vsys.git

diff --git a/frontend.ml b/frontend.ml
index 1c46b2c..ad36172 100644
--- a/frontend.ml
+++ b/frontend.ml
@@ -24,9 +24,7 @@ object(this)
         let res = Directfifowatcher.mkentry fqp abspath realperm slice_name in
           match res with 
             | Success ->
-                (* We don't want to get triggered when the .in descriptor is
-                 * opened *)
-                Directfifowatcher.openentry rp root_dir fqp (abspath,slice_name);
+                Directfifowatcher.openentry root_dir fqp (abspath,slice_name)
             | _ -> ()
 
   (** A new directory was created at the backend, make a corresponding directory
@@ -63,7 +61,7 @@ object(this)
           Unix.unlink fqp_in;
           Unix.unlink fqp_out
         with _ ->
-          fprintf logfd "Hm. %s disappeared. Looks like slice %s shot itself in the foot\n" fqp (this#get_slice_name ());flush logfd
+          logprint "Hm. %s disappeared. Looks like slice %s shot itself in the foot\n" fqp (this#get_slice_name ())
 
   method rmdir rp =
     match rp with Relpath(rel) ->
@@ -72,7 +70,7 @@ object(this)
         try
           Unix.rmdir fqp
         with _ ->
-          fprintf logfd "Hm. %s disappeared or not empty. Looks like slice %s shot itself in the foot\n" fqp (this#get_slice_name ());flush logfd
+          logprint "Hm. %s disappeared or not empty. Looks like slice %s shot itself in the foot\n" fqp (this#get_slice_name ())
 
   initializer 
     (