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