1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
(*
OCaml HTTP - do it yourself (fully OCaml) HTTP daemon
Copyright (C) <2002-2005> Stefano Zacchiroli <zack@cs.unibo.it>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU Library General Public License as
published by the Free Software Foundation, version 2.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
USA
*)
(** HTTP messages parsing *)
open Http_types;;
(** given an HTTP like query string (e.g. "name1=value1&name2=value2&...")
@return a list of pairs [("name1", "value1"); ("name2", "value2")]
@raise Malformed_query if the string isn't a valid query string
@raise Malformed_query_part if some piece of the query isn't valid
*)
val split_query_params: string -> (string * string) list
(** parse 1st line of an HTTP request
@param inchan input channel from which parse request
@return a triple meth * url * version, meth is the HTTP method invoked, url is
the requested url, version is the HTTP version specified or None if no version
was specified
@raise Malformed_request if request 1st linst isn't well formed
@raise Malformed_request_URI if requested URI isn't well formed *)
val parse_request_fst_line: in_channel -> meth * Neturl.url * version option
(** parse 1st line of an HTTP response
* @param inchan input channel from which parse response
* @raise Malformed_response if first line isn't well formed
*)
val parse_response_fst_line: in_channel -> version * status
(** parse HTTP GET parameters from an URL; paramater which were passed with no
value (like 'x' in "/foo.cgi?a=10&x=&c=9") are returned associated with the
empty ("") string.
@return a list of pairs param_name * param_value *)
val parse_query_get_params: Neturl.url -> (string * string) list
(** parse the base path (removing query string, fragment, ....) from an URL *)
val parse_path: Neturl.url -> string
(** parse HTTP headers. Consumes also trailing CRLF at the end of header list
@param inchan input channel from which parse headers
@return a list of pairs header_name * header_value
@raise Invalid_header if a not well formed header is encountered *)
val parse_headers: in_channel -> (string * string) list
(** given an input channel, reads from it a GET HTTP request and
@return a pair <path, query_params> where path is a string representing the
requested path and query_params is a list of pairs <name, value> (the GET
parameters) *)
val parse_request: in_channel -> string * (string * string) list
|
