[exim.git] / test / patchexim

#! /usr/bin/env perl

use strict;
use warnings;

###############################################################################
# This is an auxiliary script that is part of the Exim test suite. It must be #
# run as root, and is normally called from the main controlling script. Its   #
# job is to make a copy of Exim, suitably patched so that it can run in the   #
# test harness. See further comments in the main script.                      #
#                                                                             #
# The only argument to this script is the name of the Exim binary that is to  #
# be copied. The script must be run in the correct current directory.         #
###############################################################################

open(IN, $ARGV[0]) || die "** Failed to open $ARGV[0]: $!\n";
open(OUT, '>eximdir/exim') || die "** Failed to open eximdir/exim: $!\n";

while(<IN>)
  {
  s/>>>running<<</<<<testing>>>/;
  s{
    (\d+\.\d+                         # major.minor
    (?:[_.]\d+)?                      # optional patchlevel
    (?:[_-]RC\d+|[_-]?dev(?:start)?)? # optional RC or dev(start)
    (?:(?:[_-]\d+)?                   # git tag distance
       [-_][[:xdigit:]]+)?            # git id
    (?:[-_]XX)?\0                     # git dirty bit
    <<eximversion>>                   # marker
    )
   }
   {"x.yz\0" . ("*" x (length($1) - 5))}xe;
  print OUT;
  }

close(IN);
close(OUT);

chmod 04755, 'eximdir/exim';

# End of patchexim script
Commit	Line	Data
	1	#! /usr/bin/env perl
	2
	3	use strict;
	4	use warnings;
	5
	6	###############################################################################
	7	# This is an auxiliary script that is part of the Exim test suite. It must be #
	8	# run as root, and is normally called from the main controlling script. Its #
	9	# job is to make a copy of Exim, suitably patched so that it can run in the #
	10	# test harness. See further comments in the main script. #
	11	# #
	12	# The only argument to this script is the name of the Exim binary that is to #
	13	# be copied. The script must be run in the correct current directory. #
	14	###############################################################################
	15
	16	open(IN, $ARGV[0]) \|\| die "** Failed to open $ARGV[0]: $!\n";
	17	open(OUT, '>eximdir/exim') \|\| die "** Failed to open eximdir/exim: $!\n";
	18
	19	while(<IN>)
	20	{
	21	s/>>>running<<</<<<testing>>>/;
	22	s{
	23	(\d+\.\d+ # major.minor
	24	(?:[_.]\d+)? # optional patchlevel
	25	(?:[_-]RC\d+\|[_-]?dev(?:start)?)? # optional RC or dev(start)
	26	(?:(?:[_-]\d+)? # git tag distance
	27	[-_][[:xdigit:]]+)? # git id
	28	(?:[-_]XX)?\0 # git dirty bit
	29	<<eximversion>> # marker
	30	)
	31	}
	32	{"x.yz\0" . ("*" x (length($1) - 5))}xe;
	33	print OUT;
	34	}
	35
	36	close(IN);
	37	close(OUT);
	38
	39	chmod 04755, 'eximdir/exim';
	40
	41	# End of patchexim script