X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=fifowatcher.ml;h=c26295f50fe2ae83d45c3976a4e6a9cd3ca8366a;hb=bf5113ed1eb16ce6e3be794d3e14da0b9d2222de;hp=6e2a12aaf5b4504bb04ae64383c38d40642c1322;hpb=60f2512c4e00781655fae17a005ebe9452951abe;p=vsys.git

diff --git a/fifowatcher.ml b/fifowatcher.ml
index 6e2a12a..c26295f 100644
--- a/fifowatcher.ml
+++ b/fifowatcher.ml
@@ -70,7 +70,6 @@ and reopenentry_int fdin fifoin fifoout =
   @param outdescriptor Name of output pipe, out descriptor
   *)
 and receive_fifo_event eventdescriptor outdescriptor =
-  printf "received fifo event\n";flush Pervasives.stdout;
   let (evfname,evfd) = eventdescriptor in
   let (fname_other,fd_other) = outdescriptor in
   (* Open the output pipe, or use stdout instead *)
@@ -87,7 +86,6 @@ and receive_fifo_event eventdescriptor outdescriptor =
    If not, register it and start a new session.*)
   let pipe = try Hashtbl.find open_fds evfd with
     | Not_found ->
-        printf "fd not found!\n";flush Pervasives.stdout;
         (* Ok, need to launch script *)
         let execpath,slice_name = Hashtbl.find fdmap evfd in
         let (script_infd,pout) = Unix.pipe () in