Web: drop unused functions

Author: rr0gi

web.ml

@@ -356,120 +356,6 @@ let http_request_lwt_exn = Http_lwt.http_request_exn
 let http_query_lwt = Http_lwt.http_query
 let http_submit_lwt = Http_lwt.http_submit
 
-let http_get_io_exn ?(setup=ignore) ?max_size ?(check=(fun h -> Curl.get_httpcode h = 200)) url out =
-  let inner = ref None in
-  try
-    with_curl_cache begin fun h ->
-      Curl.set_url h url;
-      curl_default_setup h;
-      setup h;
-      let read_size = ref 0 in
-      Curl.set_writefunction h begin fun s ->
-        try
-          match check h with
-          | false -> 0
-          | true ->
-            IO.nwrite_string out s;
-            let l = String.length s in
-            read_size += l;
-            match max_size with
-            | Some max_size when !read_size > max_size -> Exn.fail "received too much data (%db) when max is %db" !read_size max_size
-            | _ -> l
-        with exn -> inner := Some exn; 0 end;
-      let result = Curl.perform h in
-      IO.flush out;
-      result
-    end
-  with
-  | exn -> raise (Option.default exn !inner)
-
-let http_get_io url ?(verbose=true) ?setup ?max_size out =
-  try
-    http_get_io_exn url ?setup ?max_size out
-  with
-  | Curl.CurlException(Curl.CURLE_WRITE_ERROR,_,_) -> ()
-  | exn -> if verbose then Log.main #warn ~exn "http_get_io(%s)" url else ()
-
-let http_get ?verbose ?setup ?max_size url = wrapped (IO.output_string ()) IO.close_out (http_get_io ?verbose ?setup ?max_size url)
-
-let http_get_io_lwt ?body ?timeout ?(setup=ignore) ?(check=(fun h -> Curl.get_httpcode h = 200)) url out =
-  let inner_error = ref `None in
-  let error code = sprintf "curl (%d) %s" (Curl.errno code) (Curl.strerror code) in
-  let inner_error_msg () =
-    match !inner_error with
-    | `None -> error Curl.CURLE_WRITE_ERROR
-    | `Write exn -> sprintf "write error : %s" @@ Exn.to_string exn
-    | `Http code -> sprintf "http : %d" code
-  in
-  try%lwt
-    Http_lwt.with_curl_cache begin fun h ->
-      Curl.set_url h url;
-      curl_default_setup h;
-      Option.may (Curl.set_timeout h) timeout;
-      Option.may (fun (ct, body) ->
-            let open Curl in
-            set_post h true;
-            set_httpheader h ["Content-Type: " ^ ct];
-            set_postfields h body;
-            set_postfieldsize h (String.length body)
-        ) body;
-      setup h;
-      Curl.set_writefunction h begin fun s ->
-        try
-          match check h with
-          | false -> inner_error := `Http (Curl.get_httpcode h); 0
-          | true -> IO.nwrite_string out s; String.length s
-        with exn -> inner_error := `Write exn; 0
-      end;
-      match%lwt Curl_lwt.perform h with
-      | Curl.CURLE_OK when not @@ check h -> `Error (sprintf "http: %d"  (Curl.get_httpcode h)) |> Lwt.return
-      | Curl.CURLE_OK -> IO.flush out; `Ok (Curl.get_sizedownload h) |> Lwt.return
-      | Curl.CURLE_WRITE_ERROR -> `Error (inner_error_msg ()) |> Lwt.return
-      | code -> `Error (error code) |> Lwt.return
-    end
-  with
-  | exn -> Exn_lwt.fail ~exn "http_get_io_lwt (%s)" (inner_error_msg ())
-
-(* NOTE don't forget to set http_1_0=true when sending requests to a Httpev-based server *)
-(* deprecated! use http_request or http_query instead *)
-let http_do ?ua ?timeout ?(verbose=false) ?(setup=ignore) ?(http_1_0=false) (action:http_action_old) url =
-  let open Curl in
-  let post ?req h ct body =
-    set_post h true;
-    begin match req with None -> () | Some s -> set_customrequest h s end;
-    set_postfields h body;
-    set_postfieldsize h (String.length body);
-    set_httpheader h ["Content-Type: "^ct];
-  in
-  let setup h =
-    begin match action with
-    | `GET -> ()
-    | `DELETE -> set_customrequest h "DELETE"
-    | `POST (ct,body) -> post h ct body
-    | `PUT (ct,body) -> post ~req:"PUT" h ct body
-    | `POST_FORM args -> post h "application/x-www-form-urlencoded" (make_url_args args)
-    | `CUSTOM (req,ct,body) -> post ~req h ct body
-    end;
-    if http_1_0 then set_httpversion h HTTP_VERSION_1_0;
-    Option.may (set_timeout h) timeout;
-    Option.may (set_useragent h) ua;
-    let () = setup h in
-    ()
-  in
-  if verbose then begin
-    let log_verb req ct body = log #info "%s %s %s %s" req url ct (Stre.shorten 64 body) in
-    match action with
-    | `GET -> log #info "GET %s" url
-    | `DELETE -> log #info "DELETE %s" url
-    | `POST (ct,body) -> log_verb "POST" ct body
-    | `PUT (ct,body) -> log_verb "PUT" ct body
-    | `POST_FORM l -> log #info "POST %s %s" url (String.concat " " @@ List.map (fun (k,v) -> sprintf "%s=%S" k (Stre.shorten 64 v)) l)
-    | `CUSTOM (req,ct,body) -> log_verb req ct body
-  end;
-  match http_gets ~setup url with
-  | `Ok (code, s) when code / 100 = 2 -> `Ok s
-  | r -> `Error (show_result r)
-
 (* http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html *)
 let string_of_http_code = function
 | 100 -> "Continue"