--- trunk/svn-indexer.pl	2006/12/05 10:17:28	1
+++ trunk/svn-indexer.pl	2006/12/06 23:05:36	17
@@ -8,6 +8,8 @@
 
 use lib 'lib';
 
+my $repository = shift @ARGV || 'svn://svn.pliva.hr/strix';
+
 use SVN::Log;
 use Data::Dump qw/dump/;
 
@@ -19,13 +21,25 @@
 
 my $system_user = SVNBrowser::CurrentUser->superuser;
 
+my $rev_col = SVNBrowser::Model::RevisionCollection->new(current_user => $system_user);
+$rev_col->unlimit;
+$rev_col->order_by({ column => 'revision', order => 'DES' });
+my $last_rev = $rev_col->first;
+
+if ($last_rev) {
+	$start_rev = $last_rev->revision;
+	warn "Index $repository rev $start_rev - $end_rev\n";
+}
+
 SVN::Log::retrieve({
-	repository => "svn://svn.pliva.hr/strix",
+	repository => $repository,
 	start => $start_rev,
 	end => $end_rev,
 	callback => sub {
 		my ($paths,$revision,$author,$date,$message) = @_;
 
+		return if ($last_rev && $revision <= $last_rev->revision);
+
 		$author ||= 'anonymous';
 
 		my $r = SVNBrowser::Model::Revision->new(current_user => $system_user);