-(*
-let wget url =
- prerr_endline (sprintf "DEBUG: wgetting url '%s'" url);
- Http_client.Convenience.http_get url
-in
-*)
-let wget addr port path =
- let rec wget' inchan data =
- try
- wget' inchan (data ^ input_line inchan)
- with End_of_file ->
- data
- 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" path);
- flush outchan;
- let inchan = Unix.in_channel_of_descr suck in
- wget' inchan ""
-in
-let callback req outchan =