# command line parsing, qmail version

#open(ENVELOPE, "<&STDOUT");
#
#$recipline = '';
#for (;;) {
#    my $sr = sysread (ENVELOPE, $recipline, 8192, length ($recipline));
#    last if ((! defined $sr) || ($sr == 0) || ($recipline =~ /\0\0/));
#}
#
#close(ENVELOPE);
#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 qmail cmd line parsing
