--- trunk/lib/Frey/SVN.pm	2009/01/24 19:35:41	1013
+++ trunk/lib/Frey/SVN.pm	2009/04/27 18:45:14	1066
@@ -8,10 +8,12 @@
 
 extends 'Frey';
 with 'Frey::Web';
-#with 'Frey::Storage';
+with 'Frey::Storage';
+with 'Frey::HTML::Diff';
 
 use XML::Simple;
 use DateTimeX::Easy;
+use Text::Diff::Parser;
 
 has repository => (
 	is => 'rw',
@@ -31,6 +33,12 @@
 	default => 50,
 );
 
+has include_diff => (
+	is => 'ro',
+	isa => 'Bool',
+	default => 1,
+);
+
 sub iterator {
 	my ($self,$coderef) = @_;
 	
@@ -57,10 +65,12 @@
 	warn "# path $path\n";
 
 	my $cmd;
+	my $svn_path = $path;
+
 	if ($path =~ m#file://# || -e "$path/.svn") {
 		$cmd = "svn log -v --xml $path";
 	} else {
-		my $svn_path = sh_regex('svk info', qr#Mirrored From:\s+([^,]+)#i);
+		$svn_path = sh_regex('svk info', qr#Mirrored From:\s+([^,]+)#i);
 
 		if (! $svn_path) {
 
@@ -97,6 +107,20 @@
 
 	foreach my $e (@{$xml->{'logentry'}}) {
 		warn "# e = ",$self->dump( $e ) if $self->debug;
+
+		if ( $self->include_diff ) {
+			my $rev = $e->{'revision'};
+			my $file = $svn_path;
+			$file =~ s{^\w+:/+}{};
+			my $file = "var/svn/$path.diff";
+			my $diff = $self->load( $file );
+			if ( ! $diff ) {
+				$diff = `svn diff -c $rev $svn_path`;
+				$self->store( $file, $diff );
+			}
+			$e->{diff} .= $diff;
+		}
+
 		$coderef->($e);
 	}
 }
@@ -193,6 +217,8 @@
 			$path_count->{$path}++;
 		}
 
+		my $diff = $self->html_diff( $e->{diff} ) if $e->{diff};
+
 		$html .= qq|
 			<div class="commit">
 				<span class="date">$date</span>
@@ -210,6 +236,7 @@
 				. qq|
 				</div>
 				$msg
+				$diff
 			</div>
 		|;