' title="RSS feed of repository updates"',
' href="http://git.shiar.nl/sheet.git/rss">',
],
+ data => ['UPDATE'],
});
:>
but you're free to use, print, alter, and redistribute under the AGPL license.
</p>
<:
-my @format = ('--date=short', "--pretty=%ad (%ar)\t%s");
-if (open my $log, '-|', git => 'log', -1, @format) {{
+if (open my $log, '<', 'UPDATE') {{
my $line = readline $log;
$line or next; # explicitly ignore empty input
EscapeHTML $line;
my ($date, $subject) = split /[\t\n]/, $line;
$date =~ s/ \K/<small>/ and $date .= '</small>';
+ $subject =~ s{\A(\w+)(?=: )}{showlink($1, -e "$1.plp" && "/$1")}e;
say "<p><strong>Last update</strong>: $date $subject</p>";
}}