xref: /freebsd/usr.bin/mail/send.c (revision 9ce73e901878324070d0420a285d144d5acffe2d)
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 	if ((head.h_replyto = getenv("REPLYTO")) == NULL)
291 		head.h_replyto = NULL;
292 	head.h_inreplyto = NULL;
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;
318 	if (value("interactive") != NULL) {
319 		if (value("askcc") != NULL)
320 			grabh(hp, GCC);
321 		else {
322 			printf("EOT\n");
323 			(void)fflush(stdout);
324 		}
325 	}
326 	if (fsize(mtf) == 0) {
327 		if (hp->h_subject == NULL)
328 			printf("No message, no subject; hope that's ok\n");
329 		else
330 			printf("Null message body; hope that's ok\n");
331 	}
332 	/*
333 	 * Now, take the user names from the combined
334 	 * to and cc lists and do all the alias
335 	 * processing.
336 	 */
337 	senderr = 0;
338 	to = usermap(cat(hp->h_bcc, cat(hp->h_to, hp->h_cc)));
339 	if (to == NULL) {
340 		printf("No recipients specified\n");
341 		senderr++;
342 	}
343 	/*
344 	 * Look through the recipient list for names with /'s
345 	 * in them which we write to as files directly.
346 	 */
347 	to = outof(to, mtf, hp);
348 	if (senderr)
349 		savedeadletter(mtf);
350 	to = elide(to);
351 	if (count(to) == 0)
352 		goto out;
353 	fixhead(hp, to);
354 	if ((mtf = infix(hp, mtf)) == NULL) {
355 		fprintf(stderr, ". . . message lost, sorry.\n");
356 		return;
357 	}
358 	namelist = unpack(cat(hp->h_smopts, to));
359 	if (debug) {
360 		char **t;
361 
362 		printf("Sendmail arguments:");
363 		for (t = namelist; *t != NULL; t++)
364 			printf(" \"%s\"", *t);
365 		printf("\n");
366 		goto out;
367 	}
368 	if ((cp = value("record")) != NULL)
369 		(void)savemail(expand(cp), mtf);
370 	/*
371 	 * Fork, set up the temporary mail file as standard
372 	 * input for "mail", and exec with the user list we generated
373 	 * far above.
374 	 */
375 	pid = fork();
376 	if (pid == -1) {
377 		warn("fork");
378 		savedeadletter(mtf);
379 		goto out;
380 	}
381 	if (pid == 0) {
382 		prepare_child(sigmask(SIGHUP)|sigmask(SIGINT)|sigmask(SIGQUIT)|
383 			sigmask(SIGTSTP)|sigmask(SIGTTIN)|sigmask(SIGTTOU),
384 			fileno(mtf), -1);
385 		if ((cp = value("sendmail")) != NULL)
386 			cp = expand(cp);
387 		else
388 			cp = _PATH_SENDMAIL;
389 		execv(cp, namelist);
390 		warn("%s", cp);
391 		_exit(1);
392 	}
393 	if (value("verbose") != NULL)
394 		(void)wait_child(pid);
395 	else
396 		free_child(pid);
397 out:
398 	(void)Fclose(mtf);
399 }
400 
401 /*
402  * Fix the header by glopping all of the expanded names from
403  * the distribution list into the appropriate fields.
404  */
405 void
406 fixhead(hp, tolist)
407 	struct header *hp;
408 	struct name *tolist;
409 {
410 	struct name *np;
411 
412 	hp->h_to = NULL;
413 	hp->h_cc = NULL;
414 	hp->h_bcc = NULL;
415 	for (np = tolist; np != NULL; np = np->n_flink)
416 		if ((np->n_type & GMASK) == GTO)
417 			hp->h_to =
418 			    cat(hp->h_to, nalloc(np->n_name, np->n_type));
419 		else if ((np->n_type & GMASK) == GCC)
420 			hp->h_cc =
421 			    cat(hp->h_cc, nalloc(np->n_name, np->n_type));
422 		else if ((np->n_type & GMASK) == GBCC)
423 			hp->h_bcc =
424 			    cat(hp->h_bcc, nalloc(np->n_name, np->n_type));
425 }
426 
427 /*
428  * Prepend a header in front of the collected stuff
429  * and return the new file.
430  */
431 FILE *
432 infix(hp, fi)
433 	struct header *hp;
434 	FILE *fi;
435 {
436 	FILE *nfo, *nfi;
437 	int c, fd;
438 	char tempname[PATHSIZE];
439 
440 	(void)snprintf(tempname, sizeof(tempname),
441 	    "%s/mail.RsXXXXXXXXXX", tmpdir);
442 	if ((fd = mkstemp(tempname)) == -1 ||
443 	    (nfo = Fdopen(fd, "w")) == NULL) {
444 		warn("%s", tempname);
445 		return (fi);
446 	}
447 	if ((nfi = Fopen(tempname, "r")) == NULL) {
448 		warn("%s", tempname);
449 		(void)Fclose(nfo);
450 		(void)rm(tempname);
451 		return (fi);
452 	}
453 	(void)rm(tempname);
454 	(void)puthead(hp, nfo,
455 	    GTO|GSUBJECT|GCC|GBCC|GREPLYTO|GINREPLYTO|GNL|GCOMMA);
456 	c = getc(fi);
457 	while (c != EOF) {
458 		(void)putc(c, nfo);
459 		c = getc(fi);
460 	}
461 	if (ferror(fi)) {
462 		warnx("read");
463 		rewind(fi);
464 		return (fi);
465 	}
466 	(void)fflush(nfo);
467 	if (ferror(nfo)) {
468 		warn("%s", tempname);
469 		(void)Fclose(nfo);
470 		(void)Fclose(nfi);
471 		rewind(fi);
472 		return (fi);
473 	}
474 	(void)Fclose(nfo);
475 	(void)Fclose(fi);
476 	rewind(nfi);
477 	return (nfi);
478 }
479 
480 /*
481  * Dump the to, subject, cc header on the
482  * passed file buffer.
483  */
484 int
485 puthead(hp, fo, w)
486 	struct header *hp;
487 	FILE *fo;
488 	int w;
489 {
490 	int gotcha;
491 
492 	gotcha = 0;
493 	if (hp->h_to != NULL && w & GTO)
494 		fmt("To:", hp->h_to, fo, w&GCOMMA), gotcha++;
495 	if (hp->h_subject != NULL && w & GSUBJECT)
496 		fprintf(fo, "Subject: %s\n", hp->h_subject), gotcha++;
497 	if (hp->h_cc != NULL && w & GCC)
498 		fmt("Cc:", hp->h_cc, fo, w&GCOMMA), gotcha++;
499 	if (hp->h_bcc != NULL && w & GBCC)
500 		fmt("Bcc:", hp->h_bcc, fo, w&GCOMMA), gotcha++;
501 	if (hp->h_replyto != NULL && w & GREPLYTO)
502 		fprintf(fo, "Reply-To: %s\n", hp->h_replyto), gotcha++;
503 	if (hp->h_inreplyto != NULL && w & GINREPLYTO)
504 		fprintf(fo, "In-Reply-To: <%s>\n", hp->h_inreplyto), gotcha++;
505 	if (gotcha && w & GNL)
506 		(void)putc('\n', fo);
507 	return (0);
508 }
509 
510 /*
511  * Format the given header line to not exceed 72 characters.
512  */
513 void
514 fmt(str, np, fo, comma)
515 	const char *str;
516 	struct name *np;
517 	FILE *fo;
518 	int comma;
519 {
520 	int col, len;
521 
522 	comma = comma ? 1 : 0;
523 	col = strlen(str);
524 	if (col)
525 		fputs(str, fo);
526 	for (; np != NULL; np = np->n_flink) {
527 		if (np->n_flink == NULL)
528 			comma = 0;
529 		len = strlen(np->n_name);
530 		col++;		/* for the space */
531 		if (col + len + comma > 72 && col > 4) {
532 			fprintf(fo, "\n    ");
533 			col = 4;
534 		} else
535 			fprintf(fo, " ");
536 		fputs(np->n_name, fo);
537 		if (comma)
538 			fprintf(fo, ",");
539 		col += len + comma;
540 	}
541 	fprintf(fo, "\n");
542 }
543 
544 /*
545  * Save the outgoing mail on the passed file.
546  */
547 
548 /*ARGSUSED*/
549 int
550 savemail(name, fi)
551 	char name[];
552 	FILE *fi;
553 {
554 	FILE *fo;
555 	char buf[BUFSIZ];
556 	int i;
557 	time_t now;
558 
559 	if ((fo = Fopen(name, "a")) == NULL) {
560 		warn("%s", name);
561 		return (-1);
562 	}
563 	(void)time(&now);
564 	fprintf(fo, "From %s %s", myname, ctime(&now));
565 	while ((i = fread(buf, 1, sizeof(buf), fi)) > 0)
566 		(void)fwrite(buf, 1, i, fo);
567 	fprintf(fo, "\n");
568 	(void)fflush(fo);
569 	if (ferror(fo))
570 		warn("%s", name);
571 	(void)Fclose(fo);
572 	rewind(fi);
573 	return (0);
574 }
575