[Mldonkey-commits] Changes to mldonkey/src/networks/bittorrent/bTChooser.ml

[mldonkey-commits]

Index: mldonkey/src/networks/bittorrent/bTChooser.ml
diff -u mldonkey/src/networks/bittorrent/bTChooser.ml:1.6 
mldonkey/src/networks/bittorrent/bTChooser.ml:1.7
--- mldonkey/src/networks/bittorrent/bTChooser.ml:1.6   Mon Nov  1 11:23:00 2004
+++ mldonkey/src/networks/bittorrent/bTChooser.ml       Thu Jul  7 00:25:45 2005
@@ -58,7 +58,7 @@
             possible_uploaders := (c::!possible_uploaders);
           end )  f.file_clients;
       if !verbose_upload then
-          lprintf "clients num %d as possible uploaders for file %s\n" 
(List.length !possible_uploaders) f.file_name;
+          lprintf_nl "[BT]: clients num %d as possible uploaders for file 
%s\n" (List.length !possible_uploaders) f.file_name;
       (*Interested clients with a connection*)
       let filtl = List.filter (fun c -> c.client_interested == true 
             && (c.client_sock != NoConnection) 
@@ -82,12 +82,12 @@
       full_list := !full_list @ to_add;
       if !verbose_upload then
         begin
-          lprintf "  potential uploaders count: %d list:" (List.length to_add);
+          lprintf "[BT]: potential uploaders count: %d list: [" (List.length 
to_add);
           List.iter (fun cr ->
               let (ip,port) = cr.client_host in
                   lprintf " %s:%d" (Ip.to_string ip) port;
              ) to_add;
-          lprintf "\n";
+          lprintf_nl " ]";
         end;
   
   ) files;
@@ -131,24 +131,24 @@
   begin
     if !verbose_upload then
         begin
-          lprintf "next_uploaders: %d List:" (List.length next_uploaders);
+          lprintf "[BT]: next_uploaders: %d list: [" (List.length 
next_uploaders);
           List.iter (fun cr ->
               let (ip,port) = cr.client_host in
                   lprintf " %s:%d" (Ip.to_string ip) port;
              ) next_uploaders;
-          lprintf "\n";
+          lprintf_nl " ]";
         end;
     if (List.length next_uploaders) > !!max_bt_uploaders then
         let keep,rest = List2.cut !!max_bt_uploaders next_uploaders in
         begin
           if !verbose_upload then
              begin
-               lprintf "cut next_uploaders: %d List:" (List.length keep);
+               lprintf "[BT]: cut next_uploaders: %d list: [" (List.length 
keep);
                List.iter (fun cr ->
                     let (ip,port) = cr.client_host in
                         lprintf " %s:%d" (Ip.to_string ip) port;
                    ) keep;
-               lprintf "\n";
+               lprintf_nl " ]";
              end;
           keep
         end