Testsuite: fix 0290 for permitted relative paths
[users/jgh/exim.git] / test / patchexim
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/(\d+\.\d+(?:[_.]\d+)?([_-]RC\d+|[_-]dev)?(?:[0-9a-fA-F-]*)(?:-XX)?\0<<eximversion>>)/"x.yz\0" . ("*" x (length($1) - 5))/e;
23   print OUT;
24   }
25
26 close(IN);
27 close(OUT);
28
29 chmod 04755, 'eximdir/exim';
30
31 # End of patchexim script