Annotation of src/usr.bin/mail/send.c, Revision 1.6
1.6 ! millert 1: /* $OpenBSD: send.c,v 1.5 1997/07/14 00:24:30 millert Exp $ */
1.2 deraadt 2: /* $NetBSD: send.c,v 1.6 1996/06/08 19:48:39 christos Exp $ */
3:
1.1 deraadt 4: /*
5: * Copyright (c) 1980, 1993
6: * The Regents of the University of California. All rights reserved.
7: *
8: * Redistribution and use in source and binary forms, with or without
9: * modification, are permitted provided that the following conditions
10: * are met:
11: * 1. Redistributions of source code must retain the above copyright
12: * notice, this list of conditions and the following disclaimer.
13: * 2. Redistributions in binary form must reproduce the above copyright
14: * notice, this list of conditions and the following disclaimer in the
15: * documentation and/or other materials provided with the distribution.
16: * 3. All advertising materials mentioning features or use of this software
17: * must display the following acknowledgement:
18: * This product includes software developed by the University of
19: * California, Berkeley and its contributors.
20: * 4. Neither the name of the University nor the names of its contributors
21: * may be used to endorse or promote products derived from this software
22: * without specific prior written permission.
23: *
24: * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34: * SUCH DAMAGE.
35: */
36:
37: #ifndef lint
1.2 deraadt 38: #if 0
39: static char sccsid[] = "@(#)send.c 8.1 (Berkeley) 6/6/93";
40: #else
1.6 ! millert 41: static char rcsid[] = "$OpenBSD: send.c,v 1.5 1997/07/14 00:24:30 millert Exp $";
1.2 deraadt 42: #endif
1.1 deraadt 43: #endif /* not lint */
44:
45: #include "rcv.h"
46: #include "extern.h"
47:
48: /*
49: * Mail -- a mail program
50: *
51: * Mail to others.
52: */
53:
54: /*
55: * Send message described by the passed pointer to the
56: * passed output buffer. Return -1 on error.
57: * Adjust the status: field if need be.
58: * If doign is given, suppress ignored header fields.
59: * prefix is a string to prepend to each output line.
60: */
61: int
62: send(mp, obuf, doign, prefix)
63: register struct message *mp;
64: FILE *obuf;
65: struct ignoretab *doign;
66: char *prefix;
67: {
68: long count;
69: register FILE *ibuf;
70: char line[LINESIZE];
1.2 deraadt 71: int ishead, infld, ignoring = 0, dostat, firstline;
1.1 deraadt 72: register char *cp, *cp2;
1.2 deraadt 73: register int c = 0;
1.1 deraadt 74: int length;
1.2 deraadt 75: int prefixlen = 0;
1.1 deraadt 76:
77: /*
78: * Compute the prefix string, without trailing whitespace
79: */
1.5 millert 80: if (prefix != NULL) {
1.1 deraadt 81: cp2 = 0;
82: for (cp = prefix; *cp; cp++)
83: if (*cp != ' ' && *cp != '\t')
84: cp2 = cp;
85: prefixlen = cp2 == 0 ? 0 : cp2 - prefix + 1;
86: }
87: ibuf = setinput(mp);
88: count = mp->m_size;
89: ishead = 1;
90: dostat = doign == 0 || !isign("status", doign);
91: infld = 0;
92: firstline = 1;
93: /*
94: * Process headers first
95: */
96: while (count > 0 && ishead) {
1.3 millert 97: if (fgets(line, sizeof(line), ibuf) == NULL)
1.1 deraadt 98: break;
99: count -= length = strlen(line);
100: if (firstline) {
1.3 millert 101: /*
1.1 deraadt 102: * First line is the From line, so no headers
103: * there to worry about
104: */
105: firstline = 0;
106: ignoring = doign == ignoreall;
107: } else if (line[0] == '\n') {
108: /*
109: * If line is blank, we've reached end of
110: * headers, so force out status: field
111: * and note that we are no longer in header
112: * fields
113: */
114: if (dostat) {
115: statusput(mp, obuf, prefix);
116: dostat = 0;
117: }
118: ishead = 0;
119: ignoring = doign == ignoreall;
120: } else if (infld && (line[0] == ' ' || line[0] == '\t')) {
121: /*
122: * If this line is a continuation (via space or tab)
123: * of a previous header field, just echo it
124: * (unless the field should be ignored).
125: * In other words, nothing to do.
126: */
127: } else {
128: /*
129: * Pick up the header field if we have one.
130: */
131: for (cp = line; (c = *cp++) && c != ':' && !isspace(c);)
132: ;
133: cp2 = --cp;
134: while (isspace(*cp++))
135: ;
136: if (cp[-1] != ':') {
137: /*
138: * Not a header line, force out status:
139: * This happens in uucp style mail where
140: * there are no headers at all.
141: */
142: if (dostat) {
143: statusput(mp, obuf, prefix);
144: dostat = 0;
145: }
146: if (doign != ignoreall)
147: /* add blank line */
1.4 millert 148: (void)putc('\n', obuf);
1.1 deraadt 149: ishead = 0;
150: ignoring = 0;
151: } else {
152: /*
153: * If it is an ignored field and
154: * we care about such things, skip it.
155: */
156: *cp2 = 0; /* temporarily null terminate */
157: if (doign && isign(line, doign))
158: ignoring = 1;
159: else if ((line[0] == 's' || line[0] == 'S') &&
160: strcasecmp(line, "status") == 0) {
161: /*
162: * If the field is "status," go compute
163: * and print the real Status: field
164: */
165: if (dostat) {
166: statusput(mp, obuf, prefix);
167: dostat = 0;
168: }
169: ignoring = 1;
170: } else {
171: ignoring = 0;
172: *cp2 = c; /* restore */
173: }
174: infld = 1;
175: }
176: }
177: if (!ignoring) {
178: /*
179: * Strip trailing whitespace from prefix
180: * if line is blank.
181: */
1.5 millert 182: if (prefix != NULL)
1.1 deraadt 183: if (length > 1)
184: fputs(prefix, obuf);
185: else
1.4 millert 186: (void)fwrite(prefix, sizeof(*prefix),
1.1 deraadt 187: prefixlen, obuf);
1.4 millert 188: (void)fwrite(line, sizeof(*line), length, obuf);
1.1 deraadt 189: if (ferror(obuf))
1.3 millert 190: return(-1);
1.1 deraadt 191: }
192: }
193: /*
194: * Copy out message body
195: */
196: if (doign == ignoreall)
197: count--; /* skip final blank line */
1.5 millert 198: if (prefix != NULL)
1.1 deraadt 199: while (count > 0) {
1.3 millert 200: if (fgets(line, sizeof(line), ibuf) == NULL) {
1.1 deraadt 201: c = 0;
202: break;
203: }
204: count -= c = strlen(line);
205: /*
206: * Strip trailing whitespace from prefix
207: * if line is blank.
208: */
209: if (c > 1)
210: fputs(prefix, obuf);
211: else
1.4 millert 212: (void)fwrite(prefix, sizeof(*prefix),
1.1 deraadt 213: prefixlen, obuf);
1.4 millert 214: (void)fwrite(line, sizeof(*line), c, obuf);
1.1 deraadt 215: if (ferror(obuf))
1.3 millert 216: return(-1);
1.1 deraadt 217: }
218: else
219: while (count > 0) {
220: c = count < LINESIZE ? count : LINESIZE;
1.3 millert 221: if ((c = fread(line, sizeof(*line), c, ibuf)) <= 0)
1.1 deraadt 222: break;
223: count -= c;
1.3 millert 224: if (fwrite(line, sizeof(*line), c, obuf) != c)
225: return(-1);
1.1 deraadt 226: }
227: if (doign == ignoreall && c > 0 && line[c - 1] != '\n')
228: /* no final blank line */
229: if ((c = getc(ibuf)) != EOF && putc(c, obuf) == EOF)
1.3 millert 230: return(-1);
231: return(0);
1.1 deraadt 232: }
233:
234: /*
235: * Output a reasonable looking status field.
236: */
237: void
238: statusput(mp, obuf, prefix)
239: register struct message *mp;
240: FILE *obuf;
241: char *prefix;
242: {
243: char statout[3];
244: register char *cp = statout;
245:
246: if (mp->m_flag & MREAD)
247: *cp++ = 'R';
248: if ((mp->m_flag & MNEW) == 0)
249: *cp++ = 'O';
250: *cp = 0;
251: if (statout[0])
252: fprintf(obuf, "%sStatus: %s\n",
1.5 millert 253: prefix == NULL ? "" : prefix, statout);
1.1 deraadt 254: }
255:
256: /*
257: * Interface between the argument list and the mail1 routine
258: * which does all the dirty work.
259: */
260: int
261: mail(to, cc, bcc, smopts, subject)
262: struct name *to, *cc, *bcc, *smopts;
263: char *subject;
264: {
265: struct header head;
266:
267: head.h_to = to;
268: head.h_subject = subject;
269: head.h_cc = cc;
270: head.h_bcc = bcc;
271: head.h_smopts = smopts;
272: mail1(&head, 0);
273: return(0);
274: }
275:
276:
277: /*
278: * Send mail to a bunch of user names. The interface is through
279: * the mail routine below.
280: */
281: int
1.2 deraadt 282: sendmail(v)
283: void *v;
1.1 deraadt 284: {
1.2 deraadt 285: char *str = v;
1.1 deraadt 286: struct header head;
287:
288: head.h_to = extract(str, GTO);
1.5 millert 289: head.h_subject = NULL;
1.1 deraadt 290: head.h_cc = NIL;
291: head.h_bcc = NIL;
292: head.h_smopts = NIL;
293: mail1(&head, 0);
294: return(0);
295: }
296:
297: /*
298: * Mail a message on standard input to the people indicated
299: * in the passed header. (Internal interface).
300: */
301: void
302: mail1(hp, printheaders)
303: struct header *hp;
304: int printheaders;
305: {
306: char *cp;
307: int pid;
308: char **namelist;
309: struct name *to;
310: FILE *mtf;
311:
312: /*
313: * Collect user's mail from standard input.
314: * Get the result as mtf.
315: */
316: if ((mtf = collect(hp, printheaders)) == NULL)
317: return;
1.5 millert 318: if (value("interactive") != NULL)
319: if (value("askcc") != NULL || value("askbcc") != NULL) {
320: if (value("askcc") != NULL)
1.1 deraadt 321: grabh(hp, GCC);
1.5 millert 322: if (value("askbcc") != NULL)
1.1 deraadt 323: grabh(hp, GBCC);
324: } else {
1.3 millert 325: puts("EOT");
1.4 millert 326: (void)fflush(stdout);
1.1 deraadt 327: }
328: if (fsize(mtf) == 0)
1.5 millert 329: if (hp->h_subject == NULL)
1.3 millert 330: puts("No message, no subject; hope that's ok");
1.1 deraadt 331: else
1.3 millert 332: puts("Null message body; hope that's ok");
1.1 deraadt 333: /*
334: * Now, take the user names from the combined
335: * to and cc lists and do all the alias
336: * processing.
337: */
338: senderr = 0;
339: to = usermap(cat(hp->h_bcc, cat(hp->h_to, hp->h_cc)));
340: if (to == NIL) {
1.3 millert 341: puts("No recipients specified");
1.1 deraadt 342: senderr++;
343: }
344: /*
345: * Look through the recipient list for names with /'s
346: * in them which we write to as files directly.
347: */
348: to = outof(to, mtf, hp);
349: if (senderr)
350: savedeadletter(mtf);
351: to = elide(to);
352: if (count(to) == 0)
353: goto out;
354: fixhead(hp, to);
355: if ((mtf = infix(hp, mtf)) == NULL) {
1.3 millert 356: fputs(". . . message lost, sorry.\n", stderr);
1.1 deraadt 357: return;
358: }
359: namelist = unpack(cat(hp->h_smopts, to));
360: if (debug) {
361: char **t;
362:
1.3 millert 363: fputs("Sendmail arguments:", stdout);
1.5 millert 364: for (t = namelist; *t != NULL; t++)
1.1 deraadt 365: printf(" \"%s\"", *t);
1.3 millert 366: putchar('\n');
1.1 deraadt 367: goto out;
368: }
1.5 millert 369: if ((cp = value("record")) != NULL)
1.4 millert 370: (void)savemail(expand(cp), mtf);
1.1 deraadt 371: /*
372: * Fork, set up the temporary mail file as standard
373: * input for "mail", and exec with the user list we generated
374: * far above.
375: */
376: pid = fork();
377: if (pid == -1) {
1.3 millert 378: warn("fork");
1.1 deraadt 379: savedeadletter(mtf);
380: goto out;
381: }
382: if (pid == 0) {
1.2 deraadt 383: sigset_t nset;
1.6 ! millert 384:
1.2 deraadt 385: sigemptyset(&nset);
386: sigaddset(&nset, SIGHUP);
387: sigaddset(&nset, SIGINT);
388: sigaddset(&nset, SIGQUIT);
389: sigaddset(&nset, SIGTSTP);
390: sigaddset(&nset, SIGTTIN);
391: sigaddset(&nset, SIGTTOU);
392: prepare_child(&nset, fileno(mtf), -1);
1.5 millert 393: if ((cp = value("sendmail")) != NULL)
1.1 deraadt 394: cp = expand(cp);
395: else
396: cp = _PATH_SENDMAIL;
397: execv(cp, namelist);
1.3 millert 398: warn(cp);
1.1 deraadt 399: _exit(1);
400: }
1.5 millert 401: if (value("verbose") != NULL)
1.4 millert 402: (void)wait_child(pid);
1.1 deraadt 403: else
404: free_child(pid);
405: out:
1.3 millert 406: (void)Fclose(mtf);
1.1 deraadt 407: }
408:
409: /*
410: * Fix the header by glopping all of the expanded names from
411: * the distribution list into the appropriate fields.
412: */
413: void
414: fixhead(hp, tolist)
415: struct header *hp;
416: struct name *tolist;
417: {
418: register struct name *np;
419:
420: hp->h_to = NIL;
421: hp->h_cc = NIL;
422: hp->h_bcc = NIL;
423: for (np = tolist; np != NIL; np = np->n_flink)
424: if ((np->n_type & GMASK) == GTO)
425: hp->h_to =
426: cat(hp->h_to, nalloc(np->n_name, np->n_type));
427: else if ((np->n_type & GMASK) == GCC)
428: hp->h_cc =
429: cat(hp->h_cc, nalloc(np->n_name, np->n_type));
430: else if ((np->n_type & GMASK) == GBCC)
431: hp->h_bcc =
432: cat(hp->h_bcc, nalloc(np->n_name, np->n_type));
433: }
434:
435: /*
436: * Prepend a header in front of the collected stuff
437: * and return the new file.
438: */
439: FILE *
440: infix(hp, fi)
441: struct header *hp;
442: FILE *fi;
443: {
444: extern char *tempMail;
445: register FILE *nfo, *nfi;
446: register int c;
447:
448: if ((nfo = Fopen(tempMail, "w")) == NULL) {
1.3 millert 449: warn(tempMail);
1.1 deraadt 450: return(fi);
451: }
452: if ((nfi = Fopen(tempMail, "r")) == NULL) {
1.3 millert 453: warn(tempMail);
454: (void)Fclose(nfo);
1.1 deraadt 455: return(fi);
456: }
1.4 millert 457: (void)rm(tempMail);
458: (void)puthead(hp, nfo, GTO|GSUBJECT|GCC|GBCC|GNL|GCOMMA);
1.1 deraadt 459: c = getc(fi);
460: while (c != EOF) {
1.4 millert 461: (void)putc(c, nfo);
1.1 deraadt 462: c = getc(fi);
463: }
464: if (ferror(fi)) {
1.3 millert 465: warn("read");
1.1 deraadt 466: rewind(fi);
467: return(fi);
468: }
1.4 millert 469: (void)fflush(nfo);
1.1 deraadt 470: if (ferror(nfo)) {
1.3 millert 471: warn(tempMail);
472: (void)Fclose(nfo);
473: (void)Fclose(nfi);
1.1 deraadt 474: rewind(fi);
475: return(fi);
476: }
1.3 millert 477: (void)Fclose(nfo);
478: (void)Fclose(fi);
1.1 deraadt 479: rewind(nfi);
480: return(nfi);
481: }
482:
483: /*
484: * Dump the to, subject, cc header on the
485: * passed file buffer.
486: */
487: int
488: puthead(hp, fo, w)
489: struct header *hp;
490: FILE *fo;
491: int w;
492: {
493: register int gotcha;
494:
495: gotcha = 0;
496: if (hp->h_to != NIL && w & GTO)
497: fmt("To:", hp->h_to, fo, w&GCOMMA), gotcha++;
1.5 millert 498: if (hp->h_subject != NULL && w & GSUBJECT)
1.1 deraadt 499: fprintf(fo, "Subject: %s\n", hp->h_subject), gotcha++;
500: if (hp->h_cc != NIL && w & GCC)
501: fmt("Cc:", hp->h_cc, fo, w&GCOMMA), gotcha++;
502: if (hp->h_bcc != NIL && w & GBCC)
503: fmt("Bcc:", hp->h_bcc, fo, w&GCOMMA), gotcha++;
504: if (gotcha && w & GNL)
1.4 millert 505: (void)putc('\n', fo);
1.1 deraadt 506: return(0);
507: }
508:
509: /*
510: * Format the given header line to not exceed 72 characters.
511: */
512: void
513: fmt(str, np, fo, comma)
514: char *str;
515: register struct name *np;
516: FILE *fo;
517: int comma;
518: {
519: register col, len;
520:
521: comma = comma ? 1 : 0;
522: col = strlen(str);
523: if (col)
524: fputs(str, fo);
525: for (; np != NIL; np = np->n_flink) {
526: if (np->n_flink == NIL)
527: comma = 0;
528: len = strlen(np->n_name);
529: col++; /* for the space */
530: if (col + len + comma > 72 && col > 4) {
531: fputs("\n ", fo);
532: col = 4;
533: } else
534: putc(' ', fo);
535: fputs(np->n_name, fo);
536: if (comma)
537: putc(',', fo);
538: col += len + comma;
539: }
540: putc('\n', fo);
541: }
542:
543: /*
544: * Save the outgoing mail on the passed file.
545: */
546:
547: /*ARGSUSED*/
548: int
549: savemail(name, fi)
550: char name[];
551: register FILE *fi;
552: {
553: register FILE *fo;
554: char buf[BUFSIZ];
555: register i;
1.2 deraadt 556: time_t now;
1.1 deraadt 557:
558: if ((fo = Fopen(name, "a")) == NULL) {
1.3 millert 559: warn(name);
560: return(-1);
1.1 deraadt 561: }
1.4 millert 562: (void)time(&now);
1.1 deraadt 563: fprintf(fo, "From %s %s", myname, ctime(&now));
1.3 millert 564: while ((i = fread(buf, 1, sizeof(buf), fi)) > 0)
1.4 millert 565: (void)fwrite(buf, 1, i, fo);
566: (void)putc('\n', fo);
567: (void)fflush(fo);
1.1 deraadt 568: if (ferror(fo))
1.3 millert 569: warn(name);
570: (void)Fclose(fo);
1.1 deraadt 571: rewind(fi);
1.3 millert 572: return(0);
1.1 deraadt 573: }