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

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

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

revision 1.3 by spiralvoice, Thu Oct 6 10:21:09 2005 UTC revision 1.4 by spiralvoice, Sat Nov 19 17:19:45 2005 UTC
# Line 143  let client_parse c opcode s = Line 143  let client_parse c opcode s =
143                    Uint64 v | Fint64 v ->                    Uint64 v | Fint64 v ->
144                      update_emule_proto_from_miscoptions1 emule v                      update_emule_proto_from_miscoptions1 emule v
145                  | _ ->                  | _ ->
146                      Printf.printf "CANNOT INTERPRETE EMULE OPTIONS";                      lprintf "CANNOT INTERPRETE EMULE OPTIONS\n"
                     print_newline ();  
147                                
148                with _ -> ()                with _ -> ()
149              end;              end;
# Line 268  let read_trace () = Line 267  let read_trace () =
267                | D.EmuleClientInfoReq _                | D.EmuleClientInfoReq _
268                | D.ConnectReq _                | D.ConnectReq _
269                | D.ConnectReplyReq _ ->                | D.ConnectReplyReq _ ->
270                    Printf.printf "CLIENT CONNECTION"; print_newline ();                    lprintf "CLIENT CONNECTION\n"
271                                        
272                | D.UnknownReq _ ->                | D.UnknownReq _ ->
273                    D.print t; print_newline ();                    D.print t; print_newline ();
# Line 276  let read_trace () = Line 275  let read_trace () =
275                                        
276                | _ ->                | _ ->
277                    D.print t; print_newline ();                    D.print t; print_newline ();
278                    Printf.printf "COULD NOT RECOGNIZE CONNECTION";                    lprintf "COULD NOT RECOGNIZE CONNECTION\n"
                   print_newline ()  
279              );              );
280            with            with
281            | ServerConnection ->            | ServerConnection ->
282                Printf.printf "PROBABLY A SERVER CONNECTION"; print_newline ();                lprintf "PROBABLY A SERVER CONNECTION\n"
283            | Not_found ->            | Not_found ->
284                Printf.printf "EMPTY CONNECTION (%d)" (String.length buffer);                lprintf "EMPTY CONNECTION (%d)\n" (String.length buffer)
               print_newline ();  
285          );          );
286                    
287          lprintf "CONNECTION %s:%d --> %s:%d"          lprintf "CONNECTION %s:%d --> %s:%d"
288            cnx.ip1 cnx.port1 cnx.ip2 cnx.port2; print_newline ();            cnx.ip1 cnx.port1 cnx.ip2 cnx.port2; print_newline ();
289          Printf.printf "  INCOMING:"; print_newline ();          lprintf "  INCOMING:\n";
290          cut_messages (client_parse c) buffer;          cut_messages (client_parse c) buffer;
291          Printf.printf "  OUTGOING:"; print_newline ();          lprintf "  OUTGOING:\n";
292          cut_messages (client_parse c)          cut_messages (client_parse c)
293          (Buffer.contents cnx.packets_out);          (Buffer.contents cnx.packets_out);
294                    
# Line 338  let new_packet (kind:t) (number:int) ip1 Line 335  let new_packet (kind:t) (number:int) ip1
335                                
336                                
337                                
                 
338                  

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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