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