summaryrefslogtreecommitdiff
path: root/test/aux-fixed/resubmitB
blob: f925968643794e7391f29dee37e4fcb077ec8a61 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#! /usr/bin/perl -w

# A test script that reads a message and resubmits it to Exim (having 
# notionally checked it - but there's no checking here). This version
# uses BSMTP for input and output.

# The number of the test is in the only argument - so we can call Exim
# with the appropriate configuration file.

($dir,$caller) = @ARGV;

$cmd = 
  "$dir/eximdir/exim -C $dir/test-config -DCALLER=$caller -DDIR=$dir " .
  "-DEXIM_PATH=$dir/eximdir/exim -odi -bS -oMr scanned-ok";

open(OUT, "|$cmd") || die "Failed to set up Exim process\n";
print OUT while (<STDIN>);
close(OUT);

# End