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 |
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; |
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; |
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 |
|
|