2
# Generate a nice log format for the Subversion repository.
6
my $repos = shift @ARGV;
8
# Make sure we got all the arguments we wanted
9
if ((not defined $repos) or ($repos eq ''))
11
print "Usage: svn_logs.pl REPOS-PATH\n\n";
15
# Get the youngest revision in the repository.
16
my $youngest = `svnlook youngest $repos`;
17
chomp $youngest; # don't want carriage return
18
die ("Error using svnlook to get youngest revision") if (not $youngest =~
21
while ($youngest >= 1)
23
print "--------------------------------------------------------\n";
24
print "Revision $youngest\n";
25
print `svnlook info $repos -r $youngest`;