[Pkg-ocaml-maint-commits] r6258 - in /trunk/tools/ocaml_transition_monitor: ocaml-status.css ocaml_transition_monitor.mll

[glondu-guest at users.alioth.debian.org]

Author: glondu-guest
Date: Wed Feb 25 01:05:38 2009
New Revision: 6258

URL: http://svn.debian.org/wsvn/?sc=1&rev=6258
Log:
Add a footer

Modified:
    trunk/tools/ocaml_transition_monitor/ocaml-status.css
    trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll

Modified: trunk/tools/ocaml_transition_monitor/ocaml-status.css
URL: http://svn.debian.org/wsvn/trunk/tools/ocaml_transition_monitor/ocaml-status.css?rev=6258&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml-status.css (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml-status.css Wed Feb 25 01:05:38 2009
@@ -18,7 +18,7 @@
 div.status table a {
   text-decoration: none;
 }
-div#footer {
+div.footer {
   margin-top: 2em;
   font-size: 60%;
 }

Modified: trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll
URL: http://svn.debian.org/wsvn/trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll?rev=6258&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll Wed Feb 25 01:05:38 2009
@@ -195,6 +195,9 @@
         progress "\n%!";
         r = 0)
 
+  let a_link href contents =
+    a ~a:[a_href (uri_of_string href)] [pcdata contents]
+
   let main () =
     let all_binaries = List.map get_arch_status architectures in
     let all_sources = List.sort compare
@@ -223,10 +226,30 @@
       []
     in
     let page_title = "Monitoring OCaml transition to "^ocaml_version in
+    let date =
+      let chan = Unix.open_process_in "date -R" in
+      let r = input_line chan in
+      close_in chan; r in
+    let footer = [
+      p [pcdata "Last generated: ";
+         span ~a:[a_class ["timestamp"]] [pcdata date];
+         br ();
+         pcdata "Contact: ";
+         a_link "mailto:steph at glondu.net" "Stéphane Glondu";
+         pcdata "; the code that generates this page ";
+         a_link
+           "http://svn.debian.org/wsvn/pkg-ocaml-maint/trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll?op=file&rev=0&sc=0"
+           "is available";
+         pcdata "."; br ();
+         pcdata "Kudos: zack and his ";
+         a_link "http://pkg-ocaml-maint.alioth.debian.org/debian-ocaml-status.html" "OCaml Packages Status in Debian";
+         pcdata ", from which I shamelessly copied this page's CSS.";
+        ]] in
     let html = html
       (head (title (pcdata page_title)) [link ~a:[a_rel [`Stylesheet]; a_href (uri_of_string "ocaml-status.css")] ()])
       (body [h1 [pcdata page_title];
-             div ~a:[a_class ["status"]] [summary]])
+             div ~a:[a_class ["status"]] [summary];
+             div ~a:[a_class ["footer"]] footer])
     in
     with_out_file "ocaml_transition_monitor.html"
       (fun chan -> output (fun s -> fprintf chan "%s%!" s) html)