Source

OCaml-WebFramework / cgi-bin / url.ml

Full commit
Pierre Surply fe52c9a 















(*
** url.ml for OCaml-WebFramework
**
** Made by Pierre Surply
** <pierre.surply@gmail.com>
**
** Started on  Sun Sep 16 11:31:15 2012 Pierre Surply
Last update Thu Oct 11 15:24:18 2012 pierre surply
*)

let get_page_from_url () =
  match Env.get_url_arg 0 with
    | "about" -> "about.html"
    | _ -> "index.html"

let make_page_from_url () =
  Template.make_page (get_page_from_url ())