devkit 1.3 · OCaml Package

web utilities

val log : Log.logger

val rawurlencode : string -> string

percent-encode (convert space into %20)

val urlencode : string -> string

percent-encode, but convert space into plus, not %20

val rawurldecode : string -> string

percent-decode (leave plus as is)

val urldecode : string -> string

percent-decode and convert plus into space

val htmlencode : string -> string

val htmldecode_exn : string -> string

val htmldecode : string -> string

val make_url_args : (string * string) list -> string

val parse_url_args : string -> (string * string) list

Minimum strictness, Neturl will fail on malformed parameters in url

val url_get_args : string -> (string * string) list

module CurlCache : sig ... end

val curl_default_setup : Curl.t -> unit

type http_action_old = [

| `GET
| `POST_FORM of (string * string) list
| `POST of string * string
| `PUT of string * string
| `DELETE
| `CUSTOM of string * string * string

]

type http_body = [

| `Raw of string * string
| `Form of (string * string) list
| `Chunked of string * (unit -> string)

]

type http_action = [

| `GET
| `POST
| `PUT
| `PATCH
| `DELETE
| `CUSTOM of string

]

val string_of_http_action : http_action -> string

val http_action_of_string : string -> http_action

module type IO_TYPE = sig ... end

module type CURL = sig ... end

module type HTTP = sig ... end

val show_result : 
  ?verbose:bool ->
  [< `Error of Curl.curlCode | `Ok of int * string ] ->
  string

val simple_result : 
  ?is_ok:(int -> bool) ->
  ?verbose:bool ->
  [< `Error of Curl.curlCode | `Ok of int * string Ok ] ->
  [> `Error of string | `Ok of string ]

val nr_http : int Stdlib.ref

module Http
  (IO : IO_TYPE)
  (Curl_IO : CURL with type 'a t = 'a IO.t) : 
  HTTP with type 'a IO.t = 'a IO.t

module IO_blocking : sig ... end

module IO_lwt : sig ... end

module Curl_blocking : sig ... end

module Curl_lwt_for_http : sig ... end

module Http_blocking : sig ... end

module Http_lwt : sig ... end

val with_curl : (Curl.t -> 'a Http_blocking.IO.t) -> 'a Http_blocking.IO.t

val with_curl_cache : 
  (Curl.t -> 'a Http_blocking.IO.t) ->
  'a Http_blocking.IO.t

val http_gets : 
  ?setup:(CurlCache.t -> unit) ->
  ?max_size:int ->
  ?check:(CurlCache.t -> bool) ->
  ?result:(CurlCache.t -> Curl.curlCode -> unit Http_blocking.IO.t) ->
  string ->
  [ `Error of Curl.curlCode | `Ok of int * string ] Http_blocking.IO.t

val http_request' : 
  [> `Error of Curl.curlCode | `Ok of int * string ] Http_blocking.http_request

val http_request : 
  [> `Error of string | `Ok of string ] Http_blocking.http_request

val http_request_exn : string Http_blocking.http_request

val http_query : 
  (string * string, [> `Error of string | `Ok of string ])
    Http_blocking.http_request_

val http_submit : 
  ?ua:string ->
  ?timeout:int ->
  ?verbose:bool ->
  ?setup:(CurlCache.t -> unit) ->
  ?http_1_0:bool ->
  ?headers:string list ->
  ?action:http_action ->
  string ->
  (string * string) list ->
  [> `Error of string | `Ok of string ] Http_blocking.IO.t

val http_request_lwt' : 
  [> `Error of Curl.curlCode | `Ok of int * string ] Http_lwt.http_request

val http_request_lwt : 
  [> `Error of string | `Ok of string ] Http_lwt.http_request

val http_request_lwt_exn : string Http_lwt.http_request

val http_query_lwt : 
  (string * string, [> `Error of string | `Ok of string ])
    Http_lwt.http_request_

val http_submit_lwt : 
  ?ua:string ->
  ?timeout:int ->
  ?verbose:bool ->
  ?setup:(CurlCache.t -> unit) ->
  ?http_1_0:bool ->
  ?headers:string list ->
  ?action:http_action ->
  string ->
  (string * string) list ->
  [> `Error of string | `Ok of string ] Http_lwt.IO.t

val http_get_io_exn : 
  ?setup:(Curl.t -> unit) ->
  ?max_size:int ->
  ?check:(Curl.t -> bool) ->
  string ->
  'a IO.output ->
  unit Http_blocking.IO.t

val http_get_io : 
  string ->
  ?verbose:bool ->
  ?setup:(Curl.t -> unit) ->
  ?max_size:int ->
  'a IO.output ->
  unit Http_blocking.IO.t

val http_get : 
  ?verbose:bool ->
  ?setup:(Curl.t -> unit) ->
  ?max_size:int ->
  string ->
  string

val http_get_io_lwt : 
  ?body:(string * string) ->
  ?timeout:int ->
  ?setup:(Curl.t -> unit) ->
  ?check:(Curl.t -> bool) ->
  string ->
  'a IO.output ->
  [> `Error of string | `Ok of float ] Lwt.t

val http_do : 
  ?ua:string ->
  ?timeout:int ->
  ?verbose:bool ->
  ?setup:(CurlCache.t -> unit) ->
  ?http_1_0:bool ->
  http_action_old ->
  string ->
  [> `Error of string | `Ok of string ]

val string_of_http_code : int -> string

val class_of_http_code : int -> string

package devkit