/[mldonkey]/mldonkey/src/networks/donkey/donkeySupernode.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeySupernode.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by mldonkey, Wed Aug 4 16:59:27 2004 UTC revision 1.7 by spiralvoice, Mon Jun 20 18:38:49 2005 UTC
# Line 98  let supernode_browse_handler node msg so Line 98  let supernode_browse_handler node msg so
98    match msg with    match msg with
99    
100    | M.ViewFilesReplyReq t ->    | M.ViewFilesReplyReq t ->
101        lprintf "****************************************";        lprintf "****************************************\n";
102        lprint_newline ();        lprintf "       BROWSE FILES REPLY         \n";
       lprintf "       BROWSE FILES REPLY         ";  
       lprint_newline ();  
103        let module Q = M.ViewFilesReply in        let module Q = M.ViewFilesReply in
104    
105        begin        begin
# Line 118  let supernode_browse_handler node msg so Line 116  let supernode_browse_handler node msg so
116                    ()                    ()
117            ) t;            ) t;
118          with e ->          with e ->
119              lprintf "Exception in ViewFilesReply %s"              lprintf "Exception in ViewFilesReply %s\n"
120                (Printexc2.to_string e); lprint_newline ();                (Printexc2.to_string e);
121        end;        end;
122        node.node_last_browse <- last_time ();        node.node_last_browse <- last_time ();
123        close sock Closed_by_user        close sock Closed_by_user
# Line 197  let client_connection_handler t event = Line 195  let client_connection_handler t event =
195                    (DonkeyProtoCom.client_handler2 c read_first_message                    (DonkeyProtoCom.client_handler2 c read_first_message
196                      (client_to_client []));                      (client_to_client []));
197                                
198                with e -> lprintf "Exception %s in init_connection"                with e -> lprintf "Exception %s in init_connection\n"
199                      (Printexc2.to_string e);                      (Printexc2.to_string e));
                   lprint_newline ());  
200            with e ->            with e ->
201                lprintf "Exception %s in client_connection_handler"                lprintf "Exception %s in client_connection_handler\n"
202                  (Printexc2.to_string e);                  (Printexc2.to_string e);
               lprint_newline ();  
203                Unix.close s                Unix.close s
204          end                end      
205        else begin        else begin

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26