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

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

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

revision 1.16 by spiralvoice, Thu Jul 7 00:25:46 2005 UTC revision 1.17 by spiralvoice, Fri Jul 22 10:58:55 2005 UTC
# Line 91  module Connect = struct Line 91  module Connect = struct
91        lprintf_nl "port: %d" t.port;        lprintf_nl "port: %d" t.port;
92        lprintf "tags: ";        lprintf "tags: ";
93        print_tags t.tags;        print_tags t.tags;
94        lprintf_nl ""        lprint_newline ()
95    
96      let bprint oc t =      let bprint oc t =
97        Printf.bprintf oc "CONNECT:\n";        Printf.bprintf oc "CONNECT:\n";
# Line 175  module SetID = struct Line 175  module SetID = struct
175         }         }
176    
177      let print t =      let print t =
178        lprintf_nl "SET_ID:\n%s" (if t.zlib then "Zlib" else "");        lprintf "SET_ID: %s id: %s %s"
179        lprintf_nl "id: %s" (Ip.to_string t.ip);          (if t.zlib then "Zlib" else "")
180        match t.port with          (Ip.to_string t.ip)
181          None -> ()          (match t.port with
182            None -> Printf.sprintf ""
183          | Some port ->          | Some port ->
184             lprintf_nl "Real Port: %d" port             Printf.sprintf "Real Port: %d" port)
185    
186      let bprint oc t =      let bprint oc t =
187        Printf.bprintf oc "SET_ID: %s\n"  (if t.zlib then "Zlib" else "");        Printf.bprintf oc "SET_ID: %s\n"  (if t.zlib then "Zlib" else "");
# Line 265  module Share = struct Line 266  module Share = struct
266            lprintf_nl "  port: %d" t.f_port;            lprintf_nl "  port: %d" t.f_port;
267            lprintf "  tags: ";            lprintf "  tags: ";
268            print_tags t.f_tags;            print_tags t.f_tags;
269            lprintf_nl "";) t            lprint_newline ();) t
270            
271      let bprint oc t =      let bprint oc t =
272        Printf.bprintf oc "SHARED:\n";        Printf.bprintf oc "SHARED:\n";
# Line 464  module QueryReply  = struct Line 465  module QueryReply  = struct
465            lprintf_nl "  port: %d" t.f_port;            lprintf_nl "  port: %d" t.f_port;
466            lprintf "  tags: ";            lprintf "  tags: ";
467            print_tags t.f_tags;            print_tags t.f_tags;
468            lprintf_nl "") t            lprint_newline ()) t
469    
470      let bprint oc t =      let bprint oc t =
471        Printf.bprintf oc "FOUND:\n";        Printf.bprintf oc "FOUND:\n";
# Line 623  translation, i.e. Field_Artist = "Artist Line 624  translation, i.e. Field_Artist = "Artist
624            lprintf "print_query: QNone in query\n";            lprintf "print_query: QNone in query\n";
625            ()            ()
626            
627      let  print t =      let print t =
628        lprintf "QUERY";        lprintf "QUERY";
629        print_query t        print_query t
630            
# Line 794  module QueryUsersReply = struct (* reque Line 795  module QueryUsersReply = struct (* reque
795            lprintf_nl "port: %d" t.port;            lprintf_nl "port: %d" t.port;
796            lprintf "tags: ";            lprintf "tags: ";
797            print_tags t.tags;            print_tags t.tags;
798            lprintf_nl "";) t            lprint_newline ();) t
799    
800      let bprint oc t =      let bprint oc t =
801        Printf.bprintf oc "QUERY USERS REPLY:\n";        Printf.bprintf oc "QUERY USERS REPLY:\n";
# Line 1162  let rec parse magic s = Line 1163  let rec parse magic s =
1163            File.from_string tmp_file s;            File.from_string tmp_file s;
1164            lprintf_nl "Saved unknown packet %s" tmp_file;            lprintf_nl "Saved unknown packet %s" tmp_file;
1165            dump s;            dump s;
1166            lprintf_nl "";            lprint_newline ();
1167          end;          end;
1168        UnknownReq s        UnknownReq s
1169                
# Line 1226  let print t = Line 1227  let print t =
1227          done;          done;
1228          lprintf_nl "]";          lprintf_nl "]";
1229    end;    end;
1230    lprintf_nl ""    lprint_newline ()
1231    
1232    
1233  let bprint oc t =  let bprint oc t =

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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