--- trunk/lib/Frey/SVN.pm	2008/12/09 20:31:31	769
+++ trunk/lib/Frey/SVN.pm	2008/12/10 23:03:04	805
@@ -19,25 +19,15 @@
 	default => 'file:///home/dpavlin/private/svn/Frey',
 );
 
-sub as_markup {
-	my ($self) = @_;
-
-	# extract svk revision: r113@athlon (orig r999): dpavlin | 2005-09-01 20:38:07 +0200
-	my $svk_rev_re = '\s+(r\d+@\w+(\s+\(orig\s+r\d+\))*:\s+\w+\s+\|\s+\d{4}-\d{2}-\d{2}\s+\d{2}:\d{2}:\d{2}\s+\+\d+)\s*';
-
-	sub encode {
-		my $foo = shift;
-		$foo =~ s/$svk_rev_re//gsm;
-		$foo =~ s/</&lt;/g;
-		$foo =~ s/>/&gt;/g;
-		$foo =~ s/"/&quot;/g;
-		$foo =~ s/([\n\r][\n\r]+)/<\/p>$1<p>/gis;
-		$foo =~ s/([\n\r]+)([\-\*]\s+)/$1<br\/>$2/gis;
-		$foo =~ s/([\n\r]+)(r\d+:\s+)/$1<br\/>$2/gis;
-		$foo =~ s/([\n\r]+)(\s+r\d+@)/$1<br\/>$2/gis;		# svk
-		return $foo;
-	}
+has limit => (
+	is => 'rw',
+	isa => 'Int',
+	default => 50,
+);
 
+sub iterator {
+	my ($self,$coderef) = @_;
+	
 	sub sh_regex($$) {
 		my ($cmd,$regex) = @_;
 		open(my $sh, $cmd . ' |') || die "sh_regex failed on $cmd: $!";
@@ -87,6 +77,8 @@
 		$cmd = "svn log -v --xml $svn_path";
 	}
 
+	$cmd .= " --limit " . $self->limit if $self->limit;
+
 	warn "# $cmd\n";
 	open(my $fh, $cmd .' |') || die "failed $cmd: $!";
 	my $log;
@@ -97,12 +89,39 @@
 
 	my $xml = XMLin($log, ForceArray => [ 'logentry', 'path' ]);
 
+	foreach my $e (@{$xml->{'logentry'}}) {
+		warn "# e = ",$self->dump( $e );
+		$coderef->($e);
+	}
+}
+
+sub as_markup {
+	my ($self) = @_;
+
+	# extract svk revision: r113@athlon (orig r999): dpavlin | 2005-09-01 20:38:07 +0200
+	our $svk_rev_re = '\s+(r\d+@\w+(\s+\(orig\s+r\d+\))*:\s+\w+\s+\|\s+\d{4}-\d{2}-\d{2}\s+\d{2}:\d{2}:\d{2}\s+\+\d+)\s*';
+
+	sub encode {
+		my $foo = shift;
+		$foo =~ s/$svk_rev_re//gsm;
+		$foo =~ s/</&lt;/g;
+		$foo =~ s/>/&gt;/g;
+		$foo =~ s/"/&quot;/g;
+		$foo =~ s/([\n\r][\n\r]+)/<\/p>$1<p>/gis;
+		$foo =~ s/([\n\r]+)([\-\*]\s+)/$1<br\/>$2/gis;
+		$foo =~ s/([\n\r]+)(r\d+:\s+)/$1<br\/>$2/gis;
+		$foo =~ s/([\n\r]+)(\s+r\d+@)/$1<br\/>$2/gis;		# svk
+		return $foo;
+	}
+
 	our $html = '';
 	sub html {
 		$html .= join("\n", @_);
 	}
 
-	foreach my $e (@{$xml->{'logentry'}}) {
+	$self->iterator( sub {
+		my $e = shift;
+
 		my $rev = $e->{'revision'};
 		my $date = $e->{'date'};
 
@@ -127,9 +146,39 @@
 
 		html '<blockquote><p><tt style="color:#808080">',join(", ",@files),':</tt> ',encode($e->{'msg'}),'</p></blockquote>';
 
-	}
+	});
 
 	return $html;
 }
 
+sub codeswarm_as_markup {
+	my ($self) = @_;
+
+	$self->content_type('text/xml');
+
+	my $file_events = '';
+
+	$self->iterator( sub {
+		my $e = shift;
+		
+		my $rev = $e->{'revision'};
+		my $date = $e->{'date'};
+		my $author = $e->{'author'};
+
+		foreach my $p (@{$e->{'paths'}->{'path'}}) {
+			my ($action,$path) = ($p->{'action'},$p->{'content'});
+			$file_events .= qq|\t<event filename="$path" date="$date" author="$author" />\n|;
+		}
+
+	});
+
+	return qq|<?xml version="1.0"?>
+	<!-- One commit per day for one month by a documenter and programmer. -->
+	<file_events>
+	$file_events
+	</file_events>
+	|;
+
+}
+
 1;