[exim.git] / test / aux-fixed / resubmit

#! /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).

# The message is on the standard input.
# The sender is in the first argument.
# The recipients are comma separated in the second argument.
# The number of the test is in the third argument - so we can call Exim
# with the appropriate configuration file.

($sender,$recipients,$dir,$caller) = @ARGV;

$cmd = 
  "$dir/eximdir/exim -C $dir/test-config -DCALLER=$caller -DDIR=$dir " .
  "-DEXIM_PATH=$dir/eximdir/exim " . 
  "-odi -oi -oMr scanned-ok -f $sender '$recipients'";

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

# End
Commit	Line	Data
9ba4af2b PH	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