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

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

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

revision 1.20 by spiralvoice, Thu Sep 1 00:04:12 2005 UTC revision 1.21 by spiralvoice, Tue Sep 6 11:24:59 2005 UTC
# Line 141  let gen_redirector_packet () = Line 141  let gen_redirector_packet () =
141    let infos =    let infos =
142      List.map (fun (n,f) ->      List.map (fun (n,f) ->
143          n,          n,
144          ( Buffer.clear buf;          ( Buffer.reset buf;
145            f buf;            f buf;
146            Buffer.contents buf)            Buffer.contents buf)
147      ) !redirector_infos in      ) !redirector_infos in
148    
149    Buffer.clear buf;    Buffer.reset buf;
150    buf_int8 buf 212; (* udp_magic *)    buf_int8 buf 212; (* udp_magic *)
151    buf_int8 buf 2;   (* type of data sent *)    buf_int8 buf 2;   (* type of data sent *)
152    let ip = client_ip None in    let ip = client_ip None in

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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