[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyServers.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyServers.ml
diff -u mldonkey/src/networks/donkey/donkeyServers.ml:1.43 
mldonkey/src/networks/donkey/donkeyServers.ml:1.44
--- mldonkey/src/networks/donkey/donkeyServers.ml:1.43  Sun Sep 18 19:00:52 2005
+++ mldonkey/src/networks/donkey/donkeyServers.ml       Wed Sep 21 18:11:54 2005
@@ -127,8 +127,8 @@
               List.iter (
                 fun file ->
                   if !verbose_location then
-                    lprintf_nl () "TCP: Query Location of %s [%s] [%Ld]"
-                      (file_best_name file) (Md4.to_string file.file_md4) 
(file_size file);
+                    lprintf_nl () "TCP: Query Location of %s [%s] [%Ld] [%s]"
+                      (file_best_name file) (Md4.to_string file.file_md4) 
(file_size file) (Ip.to_string (peer_ip sock));
                   let module M = DonkeyProtoServer in
                   let module E = M.QueryLocation in
                   server_send sock ( M.QueryLocationReq {