Exigrep update to allow for pids in log lines had somehow got lost.
[exim.git] / test / aux-fixed / resubmitB
1 #! /usr/bin/perl -w
2
3 # A test script that reads a message and resubmits it to Exim (having 
4 # notionally checked it - but there's no checking here). This version
5 # uses BSMTP for input and output.
6
7 # The number of the test is in the only argument - so we can call Exim
8 # with the appropriate configuration file.
9
10 ($dir,$caller) = @ARGV;
11
12 $cmd = 
13   "$dir/eximdir/exim -C $dir/test-config -DCALLER=$caller -DDIR=$dir " .
14   "-DEXIM_PATH=$dir/eximdir/exim -odi -bS -oMr scanned-ok";
15
16 open(OUT, "|$cmd") || die "Failed to set up Exim process\n";
17 print OUT while (<STDIN>);
18 close(OUT);
19
20 # End