display last updated info in UTC.

Raku · Jul 26, 2011 · 41b8c9a · 41b8c9a
1 parent 8d948eb
commit 41b8c9a
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/process.pl b/process.pl
@@ -3,8 +3,9 @@
 use warnings;
 use autodie;
 
+use POSIX;
+$ENV{TZ}='Z';
 
-use Data::Dumper;
 my $comment = qr{^\s*(?:\#.*)?$};
 
 open my $f, '<:encoding(UTF-8)', 'features.txt';
@@ -74,6 +75,8 @@ sub write_html {
     shift @compilers;
     $t->param(compilers => \@compilers);
     $t->param(columns   => 1 + @compilers);
+
+    $t->param(when => POSIX::ctime(time) . " " . (POSIX::tzname())[0] );
 
     my %status_map = (
         '+'          => 'implemented',

diff --git a/template.html b/template.html
@@ -34,11 +34,14 @@
         .footnote_link {
             font-size: 80%
         }
-
         .subsection {
             padding-top: 1em;
             text-align: left;
         }
+        .minor {
+            font-size:  smaller;
+            font-style: italic;
+        }
     </style>
 
 </head>
@@ -104,6 +107,9 @@ <h3>Footnotes</h3>
         yet, please ask on <a href="http://perl6.org/community/irc">the #perl6
         IRC channel</a>.
     </p>
+    <p class="minor">
+        This page was last updated <%var when%>.
+    </p>
 
 </body>
 </html>