mirror of
https://github.com/paparazzi/paparazzi.git
synced 2026-05-20 02:53:15 +08:00
Gautier Hattenberger
4d920c118c
fix usage of Bytes and String drop support of ocaml < 4.02 we keep Compat for functions that need ocaml 4.03 until end of life of Ubuntu Xenial 16.04, drop support of previous releases enforce type safe_string option to prevent future errors replace Pervasives by Stdlib (depreciated in latest ocaml vesions) only use ocamlnet >= 4.0.4
43 lines
1.3 KiB
OCaml
43 lines
1.3 KiB
OCaml
exception Failure of string
|
|
exception Not_Found of string
|
|
exception Blocked of string
|
|
|
|
module H = Nethttp_client
|
|
let () =
|
|
Nettls_gnutls.init()
|
|
|
|
let file_of_url = fun ?dest url ->
|
|
if String.sub url 0 7 = "file://" then
|
|
String.sub url 7 (String.length url - 7)
|
|
else
|
|
let tmp_file =
|
|
match dest with
|
|
Some s -> s
|
|
| None -> Filename.temp_file "fp" ".wget" in
|
|
let call = new H.get url in
|
|
call#set_response_body_storage (`File (fun () -> tmp_file));
|
|
let pipeline = new H.pipeline in
|
|
pipeline # set_proxy_from_environment ~insecure:false ();
|
|
pipeline # add call;
|
|
pipeline # run ();
|
|
match call#status with
|
|
| `Successful ->
|
|
(* prerr_endline (Printf.sprintf "file sucessfull: %s, '%s'" tmp_file url); *)
|
|
tmp_file
|
|
| `Client_error ->
|
|
begin
|
|
(* prerr_endline (Printf.sprintf "getting file '%s', client error: %d" url call#response_status_code); *)
|
|
Sys.remove tmp_file;
|
|
match call#response_status_code with
|
|
404 -> raise (Not_Found url)
|
|
| 403 ->
|
|
begin
|
|
(* prerr_endline (Printf.sprintf "Blocked!!!"); *)
|
|
raise (Blocked url)
|
|
end
|
|
| _ -> raise (Failure url)
|
|
end
|
|
| _ ->
|
|
Sys.remove tmp_file;
|
|
raise (Failure url)
|