scripts/recent.ml

   1 (* COCANWIKI scripts.
   2  * Written by Richard W.M. Jones <rich@merjis.com>.
   3  * Copyright (C) 2004 Merjis Ltd.
   4  * $Id: recent.ml,v 1.2 2004/09/07 13:40:10 rich Exp $
   5  *)
   6
   7 open Apache
   8 open Registry
   9 open Cgi
  10 open Printf
  11
  12 open Cocanwiki
  13 open Cocanwiki_template
  14
  15 let template = get_template "recent.html"
  16
  17 let max_age = "3 months"
  18
  19 let run r (q : cgi) (dbh : Dbi.connection) (hostid, _, _) _ =
  20   let sth =
  21     dbh#prepare_cached
  22       "select id, url, url_deleted, title, last_modified_date, logged_ip
  23          from pages
  24         where hostid = ?
  25           and last_modified_date >= current_timestamp - interval ?
  26         order by last_modified_date desc" in
  27   sth#execute [`Int hostid; `String max_age];
  28
  29   let table =
  30     sth#map
  31       (function
  32          | [`Int version; `String url; _; `String title;
  33             `Timestamp last_modified_date; logged_ip] ->
  34              let date = printable_date_time last_modified_date in
  35              let has_logged_ip, logged_ip =
  36                match logged_ip with
  37                    `Null -> false, ""
  38                  | `String ip -> true, ip
  39                  | _ -> assert false in
  40              [ "version", Template.VarString (string_of_int version);
  41                "url", Template.VarString url;
  42                "title", Template.VarString title;
  43                "last_modified_date", Template.VarString date;
  44                "has_logged_ip", Template.VarConditional has_logged_ip;
  45                "logged_ip", Template.VarString logged_ip;
  46                "is_live", Template.VarConditional true ]
  47          | [`Int version; `Null; `String url; `String title;
  48             `Timestamp last_modified_date; logged_ip] ->
  49              let date = printable_date_time last_modified_date in
  50              let has_logged_ip, logged_ip =
  51                match logged_ip with
  52                    `Null -> false, ""
  53                  | `String ip -> true, ip
  54                  | _ -> assert false in
  55              [ "version", Template.VarString (string_of_int version);
  56                "url", Template.VarString url;
  57                "title", Template.VarString title;
  58                "last_modified_date", Template.VarString date;
  59                "has_logged_ip", Template.VarConditional has_logged_ip;
  60                "logged_ip", Template.VarString logged_ip;
  61                "is_live", Template.VarConditional false ]
  62          | _ -> assert false) in
  63
  64   template#table "recent_changes" table;
  65
  66   q#template template
  67
  68 let () =
  69   register_script run