(* COCANWIKI scripts.
 * Written by Richard W.M. Jones <rich@merjis.com>.
 * Copyright (C) 2004 Merjis Ltd.
 * $Id: preview.ml,v 1.2 2004/09/07 13:40:10 rich Exp $
 *
 * In case you were wondering, this script is called from the Javascript
 * to update the preview <div>.  See /_js/editor.js for details.
 *)

open Apache
open Registry
open Cgi
open Printf

open Cocanwiki

let run r (q : cgi) (dbh : Dbi.connection) (hostid, _, _) _ =
  let content = q#param "content" in
  let xhtml = Wikilib.xhtml_of_content dbh hostid content in

  q#header ~content_type:"text/html; charset=utf-8" ();
  print_string r xhtml

let () =
  register_script run