main.c

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