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

[mldonkey-commits]

Index: mldonkey/src/utils/net/ip_set.ml
diff -u mldonkey/src/utils/net/ip_set.ml:1.8 
mldonkey/src/utils/net/ip_set.ml:1.9
--- mldonkey/src/utils/net/ip_set.ml:1.8        Thu Jul  7 00:25:46 2005
+++ mldonkey/src/utils/net/ip_set.ml    Fri Jul 22 10:58:55 2005
@@ -1,6 +1,10 @@
 
 open Printf2
 
+let lprintf_nl () =
+  lprintf "%s[IPblock]: "
+  (log_time ()); lprintf_nl2
+
 (* range name, ip min, ip max (inclusive) *)
 type blocking_range = {
   blocking_description: string;
@@ -104,12 +108,12 @@
            end else 
              raise Not_found
        with _ ->
-         lprintf "Syntax error while loading IP blocklist in line %s\n" line
+         lprintf_nl () "Syntax error while loading IP blocklist in line %s" 
line
     done;
     bl_empty (* not reached *)
   with End_of_file ->
     close_in cin;
-    lprintf "IP blacklist: %d ranges loaded\n" !nranges;
+    lprintf_nl () "%d ranges loaded" !nranges;
     !bl
 
 let load filename =