tools/release-do-CLog

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 die "$0: must be run from top-level directory.\n"
   6     unless -r "configure.ac" && -r 'ChangeLog';
   7
   8 my $newversion = $ARGV[0];
   9 die "$0: you must supply the new version as argument.\n"
  10     unless $newversion;
  11
  12 my $email = $ENV{'EMAIL'};
  13 die "$0: you must define \$EMAIL.\n"
  14     unless defined $email;
  15
  16 my $name = $ENV{'NAME'};
  17 die "$0: you must define \$NAME.\n"
  18     unless defined $name;
  19
  20 my ($y,$m,$d) = (localtime (time))[5,4,3];
  21 $y += 1900;
  22 $m++;
  23 my $date = sprintf ("%04d-%02d-%02d", $y, $m, $d);
  24
  25 my $entry = "$date  $name <$email>\n\n\t* Release $newversion\n\n";
  26
  27 # -----------------------------------------------------------------------------
  28 # These are shared directories.
  29 my %exceptions = ('macros' => 1, 'intl' => 1);
  30
  31 my $clogstxt = `find . -name ChangeLog -print`;
  32 chomp $clogstxt;
  33 my @clogs = split ("\n", $clogstxt);
  34
  35 foreach my $filename (sort @clogs) {
  36     my $dir = $filename;
  37     $dir =~ s|/ChangeLog$||;
  38     my $fulldir = $dir;
  39     $dir =~ s|^\./||;
  40     if ($exceptions{$dir} || $fulldir =~ m{/tools/win32/}) {
  41         print "Skipping $filename\n";
  42         next;
  43     }
  44
  45     local (*SRC);
  46     local (*DST);
  47     print "Updating $filename...\n";
  48
  49     open (*SRC, "<$filename") || die "$0: failed to read $filename: $!\n";
  50     open (*DST, ">$filename.tmp") || die "$0: failed to write $filename.tmp: $!\n";
  51     print DST $entry;
  52     foreach (<SRC>) { print DST; }
  53     close (*DST);
  54     close (*SRC);
  55
  56     rename ("$filename.tmp", $filename);
  57 }