/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright (c) 1989, 2010, Oracle and/or its affiliates. All rights reserved.
 */

/*      Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*        All Rights Reserved   */

#include "mail.h"
#include <sys/param.h>
/*
 * Send mail - High level sending routine
 */
void
sendmail(int argc, char **argv)
{
        char            **args;
        char            *tp, *zp;
        char            buf[2048], last1c;
        FILE            *input;
        struct stat64   sbuf;
        int             aret;
        int             i, n;
        int             oldn = 1;
        int             ttyf = 0;
        int             pushrest = 0;
        int             hdrtyp = 0;
        int             ctf = FALSE;
        int             binflg = 0;
        long            count = 0L;
        struct tm       *bp;
        struct hdrs     *hptr;
        static char     pn[] = "sendmail";
        reciplist       list;

        Dout(pn, 0, "entered\n");
        new_reciplist(&list);
        for (i = 1; i < argc; ++i) {
                if (argv[i][0] == '-') {
                        if (argv[i][1] == '\0') {
                                errmsg(E_SYNTAX,
                                    "Hyphens MAY NOT be followed by spaces");
                        }
                        if (i > 1) {
                                errmsg(E_SYNTAX,
                                    "Options MUST PRECEDE persons");
                        }
                        done(0);
                }
                /*
                 *      Ensure no NULL names in list
                 */
                if (argv[i][0] == '\0' || argv[i][strlen(argv[i])-1] == '!') {
                        errmsg(E_SYNTAX, "Null names are not allowed");
                        done(0);
                }
                /* Don't check for duplication */
                add_recip(&list, argv[i], FALSE);
        }

        mktmp();
        /*
         *      Format time
         */
        time(&iop);
        bp = localtime(&iop);
        tp = asctime(bp);
        zp = tzname[bp->tm_isdst];
        sprintf(datestring, "%.16s %.3s %.5s", tp, zp, tp+20);
        trimnl(datestring);
        /* asctime: Fri Sep 30 00:00:00 1986\n */
        /*      0123456789012345678901234  */
        /* RFCtime: Fri, 28 Jul 89 10:30 EDT   */
        sprintf(RFC822datestring, "%.3s, %.2s %.3s %.4s %.5s %.3s",
                tp, tp+8, tp+4, tp+20, tp+11, zp);

        /*
         * Write out the from line header for the letter
         */
        if (fromflag && deliverflag && from_user[0] != '\0') {
                (void) snprintf(buf, sizeof (buf), "%s%s %s\n",
                        header[H_FROM].tag, from_user, datestring);
        } else {
                (void) snprintf(buf, sizeof (buf), "%s%s %s\n",
                        header[H_FROM].tag, my_name, datestring);
        }
        if (!wtmpf(buf, strlen(buf))) {
                done(0);
        }
        savehdrs(buf, H_FROM);

        /*
         * Copy to list in mail entry?
         */
        if (flgt == 1 && argc > 1) {
                aret = argc;
                args = argv;
                while (--aret > 0) {
                        (void) snprintf(buf, sizeof (buf),
                            "%s %s\n", header[H_TO].tag, *++args);
                        if (!wtmpf(buf, strlen(buf))) {
                                done(0);
                        }
                        savehdrs(buf, H_TO);
                }
        }

        flgf = 1;       /* reset when first read of message body succeeds */
        /*
         * Read mail message, allowing for lines of infinite
         * length. This is tricky, have to watch for newlines.
         */
        saveint = setsig(SIGINT, savdead);
        last1c = ' ';   /* anything other than newline */
        ttyf = isatty(fileno(stdin));
        pushrest = 0;

        /*
         * scan header & save relevant info.
         */
        (void) strlcpy(fromU, my_name, sizeof (fromU));
        fromS[0] = 0;   /* set up for >From scan */
        input = stdin;
        /*
         * Fifofs cannot handle if the inode number crosses
         * 32-bit limit. This results in overflow, if the
         * input steam is a pipe. Using 64-bit interface to
         * take care of that.
         */
        if (fstat64(fileno(input), &sbuf) == 0) {
                /* Also care if we could not handle large mail. */
                if ((sbuf.st_size > MAXOFF_T) || (sbuf.st_blocks > LONG_MAX)) {
                        fprintf(stderr, "%s: stdin: %s\n", program,
                            strerror(EOVERFLOW));
                        exit(1);
                }
        }

        while ((n = getaline(line, sizeof (line), stdin)) > 0) {
                last1c = line[n-1];
                if (pushrest) {
                        if (!wtmpf(line, n)) {
                                done(0);
                        }
                        pushrest = (last1c != '\n');
                        continue;
                }
                pushrest = (last1c != '\n');

                if ((hdrtyp = isheader(line, &ctf)) == FALSE) {
                        break;
                }
                flgf = 0;
                switch (hdrtyp) {
                case H_RVERS:
                        /* Are we dealing with a delivery report? */
                        /* dflag = 9 ==> do not return on failure */
                        dflag = 9;
                        Dout(pn, 0, "dflag = 9\n");
                        break;
                case H_FROM:
                        if (!wtmpf(">", 1)) {
                                done(0);
                        }
                        /* note dropthru */
                        hdrtyp = H_FROM1;
                case H_FROM1:
                        if (substr(line, "forwarded by") > -1) {
                                break;
                        }
                        pickFrom(line);
                        if (Rpath[0] != '\0') {
                                strcat(Rpath, "!");
                        }
                        (void) strlcat(Rpath, fromS, sizeof (Rpath));
                        n = 0; /* don't copy remote from's into mesg. */
                        break;
                case H_MIMEVERS:
                case H_CLEN:
                case H_CTYPE:
                        /* suppress it: only generated if needed */
                        n = 0; /* suppress */
                        break;
                case H_TCOPY:
                        /* Write out placeholder for later */
                        (void) snprintf(buf, sizeof (buf), "%s \n",
                            header[H_TCOPY].tag);
                        if (!wtmpf(buf, strlen(buf))) {
                                done(0);
                        }
                        n = 0; /* suppress */
                        break;
                case H_MTYPE:
                        if (flgm) {
                                /* suppress if message-type argument */
                                n = 0;
                        }
                        break;
                case H_CONT:
                        if (oldn == 0) {
                                /* suppress continuation line also */
                                n = 0;
                        }
                        break;
                }
                oldn = n;       /* remember if this line was suppressed */
                if (n && !wtmpf(line, n)) {
                        done(0);
                }
                if (!n) savehdrs(line, hdrtyp);
        }
        if (Rpath[0] != '\0') {
                strcat(Rpath, "!");
        }
        (void) strlcat(Rpath, fromU, sizeof (Rpath));

        /* push out message type if so requested */
        if (flgm) {     /* message-type */
                snprintf(buf, sizeof (buf), "%s%s\n",
                    header[H_MTYPE].tag, msgtype);
                if (!wtmpf(buf, strlen(buf))) {
                        done(0);
                }
        }

        memcpy(buf, line, n);
        if (n == 0 || (ttyf && !strncmp(buf, ".\n", 2))) {
                if (flgf) {
                        /* no input */
                        return;
                } else {
                        /*
                         * no content: put mime-version, content-type
                         * and -length only if explicitly present.
                         * Write out 'place-holders' only. (see below....)
                         */
                        if ((hptr = hdrlines[H_MIMEVERS].head) !=
                                                    (struct hdrs *)NULL) {
                                (void) snprintf(line, sizeof (line), "%s \n",
                                    header[H_MIMEVERS].tag);
                                if (!wtmpf(line, strlen(line))) {
                                        done(0);
                                }
                        }
                        if ((hptr = hdrlines[H_CTYPE].head) !=
                                                    (struct hdrs *)NULL) {
                                (void) snprintf(line, sizeof (line), "%s \n",
                                    header[H_CTYPE].tag);
                                if (!wtmpf(line, strlen(line))) {
                                        done(0);
                                }
                        }
                        if ((hptr = hdrlines[H_CLEN].head) !=
                                                    (struct hdrs *)NULL) {
                                (void) snprintf(line, sizeof (line), "%s \n",
                                    header[H_CLEN].tag);
                                if (!wtmpf(line, strlen(line))) {
                                        done(0);
                                }
                        }
                        goto wrapsend;
                }
        }

        if (n == 1 && last1c == '\n') { /* blank line -- suppress */
                n = getaline(buf, sizeof (buf), stdin);
                if (n == 0 || (ttyf && !strncmp(buf, ".\n", 2))) {
                        /*
                         * no content: put mime-version, content-type
                         * and -length only if explicitly present.
                         * Write out 'place-holders' only. (see below....)
                         */
                        if ((hptr = hdrlines[H_MIMEVERS].head) !=
                                                    (struct hdrs *)NULL) {
                                (void) snprintf(line, sizeof (line), "%s \n",
                                    header[H_MIMEVERS].tag);
                                if (!wtmpf(line, strlen(line))) {
                                        done(0);
                                }
                        }
                        if ((hptr = hdrlines[H_CTYPE].head) !=
                                                    (struct hdrs *)NULL) {
                                (void) snprintf(line, sizeof (line), "%s \n",
                                    header[H_CTYPE].tag);
                                if (!wtmpf(line, strlen(line))) {
                                        done(0);
                                }
                        }
                        if ((hptr = hdrlines[H_CLEN].head) !=
                                                    (struct hdrs *)NULL) {
                                (void) snprintf(line, sizeof (line), "%s \n",
                                    header[H_CLEN].tag);
                                if (!wtmpf(line, strlen(line))) {
                                        done(0);
                                }
                        }
                        goto wrapsend;
                }
        }

        if (debug > 0) {
                buf[n] = '\0';
                Dout(pn, 0, "header scan complete, readahead %d = \"%s\"\n",
                    n, buf);
        }

        /*
         * Write out H_MIMEVERS, H_CTYPE & H_CLEN lines. These are used only as
         * placeholders in the tmp file. When the 'real' message is sent,
         * the proper values will be put out by copylet().
         */
        (void) snprintf(line, sizeof (line), "%s \n", header[H_MIMEVERS].tag);
        if (!wtmpf(line, strlen(line))) {
                done(0);
        }
        if (hdrlines[H_MIMEVERS].head == (struct hdrs *)NULL) {
                savehdrs(line, H_MIMEVERS);
        }
        (void) snprintf(line, sizeof (line), "%s \n", header[H_CTYPE].tag);
        if (!wtmpf(line, strlen(line))) {
                done(0);
        }
        if (hdrlines[H_CTYPE].head == (struct hdrs *)NULL) {
                savehdrs(line, H_CTYPE);
        }
        (void) snprintf(line, sizeof (line), "%s \n", header[H_CLEN].tag);
        if (!wtmpf(line, strlen(line))) {
                done(0);
        }
        if (hdrlines[H_CLEN].head == (struct hdrs *)NULL) {
                savehdrs(line, H_CLEN);
        }
        /* and a blank line */
        if (!wtmpf("\n", 1)) {
                done(0);
        }
        Dout(pn, 0, "header out completed\n");

        pushrest = 0;
        count = 0L;
        /*
         *      Are we returning mail from a delivery failure of an old-style
         *      (SVR3.1 or SVR3.0) rmail? If so, we won't return THIS on failure
         *      [This line should occur as the FIRST non-blank non-header line]
         */
        if (!strncmp("***** UNDELIVERABLE MAIL sent to", buf, 32)) {
                dflag = 9; /* 9 says do not return on failure */
                Dout(pn, 0, "found old-style UNDELIVERABLE line. dflag = 9\n");
        }

        /* scan body of message */
        while (n > 0) {
                if (ttyf && !strcmp(buf, ".\n"))
                        break;
                if (!binflg) {
                        binflg = !istext((unsigned char *)buf, n);
                }

                if (!wtmpf(buf, n)) {
                        done(0);
                }
                count += n;
                n = ttyf
                        ? getaline(buf, sizeof (buf), stdin)
                        : fread(buf, 1, sizeof (buf), stdin);
        }
        setsig(SIGINT, saveint);

wrapsend:
        /*
         *      In order to use some of the subroutines that are used to
         *      read mail, the let array must be set up
         */
        nlet = 1;
        let[0].adr = 0;
        let[1].adr = ftell(tmpf);
        let[0].text = (binflg == 1 ? FALSE : TRUE);
        Dout(pn, 0, "body copy complete, count %ld\n", count);
        /*
         * Modify value of H_MIMEVERS if necessary.
         */
        if ((hptr = hdrlines[H_MIMEVERS].head) != (struct hdrs *)NULL) {
                if (strlen(hptr->value) == 0) {
                        (void) strlcpy(hptr->value, "1.0",
                            sizeof (hptr->value));
                }
        }
        /*
         * Modify value of H_CTYPE if necessary.
         */
        if ((hptr = hdrlines[H_CTYPE].head) != (struct hdrs *)NULL) {
                if (strlen(hptr->value) == 0) {
                        (void) strlcpy(hptr->value, "text/plain",
                            sizeof (hptr->value));
                }
        }
        /*
         * Set 'place-holder' value of content length to true value
         */
        if ((hptr = hdrlines[H_CLEN].head) != (struct hdrs *)NULL) {
                (void) snprintf(hptr->value, sizeof (hptr->value),
                    "%ld", count);
        }

        if (fclose(tmpf) == EOF) {
                tmperr();
                done(0);
        }

        tmpf = doopen(lettmp, "r+", E_TMP);

        /* Do not send mail on SIGINT */
        if (dflag == 2) {
                done(0);
        }

        sendlist(&list, 0, 0);
        done(0);
}