[Mldonkey-commits] mldonkey distrib/ChangeLog tools/bt_dht_node.ml

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       11/07/24 17:00:58

Modified files:
        distrib        : ChangeLog 
        tools          : bt_dht_node.ml 

Log message:
        patch #7499

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1532&r2=1.1533
http://cvs.savannah.gnu.org/viewcvs/mldonkey/tools/bt_dht_node.ml?cvsroot=mldonkey&r1=1.1&r2=1.2

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1532
retrieving revision 1.1533
diff -u -b -r1.1532 -r1.1533
--- distrib/ChangeLog   16 Jul 2011 08:59:27 -0000      1.1532
+++ distrib/ChangeLog   24 Jul 2011 17:00:57 -0000      1.1533
@@ -14,6 +14,9 @@
 ChangeLog
 =========
 
+2011/07/24
+7499: BT/DHT: fix logging in tools/bt_dht_node.ml
+
 2011/07/16
 7573: http: better error reporting (ygrek)
 7529: configure: better help strings (ygrek)

Index: tools/bt_dht_node.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/tools/bt_dht_node.ml,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- tools/bt_dht_node.ml        23 Jan 2011 15:20:37 -0000      1.1
+++ tools/bt_dht_node.ml        24 Jul 2011 17:00:58 -0000      1.2
@@ -18,7 +18,7 @@
     with_open_out_bin temp (fun ch -> Marshal.to_channel ch t []; Unix2.fsync 
(Unix.descr_of_out_channel ch));
     Sys.rename temp file
   with exn ->
-    log #warn ~exn "write to %S failed" file; Sys.remove temp
+    lprintf_nl ~exn "write to %S failed" file; Sys.remove temp
 
 let init file = try load file with _ -> Kademlia.create ()
 
@@ -36,7 +36,7 @@
   fun dht ->
   let id = Kademlia.H.of_hexa ids.(Random.int (Array.length ids)) in
   query_peers dht id (fun node token peers ->
-    log #info "run_queries : %s returned %d peers : %s"
+    lprintf_nl "run_queries : %s returned %d peers : %s"
       (show_node node) (List.length peers) (strl Kademlia.show_addr peers))
 
 let () =
@@ -58,5 +58,5 @@
       BasicSocket.loop ()
     | _ -> Printf.eprintf "Usage : %s <storage> <port>\n" Sys.argv.(0)
   with
-    exn -> log #error "main : %s" (Printexc.to_string exn)
+    exn -> lprintf_nl "main : %s" (Printexc.to_string exn)