1/*-
2 * SPDX-License-Identifier: BSD-3-Clause
3 *
4 * Copyright (c) 1980, 1993
5 *	The Regents of the University of California.  All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 *    notice, this list of conditions and the following disclaimer in the
14 *    documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 *    may be used to endorse or promote products derived from this software
17 *    without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32#include "rcv.h"
33#include <fcntl.h>
34#include "extern.h"
35
36/*
37 * Mail -- a mail program
38 *
39 * Startup -- interface with user.
40 */
41int	msgCount;
42int	rcvmode;
43int	sawcom;
44char	*Tflag;
45int	senderr;
46int	edit;
47int	readonly;
48int	noreset;
49int	sourcing;
50int	loading;
51int	cond;
52FILE	*itf;
53FILE	*otf;
54int	image;
55FILE	*input;
56char	mailname[PATHSIZE];
57char	prevfile[PATHSIZE];
58char	*homedir;
59char	*myname;
60off_t	mailsize;
61int	lexnumber;
62char	lexstring[STRINGLEN];
63int	regretp;
64int	regretstack[REGDEP];
65char	*string_stack[REGDEP];
66int	numberstack[REGDEP];
67struct	message	*dot;
68struct	message	*message;
69struct	var	*variables[HSHSIZE];
70struct	grouphead	*groups[HSHSIZE];
71struct	ignoretab	ignore[2];
72
73struct	ignoretab	saveignore[2];
74
75struct	ignoretab	ignoreall[2];
76char	**altnames;
77int	debug;
78int	screenwidth;
79int	screenheight;
80
81int	realscreenheight;
82
83jmp_buf	srbuf;
84
85static jmp_buf	hdrjmp;
86
87extern const char *version;
88
89int
90main(int argc, char *argv[])
91{
92	int i;
93	struct name *to, *cc, *bcc, *smopts;
94	char *subject, *replyto;
95	char *ef, *rc;
96	char nosrc = 0;
97	sig_t prevint;
98
99	/*
100	 * Set up a reasonable environment.
101	 * Figure out whether we are being run interactively,
102	 * start the SIGCHLD catcher, and so forth.
103	 */
104	(void)signal(SIGCHLD, sigchild);
105	if (isatty(0))
106		assign("interactive", "");
107	image = -1;
108	/*
109	 * Now, determine how we are being used.
110	 * We successively pick off - flags.
111	 * If there is anything left, it is the base of the list
112	 * of users to mail to.  Argp will be set to point to the
113	 * first of these users.
114	 */
115	ef = NULL;
116	to = NULL;
117	cc = NULL;
118	bcc = NULL;
119	smopts = NULL;
120	subject = NULL;
121	while ((i = getopt(argc, argv, "FEHINT:b:c:edfins:u:v")) != -1) {
122		switch (i) {
123		case 'T':
124			/*
125			 * Next argument is temp file to write which
126			 * articles have been read/deleted for netnews.
127			 */
128			Tflag = optarg;
129			if ((i = open(Tflag, O_CREAT | O_TRUNC | O_WRONLY,
130			    0600)) < 0)
131				err(1, "%s", Tflag);
132			(void)close(i);
133			break;
134		case 'u':
135			/*
136			 * Next argument is person to pretend to be.
137			 */
138			myname = optarg;
139			unsetenv("MAIL");
140			break;
141		case 'i':
142			/*
143			 * User wants to ignore interrupts.
144			 * Set the variable "ignore"
145			 */
146			assign("ignore", "");
147			break;
148		case 'd':
149			debug++;
150			break;
151		case 'e':
152			/*
153			 * User wants to check mail and exit.
154			 */
155			assign("checkmode", "");
156			break;
157		case 'H':
158			/*
159			 * User wants a header summary only.
160			 */
161			assign("headersummary", "");
162			break;
163		case 'F':
164			/*
165			 * User wants to record messages to files
166			 * named after first recipient username.
167			 */
168			assign("recordrecip", "");
169			break;
170		case 's':
171			/*
172			 * Give a subject field for sending from
173			 * non terminal
174			 */
175			subject = optarg;
176			break;
177		case 'f':
178			/*
179			 * User is specifying file to "edit" with Mail,
180			 * as opposed to reading system mailbox.
181			 * If no argument is given after -f, we read his
182			 * mbox file.
183			 *
184			 * getopt() can't handle optional arguments, so here
185			 * is an ugly hack to get around it.
186			 */
187			if ((argv[optind] != NULL) && (argv[optind][0] != '-'))
188				ef = argv[optind++];
189			else
190				ef = "&";
191			break;
192		case 'n':
193			/*
194			 * User doesn't want to source /usr/lib/Mail.rc
195			 */
196			nosrc++;
197			break;
198		case 'N':
199			/*
200			 * Avoid initial header printing.
201			 */
202			assign("noheader", "");
203			break;
204		case 'v':
205			/*
206			 * Send mailer verbose flag
207			 */
208			assign("verbose", "");
209			break;
210		case 'I':
211			/*
212			 * We're interactive
213			 */
214			assign("interactive", "");
215			break;
216		case 'c':
217			/*
218			 * Get Carbon Copy Recipient list
219			 */
220			cc = cat(cc, nalloc(optarg, GCC));
221			break;
222		case 'b':
223			/*
224			 * Get Blind Carbon Copy Recipient list
225			 */
226			bcc = cat(bcc, nalloc(optarg, GBCC));
227			break;
228		case 'E':
229			/*
230			 * Don't send empty files.
231			 */
232			assign("dontsendempty", "");
233			break;
234		case '?':
235			fprintf(stderr, "\
236Usage: %s [-dEiInv] [-s subject] [-c cc-addr] [-b bcc-addr] [-F] to-addr ...\n\
237       %*s [-sendmail-option ...]\n\
238       %s [-dEHiInNv] [-F] -f [name]\n\
239       %s [-dEHiInNv] [-F] [-u user]\n\
240       %s [-d] -e [-f name]\n", __progname, (int)strlen(__progname), "",
241				__progname, __progname, __progname);
242			exit(1);
243		}
244	}
245	for (i = optind; (argv[i] != NULL) && (*argv[i] != '-'); i++)
246		to = cat(to, nalloc(argv[i], GTO));
247	for (; argv[i] != NULL; i++)
248		smopts = cat(smopts, nalloc(argv[i], 0));
249	/*
250	 * Check for inconsistent arguments.
251	 */
252	if (to == NULL && (subject != NULL || cc != NULL || bcc != NULL))
253		errx(1, "You must specify direct recipients with -s, -c, or -b.");
254	if (ef != NULL && to != NULL)
255		errx(1, "Cannot give -f and people to send to.");
256	tinit();
257	setscreensize();
258	input = stdin;
259	rcvmode = !to;
260	spreserve();
261	if (!nosrc) {
262		char *s, *path_rc;
263
264		if ((path_rc = malloc(sizeof(_PATH_MASTER_RC))) == NULL)
265			err(1, "malloc(path_rc) failed");
266
267		strcpy(path_rc, _PATH_MASTER_RC);
268		while ((s = strsep(&path_rc, ":")) != NULL)
269			if (*s != '\0')
270				load(s);
271	}
272	/*
273	 * Expand returns a savestr, but load only uses the file name
274	 * for fopen, so it's safe to do this.
275	 */
276	if ((rc = getenv("MAILRC")) == NULL)
277		rc = "~/.mailrc";
278	load(expand(rc));
279
280	replyto = value("REPLYTO");
281	if (!rcvmode) {
282		mail(to, cc, bcc, smopts, subject, replyto);
283		/*
284		 * why wait?
285		 */
286		exit(senderr);
287	}
288
289	if(value("checkmode") != NULL) {
290		if (ef == NULL)
291			ef = "%";
292		if (setfile(ef) <= 0)
293			/* Either an error has occurred, or no mail */
294			exit(1);
295		else
296			exit(0);
297		/* NOTREACHED */
298	}
299
300	/*
301	 * Ok, we are reading mail.
302	 * Decide whether we are editing a mailbox or reading
303	 * the system mailbox, and open up the right stuff.
304	 */
305	if (ef == NULL)
306		ef = "%";
307	if (setfile(ef) < 0)
308		exit(1);		/* error already reported */
309	if (setjmp(hdrjmp) == 0) {
310		if ((prevint = signal(SIGINT, SIG_IGN)) != SIG_IGN)
311			(void)signal(SIGINT, hdrstop);
312		if (value("quiet") == NULL)
313			printf("Mail version %s.  Type ? for help.\n",
314				version);
315		announce();
316		(void)fflush(stdout);
317		(void)signal(SIGINT, prevint);
318	}
319
320	/* If we were in header summary mode, it's time to exit. */
321	if (value("headersummary") != NULL)
322		exit(0);
323
324	commands();
325	(void)signal(SIGHUP, SIG_IGN);
326	(void)signal(SIGINT, SIG_IGN);
327	(void)signal(SIGQUIT, SIG_IGN);
328	quit();
329	exit(0);
330}
331
332/*
333 * Interrupt printing of the headers.
334 */
335/*ARGSUSED*/
336void
337hdrstop(int signo __unused)
338{
339
340	(void)fflush(stdout);
341	fprintf(stderr, "\nInterrupt\n");
342	longjmp(hdrjmp, 1);
343}
344
345/*
346 * Compute what the screen size for printing headers should be.
347 * We use the following algorithm for the height:
348 *	If baud rate < 1200, use  9
349 *	If baud rate = 1200, use 14
350 *	If baud rate > 1200, use 24 or ws_row
351 * Width is either 80 or ws_col;
352 */
353void
354setscreensize(void)
355{
356	struct termios tbuf;
357	struct winsize ws;
358	speed_t speed;
359
360	if (ioctl(1, TIOCGWINSZ, (char *)&ws) < 0)
361		ws.ws_col = ws.ws_row = 0;
362	if (tcgetattr(1, &tbuf) < 0)
363		speed = B9600;
364	else
365		speed = cfgetospeed(&tbuf);
366	if (speed < B1200)
367		screenheight = 9;
368	else if (speed == B1200)
369		screenheight = 14;
370	else if (ws.ws_row != 0)
371		screenheight = ws.ws_row;
372	else
373		screenheight = 24;
374	if ((realscreenheight = ws.ws_row) == 0)
375		realscreenheight = 24;
376	if ((screenwidth = ws.ws_col) == 0)
377		screenwidth = 80;
378}
379