-<:
-if (open my $log, '-|', 'git log -20 --since=2\ week\ ago --pretty=%ai%x00%s%x00%h') {
- print "<h1>Recent updates</h1>\n\n";
- print "<dl>\n";
- while (readline $log) {
- chomp;
- my ($date, $subject, $commit) = split /\0/, $_;
- $date =~ s{( .+)}{<small>$1</small>};
- printf '<dt>%s</dt><dd>%s</dd>'."\n", $date, $subject;
- }
- print "</dl>\n\n";
-}
-