git://git.onelab.eu
/
vsys.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Dcookie entry, required by Chopstix.
[vsys.git]
/
frontend.ml
diff --git
a/frontend.ml
b/frontend.ml
index
1c46b2c
..
ad36172
100644
(file)
--- 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 ->
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
| _ -> ()
(** 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 _ ->
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) ->
method rmdir rp =
match rp with Relpath(rel) ->
@@
-72,7
+70,7
@@
object(this)
try
Unix.rmdir fqp
with _ ->
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
(
initializer
(