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
|
exception Page_not_found of string
exception No_results of string
exception Not_implemented of string
exception Bad_request of string
exception Entity_too_large of string
exception Misc_error of string
val ( |= ) : ('a, 'b) PMap.Map.t -> 'a -> 'b
val ( |< ) : ('a, 'b) PMap.Map.t -> 'a * 'b -> ('a, 'b) PMap.Map.t
val hexa_digit : int -> char
val hexa_val : char -> int
val decode : string -> string
val special : char -> bool
val encode : string -> string
val stripchars : char PSet.Set.t
val strip : string -> string
type 'a request =
| GET of (string * (string, string) PMap.Map.t)
| POST of (string * (string, string) PMap.Map.t * 'a)
val whitespace : Str.regexp
val eol : Str.regexp
val get_all : in_channel -> string
val get_lines : in_channel -> string list
val max_post_length : int
val parse_post : (string, string) PMap.Map.t -> in_channel -> string
val is_blank : string -> bool
val parse_headers :
(string, string) PMap.Map.t -> in_channel -> (string, string) PMap.Map.t
val parse_request : in_channel -> string request
val headers_to_string : (string, string) PMap.Map.t -> string
val request_to_string : 'a request -> string
val request_to_string_short : 'a request -> string
val send_result :
out_channel ->
?error_code:int -> ?content_type:string -> ?count:int -> string -> unit
val accept_connection :
('a -> string request -> Channel.out_channel_obj -> string * int) ->
recover_timeout:int -> 'a -> in_channel -> out_channel -> 'b list
|
