Two-phase queue run perf: parallel processes for phase one
[exim.git] / release-process / scripts / mk_exim_release
1 #!/usr/bin/env perl
2 # Copyright (c) The Exim Maintainers 2016-2018
3
4 use strict;
5 use warnings;
6 use Carp;
7 use Cwd qw'abs_path';
8 use File::Basename;
9 use File::Path qw(make_path remove_tree);
10 use File::Temp;
11 use Getopt::Long;
12 use IO::File;
13 use Pod::Usage;
14 use Digest::SHA;
15 use feature 'state';
16 use if $ENV{DEBUG} => 'Smart::Comments';
17
18 my $ME = basename $0;
19
20
21 my $debug   = undef;
22 my $verbose = 0;
23
24 # MAJOR.MINOR[.SECURITY[.FIXES]][-RCX]
25 # 4    .90    .0        .22      -RC1
26 my $version_pattern = qr/
27     (?<release>
28     (?<target_release>
29            (?<major>\d)         # 4
30          \.(?<minor>\d\d)       #  .90
31       (?:\.(?<security>\d+)     #     .0
32       (?:\.(?<fixes>)\d+)?)?    #       .22
33     )                           # target-release ->|
34        (?:-(?<rc>RC\d+)?)?      #          -RC1
35     )
36 /x;
37
38 my $quick_version_pattern = qr/
39    (?<release>
40    (?<last_tag>
41            (?<major>\d)         # 4
42          \.(?<minor>\d\d)       #  .90
43       (?:\.(?<security>\d+)     #     .0
44       (?:\.(?<fixes>)\d+)?)?    #       .22
45    )                            # last-tag ->|
46        (?:-(?<quick>\d+-g[[:xdigit:]]+))?     #  -3-gdeadbef
47     )
48 /x;
49
50 # ------------------------------------------------------------------
51
52 package Context {
53     use strict;     # not strictly necessary yet, until in an own package
54     use warnings;   # not strictly necessary yet, ...
55     use File::Spec::Functions qw'splitpath catfile catdir splitdir';
56     use File::Path qw'make_path remove_tree';
57     use File::Copy;
58     use Cwd qw'abs_path';
59     use Carp;
60
61     package PWD {
62         use Cwd;
63         sub TIESCALAR { bless do {\my $x} }
64         sub FETCH { cwd }
65     }
66
67     tie my $cwd => 'PWD' or die;    # this returns the current dir now, dynamically
68
69     sub new {
70         my $class = shift;
71         return bless { @_ } => $class;
72     }
73
74     sub check_version {
75         my $context = shift;
76         my $version = shift // 'HEAD';
77
78         #
79         # v => {
80         #   release =>                   4.92-RC4 |    4.92-27-gabcdef
81         #   target_release|last_tag =>   4.92     |    4.92
82         #
83         #   major    =>  4
84         #   minor    =>  92
85         #   security =>
86         #   fixes    =>
87         #
88         #   rc|quick =>   RC4 | 27-gabcdef
89         #   }
90
91         #
92         # v => {
93         #   release =>                   4.92-RC4 |    4.92-27-gabcdef-dirty
94         #   target_release|last_tag =>   4.92     |    4.92
95         #
96         #   major    =>  4
97         #   minor    =>  92
98         #   security =>
99         #   fixes    =>
100         #
101         #   rc|quick =>   RC4 | 27-gabcdef-dirty
102         #   }
103
104         if ($context->{quick}) {
105             # Try to find suitable version description
106             chomp(my $describe = do {   # we wrap it into a open() to avoid hassle with
107                 open(my $fh, '-|',      # strange version descriptions
108                     'git', describe => $version) or die;
109                 <$fh>
110                 } // exit 1);
111             $describe =~ /$quick_version_pattern/;
112
113             %{$context->{v}} = %+;
114             ($context->{commit}) = $version // ($context->{v}{quick} =~ /g([[:xdigit:]]+)/);
115         }
116         else {
117             croak "The given version number does not look right - $version"
118                 if not $version =~ /$version_pattern/;
119             %{$context->{v}} = %+;
120
121             # find a valid vcs tag matching the version
122             my $pattern = "$context->{pkgname}-$context->{v}{release}" =~ s/[-_.]/[-_.]/gr;
123             chomp(my @tags = qx{git tag --list '$pattern'});
124
125             croak "The given version is ambigous, tags: @tags\n" if @tags > 1;
126             croak "The given version does not exist (no such tag: exim-$version)\n" if @tags == 0;
127
128             $context->{commit} = $tags[0];
129             # target_release: the release we aim to reach with release candidates
130             # FIXME: re-construct from the parsed version number
131         }
132
133         die "$ME: This script doesn't work for versions prior 4.92-RCx. "
134            ."Please checkout an older version.\n"
135             if $context->{v}{major} < 4
136             or $context->{v}{major} == 4 && $context->{v}{minor} < 92;
137
138         ### v: $context->{v}
139
140     }
141
142
143     # We prefer gtar to tar if gtar exists in $PATH
144     sub override_tar_cmd {
145         my $context = shift;
146         my $tar = $context->{tar_cmd};
147
148         return unless $tar eq 'tar';
149
150         foreach my $d (File::Spec->path()) {
151             my $p = catfile($d, 'gtar');
152             if (-x $p) {
153                 $context->{tar_cmd} = $p;
154                 print "Switched tar command to: $p\n" if $verbose;
155                 return;
156             }
157         }
158     }
159
160     sub prepare_working_directory {
161         my $context = shift;
162         my $workspace = $context->{workspace};
163
164         if (not defined $workspace) {
165             $workspace = $context->{workspace} = File::Temp->newdir(File::Spec->tmpdir . '/exim-packaging-XXXX');
166         }
167         else {
168             # ensure the working directory is not in place
169             if (-e $workspace) {
170                 if ($context->{delete}) {
171                     print "Deleting existing $workspace\n" if $verbose;
172                     remove_tree $workspace, { verbose => $verbose || $debug };
173                 }
174                 else {
175                     croak "Working directory $workspace exists" if -e $workspace;
176                 }
177             }
178
179             # create base directory
180             make_path( $context->{directory}, { verbose => $verbose || $debug } );
181         }
182
183         # Set(!) and create subdirectories
184         foreach (qw(vcs_export pkg_tars pkg_trees tmp)) {   # {dookbook}
185             make_path(
186                 $context->{d}{$_} = catdir($workspace, $_),
187                 { verbose => $verbose || $debug });
188         }
189     }
190
191     sub export_git_tree {
192         my $context = shift;
193
194         # build git command
195         my $archive_file = $context->{tmp_archive_file} = sprintf'%s/%s-%s.tar', $context->{d}{tmp}, $context->{pkgname}, $context->{v}{release};
196         ### $archive_file
197         my @cmd = ( 'git', 'archive', '--format=tar', "--output=$archive_file", $context->{commit} );
198         ### @cmd
199         # run git command
200         print "[$cwd] Running: @cmd\n" if $verbose;
201         0 == system @cmd or croak "Export failed";
202     }
203
204     sub unpack_tree {
205         # TODO: Why can't we combine the export_git_tree with the
206         # unpack_tree function?
207         my $context = shift;
208
209         ### $context
210         die "Cannot see archive file\n" unless -f $context->{tmp_archive_file};
211         my @cmd = ('tar',
212             xf => $context->{tmp_archive_file},
213             -C => $context->{d}{vcs_export} );
214
215         # run  command
216         print "[$cwd] Running: @cmd\n" if $verbose;
217         system @cmd and croak "Unpack failed\n";
218
219     }
220
221     sub make_version_script {
222         my $context = shift;
223
224         #my $variant = substr( $context->{v}{release}, length($context->{v}{target_release}) );
225         #if ( $context->{v}{release} ne $context->{v}{target_release} . $variant ) {
226         #    die "Broken version numbering, I'm buggy";
227         #}
228
229
230         # Work
231         if (not my $pid = fork // die "$ME: Cannot fork: $!\n") {
232
233             my $source_tree    = catdir($context->{d}{vcs_export}, 'src', 'src');
234             ### $source_tree
235
236             chdir $source_tree or die "chdir $source_tree: $!\n";
237
238             croak "WARNING: version.sh already exists - leaving it in place\n"
239                 if -f 'version.sh';
240
241             # Currently (25. Feb. 2016) the mk_exim_release.pl up to now can't
242             # deal with security releases.!? So we need a current
243             # mk_exim_release.pl. But if we use a current (master), the
244             # reversion script returns wrong version info (it's running inside
245             # the Git tree and uses git --describe, which always returns the
246             # current version of master.) I do not want to change the old
247             # reversion scripts (in 4.86.1, 4.85.1).
248             #
249             # Thus we've to provide the version.sh, based on the info we have
250             # about the release. If reversion finds this, it doesn't try to find
251             # it's own way to get a valid version number from the git.
252             #
253             # 4.89 series: the logic here did not handle _RC<N> thus breaking RC
254             # status in versions.  nb: rc in context should be same as $variant
255             # in local context.
256
257             #my $stamp = $context->{minor} ? '_'.$context->{minor} : '';
258             #$stamp .= $context->{rc} if $context->{rc};
259             my $release = $context->{quick} ? $context->{v}{last_tag}
260                                             : $context->{v}{target_release};
261
262             my $variant =
263                   $context->{v}{rc} ? $context->{v}{rc}
264                 : $context->{v}{quick} ? $context->{v}{quick}
265                 : '';
266
267             print "[$cwd] create version.sh\n" if $verbose;
268             open(my $v, '>', 'version.sh') or die "Can't open version.sh for writing: $!\n";
269             print {$v} <<__;
270 # initial version automatically generated by $0
271 EXIM_RELEASE_VERSION=$release
272 EXIM_VARIANT_VERSION=$variant
273 EXIM_COMPILE_NUMBER=0
274 # echo "[[[ \$EXIM_RELEASE_VERSION | \$EXIM_VARIANT_VERSION | \$EXIM_COMPILE_NUMBER ]]]"
275 __
276             close $v  or die "$0: Can not close $source_tree/version.h: $!\n";
277             unlink 'version.h' or die "$ME: Can not unlink $source_tree/version.h: $!\n"
278                 if -f 'version.h';
279
280             # Later, if we get the reversion script fixed, we can call it again.
281             # For now (25. Feb. 2016) we'll leave it unused.
282             #my @cmd = ('../scripts/reversion', 'release', $context->{commit});
283
284             my @cmd = ('../scripts/reversion', 'release');
285             print "[$cwd] Running: @cmd\n" if $verbose;
286             system(@cmd) and croak "reversion failed";
287
288             die "$ME: failed to create version.sh"
289                 unless -f 'version.sh';
290
291             exit 0;
292         }
293         else {
294             $pid == waitpid($pid, 0) or die "$0: waidpid: $!\n";
295             exit $? >> 8 if $?;
296         }
297     }
298
299     sub build_documentation {
300         my $context = shift;
301         my $docdir = catdir $context->{d}{vcs_export}, 'doc', 'doc-docbook';
302
303         # documentation building does a chdir, so we'll do it in a
304         # subprocess
305         if (not my $pid = fork // die "$ME: Can't fork: $!\n") {
306             chdir $docdir or die "$ME: Can't chdir to $docdir: $!\n";
307             system('./OS-Fixups') == 0 or exit $?;
308             exec $context->{make_cmd},
309                 "EXIM_VER=$context->{v}{release}", 'everything'
310                 or die "$ME: [$cwd] Cannot exec $context->{make_cmd}: $!\n";
311         }
312         else {
313             waitpid($pid, 0);
314             exit $? >> 8 if $?;
315         }
316
317         $context->copy_docbook_files;
318     }
319
320     sub copy_docbook_files {
321         my $context = shift;
322
323         # where the generated docbook files can be found
324         my $docdir = catdir $context->{d}{vcs_export}, 'doc', 'doc-docbook';
325
326         foreach ('spec.xml', 'filter.xml') {
327             my $from = catfile $docdir, $_;
328             my $to = catdir $context->{d}{tmp}; # {dookbook}
329             copy $from => $to    or die $@;
330         }
331     }
332
333     sub build_html_documentation {
334         my $context = shift;
335
336         # where the website docbook source dir is - push the generated
337         # files there
338         {
339             my $webdir = catdir $context->{website_base}, 'docbook', $context->{v}{target_release};
340             make_path $webdir, { verbose => $verbose || $debug };
341             copy catfile($context->{d}{vcs_export}, 'doc', 'doc-docbook', $_)
342                 => $webdir or die $@
343                 for 'spec.xml', 'filter.xml';
344         }
345
346         my $gen    = catfile $context->{website_base}, 'script/gen';
347         my $outdir = catdir $context->{d}{pkg_trees}, "exim-html-$context->{v}{release}";
348
349         make_path $outdir, { verbose => $verbose || $debug };
350
351         my @cmd = (
352             $gen,
353             '--spec'    => catfile($context->{d}{tmp}, 'spec.xml'),     # {dookbook}
354             '--filter'  => catfile($context->{d}{tmp}, 'filter.xml'),   # {dookbok}
355             '--latest'  => $context->{v}{target_release},
356             '--docroot' => $outdir,
357             '--localstatic',
358             ($verbose || $debug ? '--verbose' : ()),
359         );
360
361         print "[$cwd] Executing @cmd\n";
362         0 == system @cmd or exit $? >> 8;
363
364     }
365
366     sub sign {
367         my $context = shift;
368         foreach my $tar (glob "$context->{d}{pkg_tars}/*") {
369             system gpg =>
370             '--quiet', '--batch',
371             defined $context->{gpg}{key}
372                 ? ('--local-user' => $context->{gpg}{key})
373                 : (),
374             '--detach-sig', '--armor', $tar;
375         }
376     }
377
378     sub move_to_outdir {
379         my $context = shift;
380         make_path $context->{OUTDIR}, { verbose => $verbose || $debug };
381         move $_ => $context->{OUTDIR} or die $@
382             for glob "$context->{d}{pkg_tars}/*";
383     }
384
385     sub build_src_package_directory {
386         my $context = shift;
387
388         # build the exim package directory path
389         $context->{d}{src} = catdir $context->{d}{pkg_trees}, "exim-$context->{v}{release}";
390
391         # initially we move the exim-src directory to the new directory name
392         move
393             catdir( $context->{d}{vcs_export}, 'src')
394             => $context->{d}{src}
395         or croak "Move of src dir failed - $!";
396
397         # add Local subdirectory
398         make_path( catdir( $context->{d}{src}, 'Local' ), { verbose => $verbose || $debug } );
399
400         # now add the text docs
401         $context->move_text_docs_into_pkg;
402     }
403
404     sub build_doc_packages_directory {
405         my $context = shift;
406
407         ##foreach my $format (qw/pdf postscript texinfo info/) {
408         foreach my $format (qw/pdf postscript/) {
409             my $target = catdir $context->{d}{pkg_trees}, "exim-$format-$context->{v}{release}", 'doc';
410             make_path( $target, { verbose => $verbose || $debug } );
411
412             # move documents across
413             foreach my $file (
414                 glob(
415                     catfile(
416                         $context->{d}{vcs_export},
417                         'doc',
418                         'doc-docbook',
419                         (
420                             ( $format eq 'postscript' )
421                             ? '*.ps'
422                             : ( '*.' . $format )
423                         )
424                     )
425                 )
426             )
427             {
428                 move( $file, catfile( $target, ( splitpath($file) )[2] ) );
429             }
430         }
431     }
432
433     sub move_text_docs_into_pkg {
434         my $context = shift;
435
436         my $old_docdir = catdir( $context->{d}{vcs_export}, 'doc', 'doc-docbook' );
437         my $old_txtdir = catdir( $context->{d}{vcs_export}, 'doc', 'doc-txt' );
438         my $new_docdir = catdir( $context->{d}{src}, 'doc' );
439         make_path( $new_docdir, { verbose => $verbose || $debug } );
440
441         # move generated documents from docbook stuff
442         foreach my $file (qw/exim.8 spec.txt filter.txt/) {
443             die "Empty file \"$file\"\n" if -z catfile( $old_docdir, $file );
444             move( catfile( $old_docdir, $file ), catfile( $new_docdir, $file ) );
445         }
446
447         # move text documents across
448         foreach my $file ( glob( catfile( $old_txtdir, '*' ) ) ) {
449
450             # skip a few we dont want
451             my $fn = ( splitpath($file) )[2];
452             next
453             if ( ( $fn eq 'ABOUT' )
454                 || ( $fn eq 'ChangeLog.0' )
455                 || ( $fn eq 'test-harness.txt' )
456                 # Debian issue re licensing of RFCs
457                 || ( $fn =~ /^draft-ietf-.*/ )
458                 || ( $fn =~ /^rfc.*/ )
459                 );
460             move( $file, catfile( $new_docdir, $fn ) );
461         }
462     }
463
464     sub create_tar_files {
465         my $context = shift;
466
467         my $pkg_tars    = $context->{d}{pkg_tars};
468         my $pkg_trees = $context->{d}{pkg_trees};
469         my $tar     = $context->{tar_cmd};
470         if ($verbose) {
471             foreach my $c (keys %{ $context->{compressors} }) {
472                 print "Compression: $c\t$context->{compressors}{$c}\n";
473             }
474         }
475
476         # We ideally do not want local system user information in release tarballs;
477         # those are artifacts of use of tar for backups and have no place in
478         # software release packaging; if someone extracts as root, then they should
479         # get sane file ownerships.
480         my @ownership = (
481             '--owner' => $context->{tar_perms}{user},
482             '--group' => $context->{tar_perms}{group},
483             # on this GNU tar, --numeric-owner works during creation too
484             '--numeric-owner'
485         ) if qx/tar --help 2>&1/ =~ /^\s*--owner=/m;
486
487         # See also environment variables set in main, tuning compression levels
488
489         my (%size, %sha256, %sha512);
490
491         foreach my $dir ( glob( catdir( $pkg_trees, ( 'exim*-' . $context->{v}{release} ) ) ) ) {
492             my $dirname = ( splitdir($dir) )[-1];
493             foreach my $comp (keys %{$context->{compressors}}) {
494                 my %compressor = %{$context->{compressors}{$comp}};
495                 next unless $compressor{use};
496
497                 my $basename = "$dirname.tar.$compressor{extension}";
498                 my $outfile = catfile $pkg_tars, $basename;
499
500                 print "Creating: $outfile\n" if $verbose || $debug;
501                 0 == system($tar,
502                     cf => $outfile,
503                         $compressor{flags},
504                         @ownership, -C => $pkg_trees, $dirname)
505                     or exit $? >> 8;
506
507                 # calculate size and md5sum
508                 $size{$basename} = -s $outfile;
509                 $sha256{$basename} = Digest::SHA->new(256)->addfile($outfile)->hexdigest;
510                 $sha512{$basename} = Digest::SHA->new(512)->addfile($outfile)->hexdigest;
511             }
512         }
513
514         # write the sizes file
515         if ($context->{sizes}) {
516             for ([ sizes => 'SIZE' => \%size ],
517                  [ sha256sums => 'SHA256' => \%sha256 ],
518                  [ sha512sums => 'SHA512' => \%sha512 ]) {
519
520                 my $outfile = catfile $pkg_tars, "00-$_->[0].txt";
521                 my $tag = $_->[1];
522                 my $sizes = $_->[2];
523
524                 open my $out, '>', $outfile
525                     or die "$ME: Can't open `$outfile': $!\n";
526
527                 print $out join "\n",
528                     (map { "$tag ($_) = $sizes->{$_}" } sort keys %$sizes),
529                     '';
530
531                 close($out) or die "$ME: Can't close $outfile: $!\n";
532             }
533         }
534     }
535
536     sub do_cleanup {
537         my $context = shift;
538
539         print "Cleaning up\n" if $verbose;
540         remove_tree $context->{d}{tmp}, { verbose => $verbose || $debug };
541     }
542
543 }
544
545 # Check, if tar understands --use-compress-program and use this, as
546 # at least gzip deprecated passing options via the environment.
547 sub compressor {
548     my ($compressor, $fallback) = @_;
549     state $use_compress_option  =
550         0 == system("tar c -f /dev/null -C / --use-compress-program=cat dev/null 2>/dev/null");
551     return $use_compress_option
552         ? "--use-compress-program=$compressor"
553         : ref $fallback eq ref sub {} ? $fallback->() : $fallback;
554 }
555
556 MAIN: {
557
558     # some of these settings are useful only if we're in the
559     # exim-projekt-root, but the check, if we're, is deferred
560     my $context = Context->new(
561         pkgname     => 'exim',
562         website_base => abs_path('../exim-website'),
563         tar_cmd     => 'tar',
564         tar_perms   => {
565                 user    => '0',
566                 group   => '0',
567         },
568         make_cmd    => 'make',  # for 'make'ing the docs
569         sizes       => 1,
570         compressors => {
571             gzip  => { use => 1, extension => 'gz',  flags => compressor('gzip -9', sub { $ENV{GZIP} = '-9'; '--gzip' }) },
572             bzip2 => { use => 1, extension => 'bz2', flags => compressor('bzip2 -9', sub { $ENV{BZIP2} = '-9'; '--bzip2' }) },
573             xz    => { use => 1, extension => 'xz',  flags => compressor('xz -9', sub { $ENV{XZ_OPT} = '-9'; '--xz' }) },
574             lzip  => { use => 0, extension => 'lz',  flags => compressor('lzip -9', '--lzip') },
575         },
576         docs         => 1,
577         web          => 1,
578         delete       => 0,
579         cleanup      => 1,
580         gpg => {
581             sign         => 1,
582             key          => undef,
583         },
584         quick => 0,
585     );
586
587     ##$ENV{'PATH'} = '/opt/local/bin:' . $ENV{'PATH'};
588
589     GetOptions(
590         $context,
591         qw(workspace|tmp=s website_base|webgen_base=s tar_cmd|tar-cmd=s make_cmd|make-cmd=s
592            docs|build-docs! web|build-web! sizes!
593            delete! cleanup! quick|quick-release! minimal),
594         'sign!'         => \$context->{gpg}{sign},
595         'key=s'         => \$context->{gpg}{key},
596         'verbose!'      => \$verbose,
597         'compressors=s@' => sub {
598             die "$0: can't parse compressors string `$_[1]'\n" unless $_[1] =~ /^[+=-]?\w+(?:[+=-]\w+)*$/;
599             while ($_[1] =~ /(?<act>[+=-])?(?<name>\w+)\b/g) {
600                 die "$0: Unknown compressor $+{name}"
601                     unless $context->{compressors}{$+{name}};
602                 if (not defined $+{act} or $+{act} eq '=') {
603                     $_->{use} = 0
604                         for values %{$context->{compressors}};
605                     $context->{compressors}{$+{name}}{use}++;
606                 }
607                 elsif ($+{act} eq '+') { $context->{compressors}{$+{name}}{use}++; }
608                 elsif ($+{act} eq '-') { $context->{compressors}{$+{name}}{use}--; }
609             }
610         },
611         'debug:s'       => \$debug,
612         'quick'         => sub { $context->{web}--; $context->{quick} = 1 },
613         'help|?'        => sub { pod2usage(-verbose => 1, -exit => 0) },
614         'man!'          => sub { pod2usage(-verbose => 2, -exit => 0, -noperldoc => system('perldoc -V >/dev/null 2>&1')) },
615     ) and (@ARGV == 2 or ($context->{quick} and @ARGV >= 1))
616         or pod2usage;
617
618     -f '.exim-project-root'
619         or die "$ME: please call this script from the root of the Exim project sources\n";
620
621     $context->{OUTDIR} = pop @ARGV;
622
623     if ($context->{gpg}{sign}) {
624         $context->{gpg}{key} //= do { chomp($_ = qx/git config user.signingkey/); $_ }
625             || $ENV{EXIM_KEY}
626             || do {
627                 warn "$ME: No GPG key, using default\n";
628                 undef;
629             }
630     }
631
632
633     warn "$ME: changed umask to 022\n" if umask(022) != 022;
634
635     $context->check_version(shift); # may be undef for a quick release
636
637     if ($debug//'' eq 'version') {
638         for (sort keys %{$context->{v}}) {
639             print "version $_: $context->{v}{$_}\n";
640         }
641         print "git commit: $context->{commit}\n";
642         exit 0;
643     }
644     $context->override_tar_cmd;
645     $context->prepare_working_directory;
646     $context->export_git_tree;
647     $context->unpack_tree;
648     $context->make_version_script;
649
650     $context->build_documentation if $context->{docs};
651     $context->build_html_documentation if $context->{docs} && $context->{web};
652
653     $context->build_src_package_directory;
654     $context->build_doc_packages_directory if $context->{docs};
655
656     $context->create_tar_files;
657     $context->sign if $context->{gpg}{sign};
658     $context->move_to_outdir;
659     $context->do_cleanup if $context->{cleanup};
660
661     ### $context
662 }
663
664 1;
665
666 __END__
667
668 =head1 NAME
669
670 mk_exim_release - Build an exim release
671
672 =head1 SYNOPSIS
673
674  mk_exim_release [options] version PKG-DIRECTORY
675  mk_exim_release [options] --quick [version] PKG-DIRECTORY
676
677 =head1 DESCRIPTION
678
679 B<mk_exim_release> builds an exim release.
680
681 Starting in a populated git repo that has already been tagged for
682 release it builds docs, packages etc.  Parameter is the version number
683 to build as - ie 4.72 4.72-RC1, 4.86.1, etc, without any prefix.
684
685 This scripts expects to find a tag "exim-<version>".
686
687 After creating the release files, they should be signed. There is another
688 helper for creating the signatures:
689 F<release-process/scripts/sign_exim_packages>.
690
691 Call B<mk_exim_release> about like this:
692
693     release-process/scripts/mk_exim_release 4.99 OUT-DIR
694
695
696 =head1 OPTIONS
697
698 =over 4
699
700 =item B<--[no]cleanup>
701
702 Do (or do not) cleanup the tmp directory at exit (default: do cleanup)
703
704 =item B<--compressors> [I<action>]I<compressor[I<action>$<compressor>]...
705
706 A list of compressors to use. Currently the default list is
707 B<gzip>, B<xz>, and B<bzip2>, with B<lzip> optionally to be enabled.
708
709 I<action> can be "+" (add), "-" (remove), and "=" (set).
710
711 =item B<--debug[=I<item>]>
712
713 Forces debug mode. If (default: no debug info)
714
715 =over 4
716
717 =item item: B<version>
718
719 Output the parsed/found version number and exit.
720
721 =back
722
723 =item B<--[no]delete>
724
725 Delete a pre-existing tmp- and package-directory at start. (default: don't delete)
726
727 =item B<--[no]doc>
728
729 Do (not) build the documentation. This needs C<gnu-make> (default: build the docs)
730
731 =item B<--[no]help>
732
733 Display short help and exit cleanly. (default: don't do that)
734
735 =item B<--key> I<GPG key>
736
737 Use this GPG key for signing. If nothing is specified the first one of this list
738 is used:
739
740 =over 8
741
742 =item - git config user.signingkey
743
744 =item - environment C<EXIM_KEY>
745
746 =item - default GPG key
747
748 =back
749
750 =item B<--make-cmd> I<cmd>
751
752 Force the use of a specific C<make> command. This may be necessary if C<make> is not
753 C<gmake>. This is necessary to build the docs. (default: C<make>)
754
755 =item B<--[no]man>
756
757 Display man page and exit cleanly. (default: don't do that)
758
759 =item B<--quick>
760
761 Create a quick release. The I<version> mandatory argument needs to be a git commit-ish.
762 (try I<master> or I<HEAD> or similar). This mode switches off the
763 website creation (which can be enabled by B<--web> again).
764
765 =item B<--[no]sign>
766
767 Sign the created archive files (and the sizes.txt). (default: sign)
768
769 =item B<--[no]sizes>
770
771 Write the sizes information to F<sizes.txt>. (default: write sizes)
772
773 =item B<--tar-cmd> I<cmd>
774
775 Use to override the path to the C<tar> command.  Need GNU tar in case
776 I<lzip> is selected. (default: C<gtar>, if not found, use C<tar>).
777
778 =item B<--tmpdir> I<dir>
779
780 Change the name of the tmp directory (default: temporary directory)
781
782 =item B<--verbose>
783
784 Force verbose mode. (default: no verbosity)
785
786 =item B<--[no]web>
787
788 Control the creation of the website. For creation of the website, the F<../exim-website>
789 (but see the B<website-base> option) directory must exist. (default: create the website, except when
790 in B<quick> mode)
791
792 =item B<--website-base> I<dir>
793
794 Base directory for the web site generation (default: F<../exim-website>)
795
796 =item B<-workspace>|B<--tmp> I<directory>
797
798 During release gerneration temporary storage is necessary. (default: F<exim-packaging-XXXX>
799 under your system's default temporary directory (typically this is F</tmp>)).
800
801 =back
802
803 =head1 AUTHOR
804
805 Nigel Metheringham <Nigel.Metheringham@dev.intechnology.co.uk>,
806 some changes by Heiko Schlittermann <hs@schlittermann.de>
807
808 =head1 COPYRIGHT
809
810 Copyright 2010-2016 Exim Maintainers. All rights reserved.
811
812 =cut
813 # vim: set sw=4 et :