chiark / gitweb /
rename recentact to lowvol
[inn-innduct.git] / 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";