#! /usr/bin/perl
##
## A code check script that summarizes the number of commits (ignore commits
## due to the nightly build process
##

if (! @ARGV) {
   print "commit_sumary <logfile> <svn-repository> [<svn-repository> ...]\n";
   exit(1);
}

`touch $ARGV[0]`;
#
# Run the svn_commit_summary tool on the SVN repositories
#
$i = 1;
while ($i <= $#ARGV) {
  `svn_commit_summary -xml $ARGV[$i] 1 1 1 1 >> $ARGV[0]`;
  $i = $i + 1;
  }

$tmp = `cat $ARGV[0]`;
print "\n";
print "$tmp";
print "\n";
