X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=scripts%2Frecent.ml;h=786dd9995e8a1c04dfe4c24e50340aa9ada303ca;hb=1f125fd7a6794f352f30de71a3905d5356a07008;hp=4af4886a23f262723913db2c46550ca036e9056d;hpb=ca4d4140c5ab4b351dd5483337cf61e8e9fa94e6;p=cocanwiki.git diff --git a/scripts/recent.ml b/scripts/recent.ml index 4af4886..786dd99 100644 --- a/scripts/recent.ml +++ b/scripts/recent.ml @@ -1,7 +1,7 @@ (* COCANWIKI scripts. * Written by Richard W.M. Jones . * Copyright (C) 2004 Merjis Ltd. - * $Id: recent.ml,v 1.4 2004/09/08 09:54:28 rich Exp $ + * $Id: recent.ml,v 1.6 2004/09/09 09:35:33 rich Exp $ *) open Apache @@ -13,11 +13,11 @@ open Cocanwiki open Cocanwiki_template open Cocanwiki_date -let template = get_template "recent.html" - let max_age = "3 months" -let run r (q : cgi) (dbh : Dbi.connection) (hostid, _, _) _ = +let run r (q : cgi) (dbh : Dbi.connection) hostid _ _ = + let template = get_template dbh hostid "recent.html" in + let sth = dbh#prepare_cached "select id, url, url_deleted, title, last_modified_date, logged_ip