Source

OCaml-WebFramework / cgi-bin / main.ml

Full commit
(*
** main.ml for OCaml-WebFramework
** 
** Made by Pierre Surply
** <pierre.surply@gmail.com>
** 
** Started on  Sat Sep 15 11:14:18 2012 Pierre Surply
Last update Thu Oct 11 15:24:09 2012 pierre surply
*)

let content_type = "Content-Type: text/html;\n\n"

let main () =
  print_string (content_type ^ 
		  Url.make_page_from_url ());
  exit 0

let _ = main ()