svn-log.pl   [plain text]

#!/usr/bin/perl
# Generate a nice log format for the Subversion repository.

use strict;

my $repos = shift @ARGV;

# Make sure we got all the arguments we wanted
if ((not defined $repos) or ($repos eq ''))
   {
       print "Usage: svn_logs.pl REPOS-PATH\n\n";
       exit;
   }

# Get the youngest revision in the repository.
my $youngest = `svnlook youngest $repos`;
chomp $youngest;    # don't want carriage return
die ("Error using svnlook to get youngest revision") if (not $youngest =~
/^\d/);

while ($youngest >= 1)
   {
       print "--------------------------------------------------------\n";
       print "Revision $youngest\n";
       print `svnlook info $repos -r $youngest`;
       print "\n";
       $youngest--;
   }