Source

sks-keyserver-with-async / wserver.mli

Full commit
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