let send cmd =
try
ignore (Http_user_agent.get cmd)
- with e -> raise (Http_client_error (cmd, Printexc.to_string e))
+ with exn -> raise (Http_client_error (cmd, Printexc.to_string exn))
let get url =
try
Http_user_agent.get url
- with e -> raise (Http_client_error (Printexc.to_string e, url))
+ with exn -> raise (Http_client_error (Printexc.to_string exn, url))
let get_and_save url dest_filename =
let out_channel = open_out dest_filename in
- Http_user_agent.get_iter (output_string out_channel) url;
+ (try
+ Http_user_agent.get_iter (output_string out_channel) url;
+ with exn ->
+ close_out out_channel;
+ Sys.remove dest_filename;
+ raise (Http_client_error (Printexc.to_string exn, url)));
close_out out_channel
let get_and_save_to_tmp url =