[Mldonkey-commits] Changes to mldonkey/src/networks/fileTP/fileTPClients.ml

[mldonkey-commits]

Index: mldonkey/src/networks/fileTP/fileTPClients.ml
diff -u mldonkey/src/networks/fileTP/fileTPClients.ml:1.12 
mldonkey/src/networks/fileTP/fileTPClients.ml:1.13
--- mldonkey/src/networks/fileTP/fileTPClients.ml:1.12  Fri Dec  2 12:08:26 2005
+++ mldonkey/src/networks/fileTP/fileTPClients.ml       Sun Dec  4 15:22:43 2005
@@ -177,7 +177,7 @@
                           let b = Int64Swarmer.find_block up in
 
 (*                          lprintf "GOT BLOCK:\n"; *)
-                          Int64Swarmer.print_uploaders swarmer;
+                          if !verbose_swarming then 
Int64Swarmer.print_uploaders swarmer;
 
                           if !verbose_swarming then begin
                               lprintf "Block Found: "; 
Int64Swarmer.print_block b;
@@ -193,7 +193,7 @@
                             let (x,y,r) = Int64Swarmer.find_range up in
 
 (*                            lprintf "GOT RANGE:\n"; *)
-                            Int64Swarmer.print_uploaders swarmer;
+                            if !verbose_swarming then 
Int64Swarmer.print_uploaders swarmer;
 
                             d.download_ranges <- d.download_ranges @ [x,y,r];
 (*                        Int64Swarmer.alloc_range r; *)