[MINOR: added timestamp to HTML footer.
kaputt@x9c.fr**20091101183101] {
hunk ./src/test.ml 147
-let make_output = function
+let make_output kind =
+  let now = Unix.localtime (Unix.time ()) in
+  let timestamp =
+    Printf.sprintf "%d-%02d-%02d %02d:%02d:%02d"
+      (1900 + now.Unix.tm_year)
+      (succ now.Unix.tm_mon)
+      now.Unix.tm_mday
+      now.Unix.tm_hour
+      now.Unix.tm_min
+      now.Unix.tm_sec in
+  match kind with
hunk ./src/test.ml 244
-               "<p style=\"font-size: smaller; text-align: center;\">Generated by <a href=\"http://kaputt.x9c.fr\">Kaputt" ^ version ^ "</a></p>";
+               "<p style=\"font-size: smaller; text-align: center;\">Generated by <a href=\"http://kaputt.x9c.fr\">Kaputt</a> " ^ version ^ " on " ^ timestamp ^ "</p>";
}