support/mkchangelog

   1 #! /usr/bin/perl -w
   2
   3 ##  $Id: mkchangelog 7473 2005-12-24 21:29:22Z eagle $
   4 ##
   5 ##  Generate a ChangeLog from svn log using svn2cl.
   6 ##
   7 ##  This script prompts the user for a date from which to pull log entries
   8 ##  and the prefix to strip from file names and generates a ChangeLog file
   9 ##  by running svn2cl.
  10
  11 $| = 1;
  12
  13 print "Enter prefix to strip from file names: ";
  14 my $prefix = <STDIN>;
  15 chomp $prefix;
  16
  17 print "Enter date to start log at (YYYY-MM-DD): ";
  18 my $date = <STDIN>;
  19 chomp $date;
  20
  21 print "\nRunning svn2cl....\n";
  22 system ("svn2cl --strip-prefix=$prefix --group-by-day -r 'HEAD:{$date}'") == 0
  23     or die "svn2cl exited with status " . ($? >> 8) . "\n";