# command line parsing, qmail version

open(ENVELOPE, "<&STDOUT");

$recipline = <ENVELOPE>;
close(ENVELOPE);
die "qmail_args: Empty recipline!?" if ($recipline eq "");

if ($recipline =~ /^F(.*?)\0T(.*)\0$/) {
    $SENDER = $1;
    my $recipsec = $2 . "T";
    @RECIPS = split(/\0T/, $recipsec);
} else {
    die "qmail_args: Funny recipline: <$recipline>";
}

# End qmail cmd line parsing
