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 |