contrib/client-side/svn-log.pl

   1 #!/usr/bin/perl
   2 # Generate a nice log format for the Subversion repository.
   3
   4 use strict;
   5
   6 my $repos = shift @ARGV;
   7
   8 # Make sure we got all the arguments we wanted
   9 if ((not defined $repos) or ($repos eq ''))
  10    {
  11        print "Usage: svn_logs.pl REPOS-PATH\n\n";
  12        exit;
  13    }
  14
  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 =~
  19 /^\d/);
  20
  21 while ($youngest >= 1)
  22    {
  23        print "--------------------------------------------------------\n";
  24        print "Revision $youngest\n";
  25        print `svnlook info $repos -r $youngest`;
  26        print "\n";
  27        $youngest--;
  28    }
  29