2 * Written by Richard W.M. Jones <rich@merjis.com>.
3 * Copyright (C) 2004 Merjis Ltd.
4 * $Id: preview.ml,v 1.3 2004/09/09 09:35:33 rich Exp $
6 * In case you were wondering, this script is called from the Javascript
7 * to update the preview <div>. See /_js/editor.js for details.
17 let run r (q : cgi) (dbh : Dbi.connection) hostid _ _ =
18 let content = q#param "content" in
19 let xhtml = Wikilib.xhtml_of_content dbh hostid content in
21 q#header ~content_type:"text/html; charset=utf-8" ();