Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*)
+open Printf;;
+
+let debug = ref false
+let debug_print s =
+ if !debug then
+ prerr_endline (sprintf "DEBUG: %s" s)
+
exception Invalid_HTTP_version of string
exception Invalid_code of int
exception Invalid_status of Http_types.status
let http_version = `HTTP_1_1
+let server_string = "OCaml HTTP Daemon"
+let crlf = "\r\n"
let string_of_version = function
| `HTTP_1_0 -> "HTTP/1.0"