let send cmd =
try
- ignore (Http_client.http_get cmd)
+ ignore (Http_user_agent.get cmd)
with
e -> raise (HttpClientError (Printexc.to_string e, cmd))
;;
let get uri =
try
- Http_client.http_get uri
+ Http_user_agent.get uri
with
e -> raise (HttpClientError (Printexc.to_string e, uri))
;;
let get_and_save uri dest_filename =
- let reply = get uri
- and out_channel = open_out dest_filename in
- output_string out_channel reply ;
- close_out out_channel
+ let out_channel = open_out dest_filename in
+ Http_user_agent.get_iter (output_string out_channel) uri;
+ close_out out_channel
;;
let get_and_save_to_tmp uri =