#!/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--; }