/[mldonkey]/mldonkey/src/networks/donkey/donkeyClient.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyClient.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50 by spiralvoice, Tue Jul 12 23:08:57 2005 UTC revision 1.51 by spiralvoice, Sun Jul 17 16:12:59 2005 UTC
# Line 237  let disconnect_client c reason = Line 237  let disconnect_client c reason =
237        (try        (try
238            c.client_comp <- None;            c.client_comp <- None;
239            if c.client_debug then begin            if c.client_debug then begin
240                CommonGlobals.print_localtime ();
241              lprintf "Client[%d]: disconnected" (client_num c);              lprintf "Client[%d]: disconnected" (client_num c);
            CommonGlobals.print_localtime ();  
242            end;            end;
243            (try if c.client_checked then count_seen c with _ -> ());            (try if c.client_checked then count_seen c with _ -> ());
244            (try if !!log_clients_on_console && c.client_name <> "" then            (try if !!log_clients_on_console && c.client_name <> "" then
# Line 936  let client_to_client for_files c t sock Line 936  let client_to_client for_files c t sock
936    let module M = DonkeyProtoClient in    let module M = DonkeyProtoClient in
937        
938    if !verbose_msg_clients || c.client_debug then begin    if !verbose_msg_clients || c.client_debug then begin
       lprintf "Message from %s" (string_of_client c);  
939        CommonGlobals.print_localtime ();        CommonGlobals.print_localtime ();
940          lprintf "Message from %s" (string_of_client c);
941        M.print t;        M.print t;
942        lprintf_nl ""        lprintf_nl ""
943      end;      end;
# Line 1862  let read_first_message overnet m sock = Line 1862  let read_first_message overnet m sock =
1862    let module M = DonkeyProtoClient in    let module M = DonkeyProtoClient in
1863            
1864    if !verbose_msg_clients then begin    if !verbose_msg_clients then begin
       lprintf "Message from incoming client";  
1865        CommonGlobals.print_localtime ();        CommonGlobals.print_localtime ();
1866          lprintf "Message from incoming client";
1867        M.print m;        M.print m;
1868        lprintf_nl ""        lprintf_nl ""
1869      end;      end;
# Line 2142  let query_locations_reply s t = Line 2142  let query_locations_reply s t =
2142      let nlocs = List.length t.Q.locs in      let nlocs = List.length t.Q.locs in
2143            
2144      if !verbose_location then      if !verbose_location then
2145          lprintf "Received %d sources from donkey Server for %s\n" nlocs (file_best_name file);          lprintf "EDK: Received %d sources from server %s:%s for %s\n"
2146               nlocs (Ip.to_string s.server_ip) (string_of_int s.server_port) (file_best_name file);
2147            
2148      s.server_score <- s.server_score + 3;      s.server_score <- s.server_score + 3;
2149    

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26