Module `Eliom.Request`

exception Looping_redirection

exception Failed_request of int

exception Program_terminated

exception Non_xml_content

val redirect_get : 
  ?window_name:string ->
  ?window_features:string ->
  string ->
  unit

val redirect_post : 
  ?window_name:string ->
  string ->
  (string * Mod_parameters.param) list ->
  unit

val redirect_put : 
  ?window_name:string ->
  string ->
  (string * Mod_parameters.param) list ->
  unit

val redirect_delete : 
  ?window_name:string ->
  string ->
  (string * Mod_parameters.param) list ->
  unit

type 'a result

val xml_result : 
  Js_of_ocaml.Dom.element Js_of_ocaml.Dom.document Js_of_ocaml.Js.t result

val string_result : string result

val locked : bool React.signal

val lock : unit -> unit

val unlock : unit -> unit

module Additional_headers : sig ... end

val send : 
  ?with_credentials:bool ->
  ?expecting_process_page:bool ->
  ?cookies_info:(bool * string list) ->
  ?get_args:(string * string) list ->
  ?post_args:(string * Mod_parameters.param) list ->
  ?override_method:
    [ `GET | `POST | `HEAD | `PUT | `DELETE | `OPTIONS | `PATCH ] ->
  ?progress:(int -> int -> unit) ->
  ?upload_progress:(int -> int -> unit) ->
  ?override_mime_type:string ->
  string ->
  'a result ->
  (string * 'a option) Lwt.t

val send_get_form : 
  ?with_credentials:bool ->
  ?expecting_process_page:bool ->
  ?cookies_info:(bool * string list) ->
  ?get_args:(string * string) list ->
  ?post_args:(string * Mod_parameters.param) list ->
  ?progress:(int -> int -> unit) ->
  ?upload_progress:(int -> int -> unit) ->
  ?override_mime_type:string ->
  ?submitter:Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
  Js_of_ocaml.Dom_html.formElement Js_of_ocaml.Js.t ->
  string ->
  'a result ->
  (string * 'a option) Lwt.t

send_get_form form url result sends the fields of form to url through XHR, in the query string, after ~get_args. With ~post_args, the request is a POST whose body holds ~post_args, the fields staying in the query string. ~submitter is the button that submitted form, the submitter of its submit event: its name and value are sent, before the fields, as a native submission sends them. An image button sends instead the point of the click in the image, as name.x and name.y, or x and y when it has no name. This point is the one recorded by track_image_button_clicks for the last click on this button, (0, 0) if there is none.

val send_post_form : 
  ?with_credentials:bool ->
  ?expecting_process_page:bool ->
  ?cookies_info:(bool * string list) ->
  ?get_args:(string * string) list ->
  ?post_args:(string * Mod_parameters.param) list ->
  ?progress:(int -> int -> unit) ->
  ?upload_progress:(int -> int -> unit) ->
  ?override_mime_type:string ->
  ?submitter:Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
  Js_of_ocaml.Dom_html.formElement Js_of_ocaml.Js.t ->
  string ->
  'a result ->
  (string * 'a option) Lwt.t

send_post_form form url result is like send_get_form but sends the fields of form in the body of a POST request, before ~post_args. ~get_args go in the query string.

val http_get : 
  ?with_credentials:bool ->
  ?expecting_process_page:bool ->
  ?cookies_info:(bool * string list) ->
  ?progress:(int -> int -> unit) ->
  ?upload_progress:(int -> int -> unit) ->
  ?override_mime_type:string ->
  string ->
  (string * string) list ->
  'a result ->
  (string * 'a option) Lwt.t

val http_post : 
  ?with_credentials:bool ->
  ?expecting_process_page:bool ->
  ?cookies_info:(bool * string list) ->
  ?progress:(int -> int -> unit) ->
  ?upload_progress:(int -> int -> unit) ->
  ?override_mime_type:string ->
  string ->
  (string * Mod_parameters.param) list ->
  'a result ->
  (string * 'a option) Lwt.t

val http_put : 
  ?with_credentials:bool ->
  ?expecting_process_page:bool ->
  ?cookies_info:(bool * string list) ->
  ?progress:(int -> int -> unit) ->
  ?upload_progress:(int -> int -> unit) ->
  ?override_mime_type:string ->
  string ->
  (string * Mod_parameters.param) list ->
  'a result ->
  (string * 'a option) Lwt.t

val http_delete : 
  ?with_credentials:bool ->
  ?expecting_process_page:bool ->
  ?cookies_info:(bool * string list) ->
  ?progress:(int -> int -> unit) ->
  ?upload_progress:(int -> int -> unit) ->
  ?override_mime_type:string ->
  string ->
  (string * Mod_parameters.param) list ->
  'a result ->
  (string * 'a option) Lwt.t

val get_cookie_info_for_uri_js : 
  Js_of_ocaml.Js.js_string Js_of_ocaml.Js.t ->
  bool * string list

val max_redirection_level : int