- if ($line =~ /^([0-9]{4}-[0-9]{2}-[0-9]{2}.*?)\s+([^\s]+)\s+<([^\s]+)>$/) {
- print "\n<font color=\"blue\">\n<b>";
- print HTML_encode($1);
- print "</b>\n<i>";
- print " committed by <a href=\"mailto:$3\" style=\"text-decoration: none;\">";
- print HTML_encode("$2");
- print "</a></i>\n</font>\n"
- }
- elsif ($line =~ /^([0-9]{4}-[0-9]{2}-[0-9]{2}.*?)\s+([^\s]+)$/) {
- print "\n<font color=\"blue\">\n<b>";
- print HTML_encode($1);
- print "</b>\n<i>";
- print " committed by ";
- print HTML_encode("$2");
- print "</i>\n</font>\n"
+ if ($line =~ /^([0-9]{4}-[0-9]{2}-[0-9]{2}.*?)\s+([^\s]+)(\s+<([^\s]+)>)?$/) {
+ my($datetime) = escapeHTML($1);
+ my($committer) = escapeHTML($2);
+ my($email) = $4;
+
+ if($sec != $secwho) {
+ if($sec == $seclog) {
+ @log = &trim_array(@log);
+ foreach my $logline (@log) {
+ $logline =~ s/^\t//;
+ print escapeHTML("$logline\n");
+ }
+ @log = ();
+ print <<"END";
+</pre>
+ </div>
+END
+ }
+ if($firstentry) {
+ $firstentry = 0;
+ print <<"END";
+ <div class="logitemfirst">
+END
+ }
+ else {
+ print <<"END";
+ <div class="logitem">
+END
+ }
+ $sec = $secwho;
+ }
+
+ print <<"END";
+ <p>
+ <b>
+ $datetime
+ </b>
+ committed by
+END
+ if(defined $email) {
+ print <<"END";
+ <a href="mailto:$email">$committer</a>
+END
+ }
+ else {
+ print <<"END";
+ $committer
+END
+ }
+ print <<"END";
+ </p>
+END