# BEGIN_MTA_ARGS
# MTA: qmail
# command line parsing

open(ENVELOPE, "<&STDOUT") or die "Can't open stdout ro read envelope: $!";

$recipline = '';
for (;;) {
    my $sr = sysread (ENVELOPE, $recipline, 8192, length ($recipline));
    last if ((! defined $sr) || ($sr == 0) || ($recipline =~ /\0\0/));
}

close(ENVELOPE) or die "Can't close envelope reader: $!";
do_exit($REGERR, __LINE__) unless ($recipline);

if ($recipline =~ /^F(.*?)\0T(.*)\0$/) {
    $SENDER = $1;
    my $recipsec = $2 . "T";
    @RECIPS = split(/\0T/, $recipsec);
} else {
    do_exit($REGERR, __LINE__);
}
# END_MTA_ARGS
