]> matita.cs.unibo.it Git - helm.git/commitdiff
- added sanity test on headers while using send_header{,s}
authorStefano Zacchiroli <zack@upsilon.cc>
Tue, 3 Dec 2002 21:32:31 +0000 (21:32 +0000)
committerStefano Zacchiroli <zack@upsilon.cc>
Tue, 3 Dec 2002 21:32:31 +0000 (21:32 +0000)
helm/DEVEL/ocaml-http/http_daemon.ml

index f2f70a03729932c647507f37e3cd712b9490431b..bcf3da81ac51aa725994393c57b3590eb065387d 100644 (file)
@@ -22,6 +22,8 @@
 open Printf;;
 
 open Http_common;;
+open Http_types;;
+open Http_constants;;
 open Http_parser;;
 
 let debug = true
@@ -43,8 +45,8 @@ let send_raw ~data outchan =
 
 let send_CRLF = send_raw ~data:crlf
 
-  (** TODO perform some sanity test on header and value *)
 let send_header ~header ~value =
+  Http_parser.heal_header (header, value);
   send_raw ~data:(header ^ ": " ^ value ^ crlf)
 
 let send_headers ~headers outchan =
@@ -69,7 +71,7 @@ let send_status_line' ~version ~code =
       " "
       [ string_of_version version;
       string_of_int code;
-      reason_phrase_of_code code ]
+      Http_misc.reason_phrase_of_code code ]
   in
   send_raw ~data:(status_line ^ crlf)
 
@@ -92,7 +94,7 @@ let send_basic_headers ?(version = http_version) ?code ?status outchan =
   representing an HTML document that explains the meaning of given status code.
   Additional data can be added to the body via 'body' argument *)
 let foo_body code body =
-  let reason_phrase = reason_phrase_of_code code in
+  let reason_phrase = Http_misc.reason_phrase_of_code code in
   sprintf
 "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">
 <HTML><HEAD>
@@ -156,7 +158,6 @@ let send_empty_response
 *)
       end
 
-  (* TODO sanity tests on location *)
 let respond_redirect
   ~location ?(body = "") ?(version = http_version) ?(code = 301) ?status outchan
   =