# BEGIN_MTA_ARGS
# MTA: Exim
# command line parsing

if ($#untaint_ARGV < 1) {
    do_log(0,"Missing arguments to exim");
    do_exit($REGERR, __LINE__);
}

shift @untaint_ARGV if $untaint_ARGV[0] eq "-f" ; #ignore "-f"
$SENDER = shift @untaint_ARGV;
$SENDER = "<>" if (!$SENDER);
shift @untaint_ARGV if $untaint_ARGV[0] eq "-d" ; #ignore "-d"
@RECIPS = @untaint_ARGV;

$LDA = $sendmail_wrapper;

push(@LDAARGS, "-oMr");
push(@LDAARGS, "scanned-ok");
push(@LDAARGS, "-i");
push(@LDAARGS, "-f");
push(@LDAARGS, $SENDER);
push(@LDAARGS, @RECIPS);

# END_MTA_ARGS
