/[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 16 by dpavlin, Tue Dec 5 23:14:16 2006 UTC revision 17 by dpavlin, Wed Dec 6 23:05:36 2006 UTC
# Line 8  use strict; Line 8  use strict;
8    
9  use lib 'lib';  use lib 'lib';
10    
11    my $repository = shift @ARGV || 'svn://svn.pliva.hr/strix';
12    
13  use SVN::Log;  use SVN::Log;
14  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
15    
# Line 26  my $last_rev = $rev_col->first; Line 28  my $last_rev = $rev_col->first;
28    
29  if ($last_rev) {  if ($last_rev) {
30          $start_rev = $last_rev->revision;          $start_rev = $last_rev->revision;
31          warn "Update from revision $start_rev to $end_rev\n";          warn "Index $repository rev $start_rev - $end_rev\n";
32  }  }
33    
34  SVN::Log::retrieve({  SVN::Log::retrieve({
35          repository => "svn://svn.pliva.hr/strix",          repository => $repository,
36          start => $start_rev,          start => $start_rev,
37          end => $end_rev,          end => $end_rev,
38          callback => sub {          callback => sub {
39                  my ($paths,$revision,$author,$date,$message) = @_;                  my ($paths,$revision,$author,$date,$message) = @_;
40    
41                  return if ($revision <= $last_rev->revision);                  return if ($last_rev && $revision <= $last_rev->revision);
42    
43                  $author ||= 'anonymous';                  $author ||= 'anonymous';
44    
Legend:
Removed from v.16  
changed lines
  Added in v.17
  ViewVC Help
Powered by ViewVC 1.1.26