summaryrefslogtreecommitdiff
path: root/release-process
diff options
context:
space:
mode:
authorPhil Pennock <pdp@exim.org>2011-02-06 20:50:09 -0500
committerPhil Pennock <pdp@exim.org>2011-02-06 20:50:09 -0500
commitba41f854dbd18de752007eda385de12aa1fc4afb (patch)
treef4b9ff3b7f0ad993593c85269da91de6f0bd327f /release-process
parentbd4c97599a4d321677cdf677275022f6660930f9 (diff)
RC releases get marked as such in version.h.
Release-tools only, no NewStuff/ChangeLog
Diffstat (limited to 'release-process')
-rwxr-xr-xrelease-process/scripts/mk_exim_release.pl50
1 files changed, 50 insertions, 0 deletions
diff --git a/release-process/scripts/mk_exim_release.pl b/release-process/scripts/mk_exim_release.pl
index 0697124ca..f9dbe21a3 100755
--- a/release-process/scripts/mk_exim_release.pl
+++ b/release-process/scripts/mk_exim_release.pl
@@ -11,6 +11,7 @@ use File::Path;
use File::Temp;
use FindBin;
use Getopt::Long;
+use IO::File;
use Pod::Usage;
my $debug = 0;
@@ -109,6 +110,54 @@ sub unpack_tree {
# ------------------------------------------------------------------
+sub adjust_version_extension {
+ my $context = shift;
+
+ return if ($context->{release} eq $context->{trelease});
+
+ my $variant = substr( $context->{release}, length($context->{trelease}) );
+ if ( $context->{release} ne $context->{trelease} . $variant ) {
+ die "Broken version numbering, I'm buggy";
+ }
+
+ my $srcdir = File::Spec->catdir( $context->{release_tree}, 'src', 'src' );
+ my $version_h = File::Spec->catfile( $srcdir, 'version.h' );
+
+ my $fh = new IO::File $version_h, 'r';
+ die "Cannot read version.h: $!\n" unless ( defined $fh );
+ my @lines = <$fh>;
+ $fh->close() or die "Failed to close-read($version_h): $!\n";
+
+ my $found = 0;
+ my $i;
+ for ( $i = 0 ; $i < @lines ; ++$i ) {
+ if ( $lines[$i] =~ /EXIM_VARIANT_VERSION/ ) {
+ $found = 1;
+ last;
+ }
+ }
+ die "Cannot find version.h EXIM_VARIANT_VERSION\n" unless $found;
+ unless ( $lines[$i] =~ m/^\s* \# \s* define \s+ EXIM_VARIANT_VERSION \s+ "(.*)" \s* $/x ) {
+ die "Broken version.h EXIM_VARIANT_VERSION line\n";
+ }
+ if ( length $1 ) {
+ print( "WARNING: version.h has a variant tag already defined: $1\n" );
+ print( " not changing that tag\n" );
+ return;
+ }
+
+ $lines[$i] = qq{#define EXIM_VARIANT_VERSION\t\t"$variant"\n};
+ # deliberately not verbose constrained:
+ print( "Adjusting version.h for $variant release.\n" );
+
+ $fh = new IO::File $version_h, "w";
+ die "Cannot write version.h: $!\n" unless ( defined $fh );
+ $fh->print( @lines );
+ $fh->close() or die "Failed to close-write($version_h): $!\n";
+}
+
+# ------------------------------------------------------------------
+
sub build_html_documentation {
my $context = shift;
@@ -318,6 +367,7 @@ sub create_tar_files {
export_git_tree($context);
chdir( $context->{directory} ) || die;
unpack_tree($context);
+ adjust_version_extension($context);
build_documentation($context);
build_package_directories($context);
create_tar_files($context);