summaryrefslogtreecommitdiff
path: root/test/aux-fixed/resubmit
diff options
context:
space:
mode:
Diffstat (limited to 'test/aux-fixed/resubmit')
-rwxr-xr-xtest/aux-fixed/resubmit23
1 files changed, 23 insertions, 0 deletions
diff --git a/test/aux-fixed/resubmit b/test/aux-fixed/resubmit
new file mode 100755
index 000000000..a7ea2430d
--- /dev/null
+++ b/test/aux-fixed/resubmit
@@ -0,0 +1,23 @@
+#! /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