2 * Written by Richard W.M. Jones <rich@merjis.com>.
3 * Copyright (C) 2004 Merjis Ltd.
4 * $Id: diff.ml,v 1.2 2004/09/07 13:40:10 rich Exp $
15 open Cocanwiki_template
18 let template = get_template "diff.html"
20 let run r (q : cgi) (dbh : Dbi.connection) (hostid, _, _) _ =
21 let page = q#param "page" in
22 let page = if page = "" then "index" else page in
24 (* "version" parameter, required, is the newest version. If the
25 * "old_version" parameter is given then we compare against that.
26 * Otherwise we look in the database to find the version of this
27 * page previous to "version", and use that as "old_version". If
28 * there is no older version in the database, then we compare against
29 * version '0' which means a blank page.
31 * NB. In case you hadn't worked it out yet, version numbers are
34 let version = int_of_string (q#param "version") in
36 let diff, old_version =
38 let old_version = int_of_string (q#param "old_version") in
39 get_diff dbh hostid page ~old_version ~version ()
42 get_diff dbh hostid page ~version () in
44 template#set "version" (string_of_int version);
45 template#set "old_version" (string_of_int old_version);
46 template#set "page" page;
47 template#set "diff" diff;