(* COCANWIKI scripts.
 * Written by Richard W.M. Jones <rich@merjis.com>.
 * Copyright (C) 2004 Merjis Ltd.
 * $Id: cocanwiki_date.ml,v 1.1 2004/09/07 13:40:10 rich Exp $
 *)

open Apache
open Registry
open Cgi
open Printf

open Merjisforwiki

(* Generate a printable datestamp for pages. *)
let printable_date (date, _) =
  sprintf "%d %s %04d" date.Dbi.day (short_month date.Dbi.month) date.Dbi.year

let printable_date_time (date, time) =
  sprintf "%d %s %04d %02d:%02d" date.Dbi.day (short_month date.Dbi.month)
    date.Dbi.year time.Dbi.hour time.Dbi.min