[Mldonkey-commits] Changes to mldonkey/src/utils/net/ip.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/ip.ml
diff -u mldonkey/src/utils/net/ip.ml:1.11 mldonkey/src/utils/net/ip.ml:1.12
--- mldonkey/src/utils/net/ip.ml:1.11   Sun Jul 10 23:19:16 2005
+++ mldonkey/src/utils/net/ip.ml        Fri Jul 22 10:58:55 2005
@@ -154,9 +154,8 @@
       with _ -> ip
     else ip
   with _ ->
-      lprintf "[NS]: Resolving [%s] ..." name;
+      lprintf_nl "[DNS]: Resolving [%s] ..." name;
       let ip = gethostbyname name in
-      lprintf_nl "[NS]: done";
       Hashtbl.add ip_cache name (ip, current_time +. 3600.);
       ip
 
@@ -283,7 +282,7 @@
                     Hashtbl.add ip_cache job.name (ip, current_time +. 3600.);
                     job.handler ip
                   end else begin
-                    lprintf "[NS]: lookup error: %s: address not found\n" 
job.name;
+                    lprintf "[DNS]: lookup error: %s: address not found\n" 
job.name;
                     raise Not_found
                   end
               end else raise Exit