-let wget addr port path =
- let rec wget' inchan buf =
- Buffer.add_string buf (input_line inchan ^ "\n");
- wget' inchan buf
- in
- prerr_endline (sprintf "DEBUG: wgetting url '%s:%d%s'" addr port path);
- let sockaddr = Unix.ADDR_INET (Unix.inet_addr_of_string addr, port) in
- let suck = Unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in
- Unix.connect suck sockaddr;
- let outchan = Unix.out_channel_of_descr suck in
- output_string outchan (sprintf "GET %s HTTP/1.0\r\n\r\n" path);
- flush outchan;
- let inchan = Unix.in_channel_of_descr suck in
- let buf = Buffer.create 1023 in
- try
- wget' inchan buf
- with End_of_file -> Buffer.contents buf
-in
-let callback (req: request) outchan =