# command line parsing, qmail version

open(ENVELOPE, "<&STDOUT");

$recipline = <ENVELOPE>;
close(ENVELOPE);
do_exit($REGERR, __LINE__) if ($recipline eq "");

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

# End qmail cmd line parsing
