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

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeySupernode.ml
diff -u mldonkey/src/networks/donkey/donkeySupernode.ml:1.6 
mldonkey/src/networks/donkey/donkeySupernode.ml:1.7
--- mldonkey/src/networks/donkey/donkeySupernode.ml:1.6 Wed Aug  4 16:59:27 2004
+++ mldonkey/src/networks/donkey/donkeySupernode.ml     Mon Jun 20 18:38:49 2005
@@ -98,10 +98,8 @@
   match msg with
 
   | M.ViewFilesReplyReq t ->
-      lprintf "****************************************";
-      lprint_newline ();
-      lprintf "       BROWSE FILES REPLY         ";
-      lprint_newline ();
+      lprintf "****************************************\n";
+      lprintf "       BROWSE FILES REPLY         \n";
       let module Q = M.ViewFilesReply in
 
       begin
@@ -118,8 +116,8 @@
                  ()
           ) t;
         with e ->
-            lprintf "Exception in ViewFilesReply %s"
-              (Printexc2.to_string e); lprint_newline ();
+            lprintf "Exception in ViewFilesReply %s\n"
+              (Printexc2.to_string e);
       end;
       node.node_last_browse <- last_time ();
       close sock Closed_by_user
@@ -197,13 +195,11 @@
                   (DonkeyProtoCom.client_handler2 c read_first_message
                     (client_to_client []));
               
-              with e -> lprintf "Exception %s in init_connection"
-                    (Printexc2.to_string e);
-                  lprint_newline ());
+              with e -> lprintf "Exception %s in init_connection\n"
+                    (Printexc2.to_string e));
           with e ->
-              lprintf "Exception %s in client_connection_handler"
+              lprintf "Exception %s in client_connection_handler\n"
                 (Printexc2.to_string e);
-              lprint_newline ();
               Unix.close s
         end      
       else begin