# command line parsing, qmail version

open(ENVELOPE, "<&STDOUT");

$recipline = <ENVELOPE>;
close(ENVELOPE);
do_exit($REGERR, __LINE__) if !defined $recipline;

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
