+<:
+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";
+}
+