--- trunk/lib/Frey/SVN.pm 2008/12/11 00:27:19 807 +++ trunk/lib/Frey/SVN.pm 2009/01/09 23:26:25 979 @@ -91,7 +91,7 @@ my $xml = XMLin($log, ForceArray => [ 'logentry', 'path' ]); foreach my $e (@{$xml->{'logentry'}}) { - warn "# e = ",$self->dump( $e ); + warn "# e = ",$self->dump( $e ) if $self->debug; $coderef->($e); } } @@ -108,17 +108,39 @@ $foo =~ s/</g; $foo =~ s/>/>/g; $foo =~ s/"/"/g; - $foo =~ s/([\n\r][\n\r]+)/<\/p>$1
/gis;
+# $foo =~ s/([\n\r][\n\r]+)/$1
/gis;
$foo =~ s/([\n\r]+)([\-\*]\s+)/$1
$2/gis;
$foo =~ s/([\n\r]+)(r\d+:\s+)/$1
$2/gis;
$foo =~ s/([\n\r]+)(\s+r\d+@)/$1
$2/gis; # svk
return $foo;
}
- our $html = '';
- sub html {
- $html .= join("\n", @_);
- }
+ our $html = qq|
'.$date.' ',$e->{'author'},' r',$e->{'revision'},'
'; + my $msg = $e->{'msg'}; + $msg = '' if ref($msg); # FIXME why do I need this, dammit? + if ( $msg ) { + $msg = encode( $msg ); + $msg = qq| |; + } my @files; @@ -140,12 +167,20 @@ push @files, "$path"; } elsif ($action eq "D") { push @files, "'; + $html .= qq| +',join(", ",@files),': ',encode($e->{'msg'}),'