Return to mhmail.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mh / uip

Annotation of 43BSD/contrib/mh/uip/mhmail.c, revision 1.1.1.1

1.1       root        1: /* mhmail.c - simple mail program */
                      2: 
                      3: #include "../h/mh.h"
                      4: #include <stdio.h>
                      5: #include <signal.h>
                      6: 
                      7: /*  */
                      8: 
                      9: static struct swit switches[] = {
                     10: #define        BODYSW  0
                     11:     "body text", 0,
                     12: 
                     13: #define        CCSW    1
                     14:     "cc addrs ...", 0,
                     15: 
                     16: #define        FROMSW  2
                     17:     "from addr", 0,
                     18: 
                     19: #define        SUBJSW  3
                     20:     "subject", 0,
                     21: 
                     22: #define        HELPSW  4
                     23:     "help", 4,
                     24: 
                     25:     NULL, NULL
                     26: };
                     27: 
                     28: /*  */
                     29: 
                     30: int    intrser ();
                     31: 
                     32: 
                     33: static char tmpfil[BUFSIZ];
                     34: 
                     35: /*  */
                     36: 
                     37: /* ARGSUSED */
                     38: 
                     39: main (argc, argv)
                     40: int     argc;
                     41: char   *argv[];
                     42: {
                     43:     int     child_id,
                     44:            status,
                     45:             i,
                     46:             iscc = 0,
                     47:             somebody;
                     48:     char   *cp,
                     49:            *tolist = NULL,
                     50:            *cclist = NULL,
                     51:            *subject = NULL,
                     52:           *from = NULL,
                     53:            *body = NULL,
                     54:           **argp = argv + 1,
                     55:             buf[100];
                     56:     FILE * out;
                     57: 
                     58:     invo_name = r1bindex (argv[0], '/');
                     59:     m_foil (NULLCP);
                     60: 
                     61:     if (argc == 1) {
                     62:        execlp (incproc, r1bindex (incproc, '/'), NULLCP);
                     63:        adios (incproc, "unable to exec");
                     64:     }
                     65: 
                     66: /*  */
                     67: 
                     68:     while (cp = *argp++) {
                     69:        if (*cp == '-')
                     70:            switch (smatch (++cp, switches)) {
                     71:                case AMBIGSW: 
                     72:                    ambigsw (cp, switches);
                     73:                    done (1);
                     74: 
                     75:                case UNKWNSW: 
                     76:                    adios (NULLCP, "-%s unknown", cp);
                     77: 
                     78:                case HELPSW: 
                     79:                    (void) sprintf (buf, "%s [addrs ... [switches]]",
                     80:                            invo_name);
                     81:                    help (buf, switches);
                     82:                    done (1);
                     83: 
                     84:                case FROMSW: 
                     85:                    if (!(from = *argp++) || *from == '-')
                     86:                        adios (NULLCP, "missing argument to %s", argp[-2]);
                     87:                    continue;
                     88: 
                     89:                case BODYSW: 
                     90:                    if (!(body = *argp++) || *body == '-')
                     91:                        adios (NULLCP, "missing argument to %s", argp[-2]);
                     92:                    continue;
                     93: 
                     94:                case CCSW: 
                     95:                    iscc++;
                     96:                    continue;
                     97: 
                     98:                case SUBJSW: 
                     99:                    if (!(subject = *argp++) || *subject == '-')
                    100:                        adios (NULLCP, "missing argument to %s", argp[-2]);
                    101:                    continue;
                    102:            }
                    103:        if (iscc)
                    104:            cclist = cclist ? add (cp, add (", ", cclist)) : getcpy (cp);
                    105:        else
                    106:            tolist = tolist ? add (cp, add (", ", tolist)) : getcpy (cp);
                    107:     }
                    108: 
                    109: /*  */
                    110: 
                    111:     (void) strcpy (tmpfil, m_tmpfil (invo_name));
                    112:     if ((out = fopen (tmpfil, "w")) == NULL)
                    113:        adios (tmpfil, "unable to write");
                    114:     (void) chmod (tmpfil, 0600);
                    115: 
                    116:     setsig (SIGINT, intrser);
                    117: 
                    118:     fprintf (out, "To: %s\n", tolist);
                    119:     if (cclist)
                    120:        fprintf (out, "cc: %s\n", cclist);
                    121:     if (subject)
                    122:        fprintf (out, "Subject: %s\n", subject);
                    123:     if (from)
                    124:        fprintf (out, "From: %s\n", from);
                    125:     fprintf (out, "\n");
                    126: 
                    127:     if (body)
                    128:        fprintf (out, "%s\n", body);
                    129:     else {
                    130:        for (somebody = 0;
                    131:                (i = read (fileno (stdin), buf, sizeof buf)) > 0;
                    132:                somebody++)
                    133:            if (fwrite (buf, sizeof *buf, i, out) != i)
                    134:                adios (tmpfil, "error writing");
                    135:        if (!somebody) {
                    136:            (void) unlink (tmpfil);
                    137:            done (1);
                    138:        }
                    139:     }
                    140:     (void) fclose (out);
                    141: 
                    142: /*  */
                    143: 
                    144:     for (i = 0; (child_id = fork ()) == NOTOK && i < 5; i++)
                    145:        sleep (5);
                    146:     switch (child_id) {
                    147:        case NOTOK:             /* report failure and then send it */
                    148:            admonish (NULLCP, "unable to fork");
                    149: 
                    150:        case OK: 
                    151:            execlp (postproc, r1bindex (postproc, '/'), tmpfil, NULLCP);
                    152:            fprintf (stderr, "unable to exec ");
                    153:            perror (postproc);
                    154:            _exit (-1);
                    155: 
                    156:        default: 
                    157:            if (status = pidXwait (child_id, postproc)) {
                    158:                fprintf (stderr, "Letter saved in dead.letter\n");
                    159:                execl ("/bin/mv", "mv", tmpfil, "dead.letter", NULLCP);
                    160:                execl ("/usr/bin/mv", "mv", tmpfil, "dead.letter", NULLCP);
                    161:                perror ("mv");
                    162:                _exit (-1);
                    163:            }
                    164: 
                    165:            (void) unlink (tmpfil);
                    166:            done (status ? 1 : 0);
                    167:     }
                    168: }
                    169: 
                    170: /*  */
                    171: 
                    172: /* ARGSUSED */
                    173: 
                    174: static int  intrser (i)
                    175: int     i;
                    176: {
                    177: #ifndef        BSD42
                    178:     if (i)
                    179:        (void) signal (i, SIG_IGN);
                    180: #endif BSD42
                    181: 
                    182:     (void) unlink (tmpfil);
                    183:     done (i != 0 ? 1 : 0);
                    184: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.