Add test skeleton
[users/jgh/exim.git] / test / aux-fixed / resubmit
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).
5
6 # The message is on the standard input.
7 # The sender is in the first argument.
8 # The recipients are comma separated in the second argument.
9 # The number of the test is in the third argument - so we can call Exim
10 # with the appropriate configuration file.
11
12 ($sender,$recipients,$dir,$caller) = @ARGV;
13
14 $cmd = 
15   "$dir/eximdir/exim -C $dir/test-config -DCALLER=$caller -DDIR=$dir " .
16   "-DEXIM_PATH=$dir/eximdir/exim " . 
17   "-odi -oi -oMr scanned-ok -f $sender '$recipients'";
18
19 open(OUT, "|$cmd") || die "Failed to set up Exim process\n";
20 print OUT while (<STDIN>);
21 close(OUT);
22
23 # End