Skip to content
This repository has been archived by the owner on Nov 16, 2020. It is now read-only.

Commit

Permalink
Browse files Browse the repository at this point in the history
note both page creation time and data update time.
  • Loading branch information
coke committed Jul 26, 2011
1 parent 41b8c9a commit 5d52303
Show file tree
Hide file tree
Showing 2 changed files with 9 additions and 3 deletions.
9 changes: 7 additions & 2 deletions process.pl
Expand Up @@ -8,7 +8,11 @@

my $comment = qr{^\s*(?:\#.*)?$};

open my $f, '<:encoding(UTF-8)', 'features.txt';
my $features = 'features.txt';
my $mtime = (stat $features)[9];


open my $f, '<:encoding(UTF-8)', $features;
binmode(STDOUT, ":encoding(UTF-8)");
my %abbr_name;
my %abbr_link;
Expand Down Expand Up @@ -76,7 +80,8 @@ sub write_html {
$t->param(compilers => \@compilers);
$t->param(columns => 1 + @compilers);

$t->param(when => POSIX::ctime(time) . " " . (POSIX::tzname())[0] );
$t->param(when => POSIX::ctime($mtime) . " " . (POSIX::tzname())[0] );
$t->param(now => POSIX::ctime(time) . " " . (POSIX::tzname())[0] );

my %status_map = (
'+' => 'implemented',
Expand Down
3 changes: 2 additions & 1 deletion template.html
Expand Up @@ -108,7 +108,8 @@ <h3>Footnotes</h3>
IRC channel</a>.
</p>
<p class="minor">
This page was last updated <%var when%>.
The data to generate this page was last updated <%var when%>;
The page itself was updated <%var now%>
</p>

</body>
Expand Down

0 comments on commit 5d52303

Please sign in to comment.