scripts/admin/create_host_form.ml

   1 (* COCANWIKI scripts.
   2  * Written by Richard W.M. Jones <rich@merjis.com>.
   3  * Copyright (C) 2004 Merjis Ltd.
   4  * $Id: create_host_form.ml,v 1.2 2004/09/07 13:40:10 rich Exp $
   5  *
   6  * NB. Because there might not be any hosts existing when this Wiki
   7  * is created, this is not a normal Cocanwiki.register_script script.
   8  * Instead, we're using the standard mod_caml Registry.
   9  *)
  10
  11 open Apache
  12 open Registry
  13 open Cgi
  14 open Printf
  15
  16 let template = Cocanwiki_template.get_template "admin/create_host_form.html"
  17
  18 let run r =
  19   let q = new cgi r in
  20   (* let dbh = Cocanwiki._get_dbh r in *)
  21   q#template template
  22
  23 let () =
  24   register_script run