- my ($action, $r) = @$_;
- my $m = $l->{logmsg}->{$r};
- my $m_short = join ' ', map { s/^ (?!git-svn-id)(.)/$1/ ? $_ : () } split /\n/, $m;
- $m_short = substr $m_short, 0, $width - 11 - 1 - 40 - 1;
- printf "%s%-11s%s %s %s\n", $color{$action}, $name{$action}, $color{''}, $r, $m_short;
+ print "Content-Type: text/html\n\n<table border>\n";
+ for(@l)
+ {
+ my ($action, $r) = @$_;
+ my $m = $l->{logmsg}->{$r};
+ my $m_short = join ' ', map { s/^ (?!git-svn-id)(.)/$1/ ? $_ : () } split /\n/, $m;
+ printf "<tr style=\"%s\"><td>%s</td><td><a href=\"%s%s\">%s</a></td><td style=\"white-space: pre\">%s</td></tr>\n", $html_style{$action}, $name{$action}, escapeHTML($cgi_url), escapeHTML($r), escapeHTML($r), escapeHTML($m_short);
+ }
+ print "</table>\n";
+ }
+ else
+ {
+ for(@l)
+ {
+ my ($action, $r) = @$_;
+ my $m = $l->{logmsg}->{$r};
+ my $m_short = join ' ', map { s/^ (?!git-svn-id)(.)/$1/ ? $_ : () } split /\n/, $m;
+ $m_short = substr $m_short, 0, $width - 11 - 1 - 40 - 1;
+ printf "%s%-11s%s %s %s\n", $color{$action}, $name{$action}, $color{''}, $r, $m_short;
+ }