/[SVNBrowser]/trunk/svn-indexer.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/svn-indexer.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by dpavlin, Tue Dec 5 10:17:28 2006 UTC revision 11 by dpavlin, Tue Dec 5 23:14:16 2006 UTC
# Line 19  my ($start_rev,$end_rev) = (1, 'HEAD'); Line 19  my ($start_rev,$end_rev) = (1, 'HEAD');
19    
20  my $system_user = SVNBrowser::CurrentUser->superuser;  my $system_user = SVNBrowser::CurrentUser->superuser;
21    
22    my $rev_col = SVNBrowser::Model::RevisionCollection->new(current_user => $system_user);
23    $rev_col->unlimit;
24    $rev_col->order_by({ column => 'revision', order => 'DES' });
25    my $last_rev = $rev_col->first;
26    
27    if ($last_rev) {
28            $start_rev = $last_rev->revision;
29            warn "Update from revision $start_rev to $end_rev\n";
30    }
31    
32  SVN::Log::retrieve({  SVN::Log::retrieve({
33          repository => "svn://svn.pliva.hr/strix",          repository => "svn://svn.pliva.hr/strix",
34          start => $start_rev,          start => $start_rev,
# Line 26  SVN::Log::retrieve({ Line 36  SVN::Log::retrieve({
36          callback => sub {          callback => sub {
37                  my ($paths,$revision,$author,$date,$message) = @_;                  my ($paths,$revision,$author,$date,$message) = @_;
38    
39                    return if ($revision <= $last_rev->revision);
40    
41                  $author ||= 'anonymous';                  $author ||= 'anonymous';
42    
43                  my $r = SVNBrowser::Model::Revision->new(current_user => $system_user);                  my $r = SVNBrowser::Model::Revision->new(current_user => $system_user);
Legend:
Removed from v.1  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.26