116 |
} |
} |
117 |
|
|
118 |
our $html = ''; |
our $html = ''; |
119 |
sub html { |
|
120 |
$html .= join("\n", @_); |
$self->add_css(qq| |
121 |
} |
.files { color: #888; } |
122 |
|
.date, .revision { color: #666; } |
123 |
|
.message { padding-bottom: 0.5em; } |
124 |
|
|
125 |
|
ins { color: #8c8 } |
126 |
|
del { color: #c88 } |
127 |
|
|); |
128 |
|
|
129 |
$self->iterator( sub { |
$self->iterator( sub { |
130 |
my $e = shift; |
my $e = shift; |
135 |
$date =~ s/T/ /; |
$date =~ s/T/ /; |
136 |
$date =~ s/\.\d+Z$//; |
$date =~ s/\.\d+Z$//; |
137 |
|
|
138 |
html '<p><tt>'.$date.'</tt> <em>',$e->{'author'},'</em> <tt style="color:#808080">r',$e->{'revision'},'</tt></p>'; |
$html .= qq|<div><span class="date">$date</span> <em>$e->{author}</em> <span class="revision">$e->{revision}</span></div>|; |
139 |
|
|
140 |
|
my $msg = $e->{'msg'}; |
141 |
|
$msg = '' if ref($msg); # FIXME why do I need this, dammit? |
142 |
|
if ( $msg ) { |
143 |
|
$msg = encode( $msg ); |
144 |
|
$msg = qq|<div class="message">$msg</div>|; |
145 |
|
} |
146 |
|
|
147 |
my @files; |
my @files; |
148 |
|
|
158 |
} |
} |
159 |
} |
} |
160 |
|
|
161 |
my $msg = $e->{'msg'}; |
$html .= qq|<blockquote>$msg<div class="files">| . join(", ",@files) . qq|<div></blockquote>|; |
|
$msg = '' if ref($msg); # FIXME why do I need this, dammit? |
|
|
$msg = encode( $msg ); |
|
|
|
|
|
html '<blockquote><p><tt style="color:#808080">',join(", ",@files),'</tt> ',$msg,'</p></blockquote>'; |
|
162 |
|
|
163 |
}); |
}); |
164 |
|
|