NEWS: update to correct false STD I/O statement
[s-mailx.git] / main.c
blob6d9ffc27e33439c47ea7b993ac9cf20525d2a5c9
1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ Startup -- interface with user.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2014 Steffen (Daode) Nurpmeso <sdaoden@users.sf.net>.
6 */
7 /*
8 * Copyright (c) 1980, 1993
9 * The Regents of the University of California. All rights reserved.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
13 * are met:
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. All advertising materials mentioning features or use of this software
20 * must display the following acknowledgement:
21 * This product includes software developed by the University of
22 * California, Berkeley and its contributors.
23 * 4. Neither the name of the University nor the names of its contributors
24 * may be used to endorse or promote products derived from this software
25 * without specific prior written permission.
27 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
28 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
31 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
37 * SUCH DAMAGE.
41 * Most strcpy/sprintf functions have been changed to strncpy/snprintf to
42 * correct several buffer overruns (at least one ot them was exploitable).
43 * Sat Jun 20 04:58:09 CEST 1998 Alvaro Martinez Echevarria <alvaro@lander.es>
44 * ---
45 * Note: We set egid to realgid ... and only if we need the egid we will
46 * switch back temporary. Nevertheless, I do not like seg faults.
47 * Werner Fink, <werner@suse.de>
50 #ifndef HAVE_AMALGAMATION
51 # define _MAIN_SOURCE
52 # include "nail.h"
53 #endif
55 #include <sys/ioctl.h>
57 #include <fcntl.h>
58 #include <pwd.h>
60 #ifdef HAVE_NL_LANGINFO
61 # include <langinfo.h>
62 #endif
63 #ifdef HAVE_SETLOCALE
64 # include <locale.h>
65 #endif
67 #include "version.h"
69 struct a_arg {
70 struct a_arg *aa_next;
71 char *aa_file;
74 /* (extern, but not with amalgamation, so define here) */
75 VL char const weekday_names[7 + 1][4] = {
76 "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", ""
78 VL char const month_names[12 + 1][4] = {
79 "Jan", "Feb", "Mar", "Apr", "May", "Jun",
80 "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", ""
82 VL char const uagent[] = UAGENT;
83 VL char const version[] = VERSION;
84 /*VL char const features[]; The "feature string" comes from config.h */
85 VL uc_it const class_char[] = {
86 /* 000 nul 001 soh 002 stx 003 etx 004 eot 005 enq 006 ack 007 bel */
87 C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL,
88 /* 010 bs 011 ht 012 nl 013 vt 014 np 015 cr 016 so 017 si */
89 C_CNTRL, C_BLANK, C_WHITE, C_SPACE, C_SPACE, C_SPACE, C_CNTRL, C_CNTRL,
90 /* 020 dle 021 dc1 022 dc2 023 dc3 024 dc4 025 nak 026 syn 027 etb */
91 C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL,
92 /* 030 can 031 em 032 sub 033 esc 034 fs 035 gs 036 rs 037 us */
93 C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL,
94 /* 040 sp 041 ! 042 " 043 # 044 $ 045 % 046 & 047 ' */
95 C_BLANK, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
96 /* 050 ( 051 ) 052 * 053 + 054 , 055 - 056 . 057 / */
97 C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
98 /* 060 0 061 1 062 2 063 3 064 4 065 5 066 6 067 7 */
99 C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL,
100 /* 070 8 071 9 072 : 073 ; 074 < 075 = 076 > 077 ? */
101 C_DIGIT, C_DIGIT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
102 /* 100 @ 101 A 102 B 103 C 104 D 105 E 106 F 107 G */
103 C_PUNCT, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER,
104 /* 110 H 111 I 112 J 113 K 114 L 115 M 116 N 117 O */
105 C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER,
106 /* 120 P 121 Q 122 R 123 S 124 T 125 U 126 V 127 W */
107 C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER,
108 /* 130 X 131 Y 132 Z 133 [ 134 \ 135 ] 136 ^ 137 _ */
109 C_UPPER, C_UPPER, C_UPPER, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
110 /* 140 ` 141 a 142 b 143 c 144 d 145 e 146 f 147 g */
111 C_PUNCT, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER,
112 /* 150 h 151 i 152 j 153 k 154 l 155 m 156 n 157 o */
113 C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER,
114 /* 160 p 161 q 162 r 163 s 164 t 165 u 166 v 167 w */
115 C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER,
116 /* 170 x 171 y 172 z 173 { 174 | 175 } 176 ~ 177 del */
117 C_LOWER, C_LOWER, C_LOWER, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_CNTRL
120 /* getopt(3) fallback implementation */
121 #ifdef HAVE_GETOPT
122 # define _oarg optarg
123 # define _oind optind
124 /*# define _oerr opterr*/
125 # define _oopt optopt
126 #else
127 static char *_oarg;
128 static int _oind, /*_oerr,*/ _oopt;
129 #endif
131 /* getopt(3) fallback implementation */
132 #ifdef HAVE_GETOPT
133 # define _getopt getopt
134 #else
135 static int _getopt(int argc, char * const argv[], char const *optstring);
136 #endif
138 /* Perform basic startup initialization */
139 static void _startup(void);
141 /* Grow a char** */
142 static size_t _grow_cpp(char const ***cpp, size_t newsize, size_t oldcnt);
144 /* Initialize *tempdir*, *myname*, *homedir* */
145 static void _setup_vars(void);
147 /* We're in an interactive session - compute what the screen size for printing
148 * headers etc. should be; notify tty upon resize if *is_sighdl* is not 0.
149 * We use the following algorithm for the height:
150 * If baud rate < 1200, use 9
151 * If baud rate = 1200, use 14
152 * If baud rate > 1200, use 24 or ws_row
153 * Width is either 80 or ws_col */
154 static void _setscreensize(int is_sighdl);
156 /* Ok, we are reading mail. Decide whether we are editing a mailbox or reading
157 * the system mailbox, and open up the right stuff */
158 static int _rcv_mode(char const *folder, char const *Larg);
160 /* Interrupt printing of the headers */
161 static void _hdrstop(int signo);
163 #ifndef HAVE_GETOPT
164 static int
165 _getopt(int argc, char * const argv[], char const *optstring)
167 static char const *lastp;
169 int rv = -1, colon;
170 char const *curp;
171 NYD_ENTER;
173 if ((colon = (optstring[0] == ':')))
174 ++optstring;
175 if (lastp != NULL) {
176 curp = lastp;
177 lastp = 0;
178 } else {
179 if (_oind >= argc || argv[_oind] == 0 || argv[_oind][0] != '-' ||
180 argv[_oind][1] == '\0')
181 goto jleave;
182 if (argv[_oind][1] == '-' && argv[_oind][2] == '\0') {
183 ++_oind;
184 goto jleave;
186 curp = &argv[_oind][1];
189 _oopt = curp[0];
190 while (optstring[0] != '\0') {
191 if (optstring[0] == ':' || optstring[0] != _oopt) {
192 ++optstring;
193 continue;
195 if (optstring[1] == ':') {
196 if (curp[1] != '\0') {
197 _oarg = UNCONST(curp + 1);
198 ++_oind;
199 } else {
200 if ((_oind += 2) > argc) {
201 if (!colon /*&& _oerr*/) {
202 fprintf(stderr,
203 tr(79, "%s: option requires an argument -- %c\n"),
204 argv[0], (char)_oopt);
206 rv = (colon ? ':' : '?');
207 goto jleave;
209 _oarg = argv[_oind - 1];
211 } else {
212 if (curp[1] != '\0')
213 lastp = curp + 1;
214 else
215 ++_oind;
216 _oarg = NULL;
218 rv = _oopt;
219 goto jleave;
222 if (!colon /*&& opterr*/)
223 fprintf(stderr, tr(78, "%s: illegal option -- %c\n"), argv[0], _oopt);
224 if (curp[1] != '\0')
225 lastp = curp + 1;
226 else
227 ++_oind;
228 _oarg = 0;
229 rv = '?';
230 jleave:
231 NYD_LEAVE;
232 return rv;
234 #endif /* !HAVE_GETOPT */
236 static void
237 _startup(void)
239 char *cp;
240 NYD_ENTER;
242 /* Absolutely the first thing we do is save our egid and set it to the rgid,
243 * so that we can safely run setgid. We use the sgid (saved set-gid) to
244 * allow ourselves to revert to the egid if we want (temporarily) to become
245 * privileged XXX (s-nail-)*dotlock(-program)* [maybe forked<->Unix IPC?] */
246 effectivegid = getegid();
247 realgid = getgid();
248 if (setgid(realgid) == -1) {
249 perror("setgid");
250 exit(1);
253 image = -1;
254 dflpipe = SIG_DFL;
255 #ifndef HAVE_GETOPT
256 _oind = /*_oerr =*/ 1;
257 #endif
259 if ((cp = strrchr(progname, '/')) != NULL)
260 progname = ++cp;
262 /* Set up a reasonable environment */
264 #ifdef HAVE_DEBUG
265 safe_signal(SIGABRT, &_nyd_oncrash);
266 # ifdef SIGBUS
267 safe_signal(SIGBUS, &_nyd_oncrash);
268 # endif
269 safe_signal(SIGFPE, &_nyd_oncrash);
270 safe_signal(SIGILL, &_nyd_oncrash);
271 safe_signal(SIGSEGV, &_nyd_oncrash);
272 #endif
273 command_manager_start();
275 if (isatty(STDIN_FILENO)) /* TODO should be isatty(0) && isatty(2)?? */
276 options |= OPT_TTYIN | OPT_INTERACTIVE;
277 if (isatty(STDOUT_FILENO))
278 options |= OPT_TTYOUT;
279 if (IS_TTY_SESSION())
280 safe_signal(SIGPIPE, dflpipe = SIG_IGN);
282 /* Define defaults for internal variables, based on POSIX 2008/Cor 1-2013 */
283 /* noallnet */
284 /* noappend */
285 ok_bset(asksub, TRU1);
286 /* noaskbcc */
287 /* noaskcc */
288 /* noautoprint */
289 /* nobang */
290 /* nocmd */
291 /* nocrt */
292 /* nodebug */
293 /* nodot */
294 /* ok_vset(escape, ESCAPE *"~"*); TODO non-compliant */
295 /* noflipr */
296 /* nofolder */
297 ok_bset(header, TRU1);
298 /* nohold */
299 /* noignore */
300 /* noignoreeof */
301 /* nokeep */
302 /* nokeepsave */
303 /* nometoo */
304 /* noonehop -- Note: we ignore this one */
305 /* nooutfolder */
306 /* nopage */
307 ok_vset(prompt, "\\& "); /* POSIX "? " unless *bsdcompat*, then "& " */
308 /* noquiet */
309 /* norecord */
310 ok_bset(save, TRU1);
311 /* nosendwait */
312 /* noshowto */
313 /* nosign */
314 /* noSign */
315 /* ok_vset(toplines, "5"); XXX somewhat hmm */
317 #ifdef HAVE_SETLOCALE
318 setlocale(LC_ALL, "");
319 mb_cur_max = MB_CUR_MAX;
320 # ifdef HAVE_NL_LANGINFO
321 if (ok_vlook(ttycharset) == NULL && (cp = nl_langinfo(CODESET)) != NULL)
322 ok_vset(ttycharset, cp);
323 # endif
325 # ifdef HAVE_C90AMEND1
326 if (mb_cur_max > 1) {
327 wchar_t wc;
328 if (mbtowc(&wc, "\303\266", 2) == 2 && wc == 0xF6 &&
329 mbtowc(&wc, "\342\202\254", 3) == 3 && wc == 0x20AC)
330 utf8 = 1;
331 /* Reset possibly messed up state; luckily this also gives us an
332 * indication wether the encoding has locking shift state sequences */
333 /* TODO temporary - use option bits! */
334 enc_has_state = mbtowc(&wc, NULL, mb_cur_max);
336 # endif
337 #else
338 mb_cur_max = 1;
339 #endif
341 #ifdef HAVE_CATGETS
342 # ifdef NL_CAT_LOCALE
343 catd = catopen(CATNAME, NL_CAT_LOCALE);
344 # else
345 catd = catopen(CATNAME, 0);
346 # endif
347 #endif
349 #ifdef HAVE_ICONV
350 iconvd = (iconv_t)-1;
351 #endif
352 NYD_LEAVE;
355 static size_t
356 _grow_cpp(char const ***cpp, size_t newsize, size_t oldcnt)
358 /* Before spreserve(): use our string pool instead of LibC heap */
359 char const **newcpp;
360 NYD_ENTER;
362 newcpp = salloc(sizeof(char*) * newsize);
364 if (oldcnt > 0)
365 memcpy(newcpp, *cpp, oldcnt * sizeof(char*));
366 *cpp = newcpp;
367 NYD_LEAVE;
368 return newsize;
371 static void
372 _setup_vars(void)
374 /* Before spreserve(): use our string pool instead of LibC heap */
375 /* XXX further check paths? */
376 char const *cp;
377 uid_t uid;
378 struct passwd *pwuid, *pw;
379 NYD_ENTER;
381 tempdir = ((cp = getenv("TMPDIR")) != NULL) ? savestr(cp) : TMPDIR_FALLBACK;
383 cp = (myname == NULL) ? getenv("USER") : myname;
384 uid = getuid();
385 if ((pwuid = getpwuid(uid)) == NULL)
386 panic(tr(201, "Cannot associate a name with uid %lu"), (ul_it)uid);
387 if (cp == NULL)
388 myname = pwuid->pw_name;
389 else if ((pw = getpwnam(cp)) == NULL)
390 panic(tr(236, "`%s' is not a user of this system"), cp);
391 else {
392 myname = pw->pw_name;
393 if (pw->pw_uid != uid)
394 options |= OPT_u_FLAG;
396 myname = savestr(myname);
397 /* XXX myfullname = pw->pw_gecos[OPTIONAL!] -> GUT THAT; TODO pw_shell */
399 if ((cp = getenv("HOME")) == NULL)
400 cp = "."; /* XXX User and Login objects; Login: pw->pw_dir */
401 homedir = savestr(cp);
402 NYD_LEAVE;
405 static void
406 _setscreensize(int is_sighdl)
408 struct termios tbuf;
409 #ifdef TIOCGWINSZ
410 struct winsize ws;
411 #elif defined TIOCGSIZE
412 struct ttysize ts;
413 #endif
414 NYD_ENTER;
416 scrnheight = realscreenheight = scrnwidth = 0;
418 /* (Also) POSIX: LINES and COLUMNS always override. Adjust this
419 * a little bit to be able to honour resizes during our lifetime and
420 * only honour it upon first run; abuse *is_sighdl* as an indicator */
421 if (!is_sighdl) {
422 char *cp;
423 long i;
425 if ((cp = getenv("LINES")) != NULL && (i = strtol(cp, NULL, 10)) > 0)
426 scrnheight = realscreenheight = (int)i;
427 if ((cp = getenv("COLUMNS")) != NULL && (i = strtol(cp, NULL, 10)) > 0)
428 scrnwidth = (int)i;
430 if (scrnwidth != 0 && scrnheight != 0)
431 goto jleave;
434 #ifdef TIOCGWINSZ
435 if (ioctl(STDOUT_FILENO, TIOCGWINSZ, &ws) == -1)
436 ws.ws_col = ws.ws_row = 0;
437 #elif defined TIOCGSIZE
438 if (ioctl(STDOUT_FILENO, TIOCGSIZE, &ws) == -1)
439 ts.ts_lines = ts.ts_cols = 0;
440 #endif
442 if (scrnheight == 0) {
443 speed_t ospeed = ((tcgetattr(STDOUT_FILENO, &tbuf) == -1)
444 ? B9600 : cfgetospeed(&tbuf));
446 if (ospeed < B1200)
447 scrnheight = 9;
448 else if (ospeed == B1200)
449 scrnheight = 14;
450 #ifdef TIOCGWINSZ
451 else if (ws.ws_row != 0)
452 scrnheight = ws.ws_row;
453 #elif defined TIOCGSIZE
454 else if (ts.ts_lines != 0)
455 scrnheight = ts.ts_lines;
456 #endif
457 else
458 scrnheight = 24;
460 #if defined TIOCGWINSZ || defined TIOCGSIZE
461 if (0 ==
462 # ifdef TIOCGWINSZ
463 (realscreenheight = ws.ws_row)
464 # else
465 (realscreenheight = ts.ts_lines)
466 # endif
468 realscreenheight = 24;
469 #endif
472 if (scrnwidth == 0 && 0 ==
473 #ifdef TIOCGWINSZ
474 (scrnwidth = ws.ws_col)
475 #elif defined TIOCGSIZE
476 (scrnwidth = ts.ts_cols)
477 #endif
479 scrnwidth = 80;
481 jleave:
482 #ifdef SIGWINCH
483 if (is_sighdl && IS_TTY_SESSION())
484 tty_signal(SIGWINCH);
485 #endif
486 NYD_LEAVE;
489 static sigjmp_buf __hdrjmp; /* XXX */
491 static int
492 _rcv_mode(char const *folder, char const *Larg)
494 char *cp;
495 int i;
496 sighandler_type prevint;
497 NYD_ENTER;
499 if (folder == NULL)
500 folder = "%";
501 else if (*folder == '@') {
502 /* This must be treated specially to make possible invocation like
503 * -A imap -f @mailbox */
504 if ((cp = ok_vlook(folder)) != NULL && which_protocol(cp) == PROTO_IMAP)
505 n_strlcpy(mailname, cp, PATH_MAX);
508 i = setfile(folder, 0);
509 if (i < 0) {
510 exit_status = EXIT_ERR; /* error already reported */
511 goto jleave;
513 if (options & OPT_EXISTONLY) {
514 exit_status = i;
515 goto jleave;
518 if (options & (OPT_HEADERSONLY | OPT_HEADERLIST)) {
519 print_header_summary(Larg);
520 goto jleave;
523 callhook(mailname, 0);
524 if (i > 0 && !ok_blook(emptystart)) {
525 exit_status = EXIT_ERR;
526 goto jleave;
529 if (sigsetjmp(__hdrjmp, 1) == 0) {
530 if ((prevint = safe_signal(SIGINT, SIG_IGN)) != SIG_IGN)
531 safe_signal(SIGINT, _hdrstop);
532 if (!(options & OPT_N_FLAG)) {
533 if (!ok_blook(quiet))
534 printf(tr(140, "%s version %s. Type ? for help.\n"),
535 (ok_blook(bsdcompat) ? "Mail" : uagent), version);
536 announce(1);
537 fflush(stdout);
539 safe_signal(SIGINT, prevint);
542 /* Enter the command loop */
543 if (options & OPT_INTERACTIVE)
544 tty_init();
545 commands();
546 if (options & OPT_INTERACTIVE)
547 tty_destroy();
549 if (mb.mb_type == MB_FILE || mb.mb_type == MB_MAILDIR) {
550 safe_signal(SIGHUP, SIG_IGN);
551 safe_signal(SIGINT, SIG_IGN);
552 safe_signal(SIGQUIT, SIG_IGN);
554 save_mbox_for_possible_quitstuff();
555 quit();
556 jleave:
557 NYD_LEAVE;
558 return exit_status;
561 static void
562 _hdrstop(int signo)
564 NYD_X; /* Signal handler */
565 UNUSED(signo);
567 fflush(stdout);
568 fprintf(stderr, tr(141, "\nInterrupt\n"));
569 siglongjmp(__hdrjmp, 1);
573 main(int argc, char *argv[])
575 static char const optstr[] = "A:a:Bb:c:DdEeFfHiL:NnO:q:Rr:S:s:tu:Vv~#",
576 usagestr[] =
577 "Synopsis:\n"
578 " %s [-BDdEFintv~] [-A acc] [-a attachment] "
579 "[-b bcc-addr] [-c cc-addr]\n"
580 "\t [-O mtaopt [-O mtaopt-arg]] [-q file] [-r from-addr] "
581 "[-S var[=value]]\n"
582 "\t [-s subject] to-addr...\n"
583 " %s [-BDdEeHiNnRv~#] [-A acc] [-L spec-list] [-S var[=value]] "
584 "-f [file]\n"
585 " %s [-BDdEeHiNnRv~#] [-A acc] [-L spec-list] [-S var[=value]] "
586 "[-u user]\n";
588 struct a_arg *a_head = NULL, *a_curr = /* silence CC */ NULL;
589 struct name *to = NULL, *cc = NULL, *bcc = NULL;
590 struct attachment *attach = NULL;
591 char *cp = NULL, *subject = NULL, *qf = NULL, *Aarg = NULL, *Larg = NULL;
592 char const *okey, **oargs = NULL, *folder = NULL;
593 size_t oargs_size = 0, oargs_count = 0, smopts_size = 0;
594 int i;
595 NYD_ENTER;
598 * Start our lengthy setup
601 starting =
602 var_clear_allow_undefined = TRU1;
604 progname = argv[0];
605 _startup();
607 /* Command line parsing */
608 while ((i = _getopt(argc, argv, optstr)) >= 0) {
609 switch (i) {
610 case 'A':
611 /* Execute an account command later on */
612 Aarg = _oarg;
613 break;
614 case 'a':
615 { struct a_arg *nap = ac_alloc(sizeof(struct a_arg));
616 if (a_head == NULL)
617 a_head = nap;
618 else
619 a_curr->aa_next = nap;
620 nap->aa_next = NULL;
621 nap->aa_file = _oarg;
622 a_curr = nap;
624 options |= OPT_SENDMODE;
625 break;
626 case 'B':
627 /* Make 0/1 line buffered */
628 setvbuf(stdin, NULL, _IOLBF, 0);
629 setvbuf(stdout, NULL, _IOLBF, 0);
630 break;
631 case 'b':
632 /* Get Blind Carbon Copy Recipient list */
633 bcc = cat(bcc, checkaddrs(lextract(_oarg, GBCC | GFULL)));
634 options |= OPT_SENDMODE;
635 break;
636 case 'c':
637 /* Get Carbon Copy Recipient list */
638 cc = cat(cc, checkaddrs(lextract(_oarg, GCC | GFULL)));
639 options |= OPT_SENDMODE;
640 break;
641 case 'D':
642 #ifdef HAVE_IMAP
643 okey = "disconnected";
644 goto joarg;
645 #else
646 break;
647 #endif
648 case 'd':
649 okey = "debug";
650 #ifdef HAVE_DEBUG
651 ok_bset(debug, TRU1);
652 #endif
653 goto joarg;
654 case 'E':
655 okey = "skipemptybody";
656 goto joarg;
657 case 'e':
658 options |= OPT_EXISTONLY;
659 break;
660 case 'F':
661 options |= OPT_F_FLAG | OPT_SENDMODE;
662 break;
663 case 'f':
664 /* User is specifying file to "edit" with Mail, as opposed to reading
665 * system mailbox. If no argument is given, we read his mbox file.
666 * Check for remaining arguments later */
667 folder = "&";
668 break;
669 case 'H':
670 options |= OPT_HEADERSONLY;
671 break;
672 case 'i':
673 /* Ignore interrupts */
674 okey = "ignore";
675 goto joarg;
676 case 'L':
677 Larg = optarg;
678 if (*Larg == '"' || *Larg == '\'') { /* TODO list.c:listspec_check() */
679 size_t j = strlen(++Larg);
680 if (j > 0)
681 Larg[j - 1] = '\0';
683 options |= OPT_HEADERLIST;
684 break;
685 case 'N':
686 /* Avoid initial header printing */
687 okey = "noheader";
688 goto joarg;
689 case 'n':
690 /* Don't source "unspecified system start-up file" */
691 options |= OPT_NOSRC;
692 break;
693 case 'O':
694 /* Additional options to pass-through to MTA */
695 if (smopts_count == (size_t)smopts_size)
696 smopts_size = _grow_cpp(&smopts, smopts_size + 8, smopts_count);
697 smopts[smopts_count++] = skin(_oarg);
698 break;
699 case 'q':
700 /* Quote file TODO drop? -Q with real quote?? what ? */
701 if (*_oarg != '-')
702 qf = _oarg;
703 options |= OPT_SENDMODE;
704 break;
705 case 'R':
706 /* Open folders read-only */
707 options |= OPT_R_FLAG;
708 break;
709 case 'r':
710 /* Set From address. */
711 options |= OPT_r_FLAG;
712 if ((option_r_arg = _oarg)[0] != '\0') {
713 struct name *fa = nalloc(_oarg, GFULL);
715 if (is_addr_invalid(fa, 1) || is_fileorpipe_addr(fa)) {
716 fprintf(stderr, tr(271, "Invalid address argument with -r\n"));
717 goto jusage;
719 option_r_arg = fa->n_name;
720 /* TODO -r options is set in smopts, but may
721 * TODO be overwritten by setting from= in
722 * TODO an interactive session!
723 * TODO Maybe disable setting of from?
724 * TODO Warn user? Update manual!! */
725 okey = savecat("from=", fa->n_fullname);
726 goto joarg;
727 /* ..and fa goes even though it is ready :/ */
729 break;
730 case 'S':
731 /* Set variable. We need to do this twice, since the user surely
732 * wants the setting to take effect immediately, but also doesn't want
733 * it to be overwritten from within resource files */
734 { char *a[2];
735 okey = a[0] = _oarg;
736 a[1] = NULL;
737 c_set(a);
739 joarg:
740 if (oargs_count == oargs_size)
741 oargs_size = _grow_cpp(&oargs, oargs_size + 8, oargs_count);
742 oargs[oargs_count++] = okey;
743 break;
744 case 's':
745 /* Subject: */
746 subject = _oarg;
747 options |= OPT_SENDMODE;
748 break;
749 case 't':
750 /* Read defined set of headers from mail to be send */
751 options |= OPT_SENDMODE | OPT_t_FLAG;
752 break;
753 case 'u':
754 /* Set user name to pretend to be; don't set OPT_u_FLAG yet, this is
755 * done as necessary in _setup_vars() above */
756 myname = _oarg;
757 break;
758 case 'V':
759 puts(version);
760 exit(0);
761 /* NOTREACHED */
762 case 'v':
763 /* Be verbose */
764 okey = "verbose";
765 #ifdef HAVE_DEBUG
766 ok_bset(verbose, TRU1);
767 #endif
768 goto joarg;
769 case '~':
770 /* Enable tilde escapes even in non-interactive mode */
771 options |= OPT_TILDE_FLAG;
772 break;
773 case '#':
774 /* Work in batch mode, even if non-interactive */
775 if (oargs_count + 6 >= oargs_size)
776 oargs_size = _grow_cpp(&oargs, oargs_size + 8, oargs_count);
777 oargs[oargs_count + 0] = "dot";
778 oargs[oargs_count + 1] = "emptystart";
779 oargs[oargs_count + 2] = "noheader";
780 oargs[oargs_count + 3] = "quiet";
781 oargs[oargs_count + 4] = "sendwait";
782 oargs[oargs_count + 5] = "MBOX=/dev/null";
783 oargs_count += 6;
784 folder = "/dev/null";
785 options |= OPT_TILDE_FLAG | OPT_BATCH_FLAG;
786 break;
787 case '?':
788 jusage:
789 fprintf(stderr, tr(135, usagestr), progname, progname, progname);
790 exit_status = EXIT_USE;
791 goto jleave;
795 /* OPT_BATCH_FLAG sets to /dev/null, but -f can still be used and sets & */
796 if (folder != NULL && folder[1] == '\0') {
797 if (_oind < argc) {
798 if (_oind + 1 < argc) {
799 fprintf(stderr, tr(205, "More than one file given with -f\n"));
800 goto jusage;
802 folder = argv[_oind];
804 } else {
805 for (i = _oind; argv[i]; ++i)
806 to = cat(to, checkaddrs(lextract(argv[i], GTO | GFULL)));
807 if (to != NULL)
808 options |= OPT_SENDMODE;
811 /* Check for inconsistent arguments */
812 if (options & OPT_SENDMODE) {
813 if (folder != NULL && !(options & OPT_BATCH_FLAG)) {
814 fprintf(stderr, tr(137, "Cannot give -f and people to send to.\n"));
815 goto jusage;
817 if (myname != NULL) {
818 fprintf(stderr, tr(568,
819 "The -u option cannot be used in send mode\n"));
820 goto jusage;
822 if (!(options & OPT_t_FLAG) && to == NULL) {
823 fprintf(stderr, tr(138,
824 "Send options without primary recipient specified.\n"));
825 goto jusage;
827 if (options & (OPT_HEADERSONLY | OPT_HEADERLIST)) {
828 fprintf(stderr, tr(45,
829 "The -H and -L options cannot be used in send mode.\n"));
830 goto jusage;
832 if (options & OPT_R_FLAG) {
833 fprintf(stderr,
834 tr(235, "The -R option is meaningless in send mode.\n"));
835 goto jusage;
837 } else {
838 if (folder != NULL && myname != NULL) {
839 fprintf(stderr, tr(569,
840 "The options -f and -u are mutually exclusive\n"));
841 goto jusage;
846 * Likely to go, perform more setup
849 _setup_vars();
851 if (options & OPT_INTERACTIVE) {
852 _setscreensize(0);
853 #ifdef SIGWINCH
854 # ifndef TTY_WANTS_SIGWINCH
855 if (safe_signal(SIGWINCH, SIG_IGN) != SIG_IGN)
856 # endif
857 safe_signal(SIGWINCH, _setscreensize);
858 #endif
859 } else
860 scrnheight = realscreenheight = 24, scrnwidth = 80;
862 /* Snapshot our string pools. Memory is auto-reclaimed from now on */
863 spreserve();
865 if (!(options & OPT_NOSRC) && getenv("NAIL_NO_SYSTEM_RC") == NULL)
866 load(SYSCONFRC);
867 /* *expand() returns a savestr(), but load only uses the file name for
868 * fopen(), so it's safe to do this */
869 if ((cp = getenv("MAILRC")) == NULL && (cp = getenv("NAILRC")) == NULL)
870 cp = UNCONST(MAILRC);
871 load(file_expand(cp));
872 if (getenv("NAIL_EXTRA_RC") == NULL &&
873 (cp = ok_vlook(NAIL_EXTRA_RC)) != NULL)
874 load(file_expand(cp));
876 /* Now we can set the account */
877 if (Aarg != NULL) {
878 char *a[2];
879 a[0] = Aarg;
880 a[1] = NULL;
881 c_account(a);
884 /* Ensure the -S and other command line options take precedence over
885 * anything that may have been placed in resource files */
886 for (i = 0; UICMP(z, i, <, oargs_count); ++i) {
887 char const *a[2];
888 a[0] = oargs[i];
889 a[1] = NULL;
890 c_set(a);
894 * We're finally completely setup and ready to go
897 starting =
898 var_clear_allow_undefined = FAL0;
900 if (options & OPT_DEBUG)
901 fprintf(stderr, tr(199, "user = %s, homedir = %s\n"), myname, homedir);
903 if (!(options & OPT_SENDMODE)) {
904 exit_status = _rcv_mode(folder, Larg);
905 goto jleave;
908 /* Now that full mailx(1)-style file expansion is possible handle the
909 * attachments which we had delayed due to this.
910 * This may use savestr(), but since we won't enter the command loop we
911 * don't need to care about that */
912 while (a_head != NULL) {
913 attach = add_attachment(attach, a_head->aa_file, NULL);
914 if (attach != NULL) {
915 a_curr = a_head;
916 a_head = a_head->aa_next;
917 ac_free(a_curr);
918 } else {
919 perror(a_head->aa_file);
920 exit_status = EXIT_ERR;
921 goto jleave;
925 /* xxx exit_status = EXIT_OK; */
926 if (options & OPT_INTERACTIVE)
927 tty_init();
928 mail(to, cc, bcc, subject, attach, qf, ((options & OPT_F_FLAG) != 0));
929 if (options & OPT_INTERACTIVE)
930 tty_destroy();
931 jleave:
932 NYD_LEAVE;
933 return exit_status;
936 /* vim:set fenc=utf-8:s-it-mode */