scripts/cocanwiki_date.ml

   1 (* COCANWIKI scripts.
   2  * Written by Richard W.M. Jones <rich@merjis.com>.
   3  * Copyright (C) 2004 Merjis Ltd.
   4  * $Id: cocanwiki_date.ml,v 1.1 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 Merjisforwiki
  13
  14 (* Generate a printable datestamp for pages. *)
  15 let printable_date (date, _) =
  16   sprintf "%d %s %04d" date.Dbi.day (short_month date.Dbi.month) date.Dbi.year
  17
  18 let printable_date_time (date, time) =
  19   sprintf "%d %s %04d %02d:%02d" date.Dbi.day (short_month date.Dbi.month)
  20     date.Dbi.year time.Dbi.hour time.Dbi.min