svn-log.pl

linux subdivision ying gai ke yi le ba

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