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
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) ->
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
(