/[mldonkey]/mldonkey/src/daemon/common/guiEncoding.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/guiEncoding.ml

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

revision 1.38 by spiralvoice, Tue Aug 9 10:48:37 2005 UTC revision 1.39 by spiralvoice, Sun Aug 21 12:27:18 2005 UTC
# Line 550  let buf_file proto buf f = Line 550  let buf_file proto buf f =
550      if proto > 30 then      if proto > 30 then
551        buf_list buf buf_uid f.file_uids        buf_list buf buf_uid f.file_uids
552                
553  let buf_addr buf addr =  let buf_addr proto buf addr =
554    match addr with    (match addr with
555      Ip.AddrIp ip ->      Ip.AddrIp ip ->
556        buf_int8 buf 0;        buf_int8 buf 0;
557        buf_ip buf ip        buf_ip buf ip
558    | Ip.AddrName s ->    | Ip.AddrName s ->
559        buf_int8 buf 1;        buf_int8 buf 1;
560        buf_string buf s        buf_string buf s);
561      if proto > 33 then
562        buf_bool buf (Ip_set.ip_blocked (Ip.ip_of_addr addr))
563        
564  let buf_server proto buf s =  let buf_server proto buf s =
565    buf_int buf s.server_num;    buf_int buf s.server_num;
# Line 565  let buf_server proto buf s = Line 567  let buf_server proto buf s =
567    if proto < 2 then    if proto < 2 then
568      buf_ip buf (Ip.ip_of_addr s.server_addr)      buf_ip buf (Ip.ip_of_addr s.server_addr)
569    else    else
570      buf_addr buf s.server_addr;          buf_addr proto buf s.server_addr;    
571    buf_int16 buf s.server_port;    buf_int16 buf s.server_port;
572    buf_int buf s.server_score;    buf_int buf s.server_score;
573    buf_list buf buf_tag s.server_tags;    buf_list buf buf_tag s.server_tags;

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

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