"SfR Fresh" - the SfR Freeware/Shareware Archive

Member "inn-2.4.5/support/mkchangelog" of archive inn-2.4.5.tar.gz:

As a special service "SfR Fresh" has tried to format the requested source page into HTML format using source code syntax highlighting with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. That can be also achieved for any archive member file by clicking within an archive contents listing on the first character of the file(path) respectively on the according byte size field. 
    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";