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
initializer
+ (
try
let s = Unix.stat root_dir in
if (s.st_kind<>S_DIR) then
Unix.mkdir root_dir 0o700
end;
with Unix.Unix_error(_,_,_) ->
+ begin
try
Unix.mkdir root_dir 0o700;
with _ -> ();
+ end);
Directfifowatcher.add_dir_watch root_dir
end