main.c

   1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
   2  *@ Startup and initialization.
   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 - 2016 Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
   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. Neither the name of the University nor the names of its contributors
  21  *    may be used to endorse or promote products derived from this software
  22  *    without specific prior written permission.
  23  *
  24  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  34  * SUCH DAMAGE.
  35  */
  36 #undef n_FILE
  37 #define n_FILE main
  38 #define n_MAIN_SOURCE
  39
  40 #include "nail.h"
  41
  42 #include <sys/ioctl.h>
  43
  44 #include <pwd.h>
  45
  46 #ifdef HAVE_NL_LANGINFO
  47 # include <langinfo.h>
  48 #endif
  49 #ifdef HAVE_SETLOCALE
  50 # include <locale.h>
  51 #endif
  52
  53 struct a_arg {
  54    struct a_arg   *aa_next;
  55    char           *aa_file;
  56 };
  57
  58 /* (extern, but not with amalgamation, so define here) */
  59 VL char const        weekday_names[7 + 1][4] = {
  60    "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", ""
  61 };
  62 VL char const        month_names[12 + 1][4] = {
  63    "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  64    "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", ""
  65 };
  66 VL char const        uagent[sizeof VAL_UAGENT] = VAL_UAGENT;
  67 VL ui16_t const      class_char[1 + 0x7F] = {
  68 #define a_BC C_BLANK | C_CNTRL
  69 #define a_SC C_SPACE | C_CNTRL
  70 #define a_WC C_WHITE | C_CNTRL
  71 /* 000 nul  001 soh  002 stx  003 etx  004 eot  005 enq  006 ack  007 bel */
  72    C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL,
  73 /* 010 bs   011 ht   012 nl   013 vt   014 np   015 cr   016 so   017 si */
  74    C_CNTRL, a_BC,    a_WC,    a_SC,    a_SC,    a_SC,    C_CNTRL, C_CNTRL,
  75 /* 020 dle  021 dc1  022 dc2  023 dc3  024 dc4  025 nak  026 syn  027 etb */
  76    C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL,
  77 /* 030 can  031 em   032 sub  033 esc  034 fs   035 gs   036 rs   037 us */
  78    C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL, C_CNTRL,
  79 #undef a_WC
  80 #undef a_SC
  81 #undef a_BC
  82 /* 040 sp   041  !   042  "   043  #   044  $   045  %   046  &   047  ' */
  83    C_BLANK, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
  84 /* 050  (   051  )   052  *   053  +   054  ,    055  -   056  .   057  / */
  85    C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
  86 /* 060  0   061  1   062  2   063  3   064  4   065  5   066  6   067  7 */
  87    C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL, C_OCTAL,
  88 /* 070  8   071  9   072  :   073  ;   074  <   075  =   076  >   077  ? */
  89    C_DIGIT, C_DIGIT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
  90 /* 100  @   101  A   102  B   103  C   104  D   105  E   106  F   107  G */
  91    C_PUNCT, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER,
  92 /* 110  H   111  I   112  J   113  K   114  L   115  M   116  N   117  O */
  93    C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER,
  94 /* 120  P   121  Q   122  R   123  S   124  T   125  U   126  V   127  W */
  95    C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER, C_UPPER,
  96 /* 130  X   131  Y   132  Z   133  [   134  \   135  ]   136  ^   137  _ */
  97    C_UPPER, C_UPPER, C_UPPER, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT,
  98 /* 140  `   141  a   142  b   143  c   144  d   145  e   146  f   147  g */
  99    C_PUNCT, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER,
 100 /* 150  h   151  i   152  j   153  k   154  l   155  m   156  n   157  o */
 101    C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER,
 102 /* 160  p   161  q   162  r   163  s   164  t   165  u   166  v   167  w */
 103    C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER, C_LOWER,
 104 /* 170  x   171  y   172  z   173  {   174  |   175  }   176  ~   177 del */
 105    C_LOWER, C_LOWER, C_LOWER, C_PUNCT, C_PUNCT, C_PUNCT, C_PUNCT, C_CNTRL
 106 };
 107
 108 /* Our own little getopt(3) */
 109 static char          *_oarg;
 110 static int           _oind, /*_oerr,*/ _oopt;
 111
 112 /* Our own little getopt(3); note --help is special-treated as 'h' */
 113 static int     _getopt(int argc, char * const argv[], char const *optstring);
 114
 115 /* Perform basic startup initialization */
 116 static void    _startup(void);
 117
 118 /* Grow a char** */
 119 static size_t  _grow_cpp(char const ***cpp, size_t newsize, size_t oldcnt);
 120
 121 /* Setup some variables which we require to be valid / verified */
 122 static void    _setup_vars(void);
 123
 124 /* We're in an interactive session - compute what the screen size for printing
 125  * headers etc. should be; notify tty upon resize if *is_sighdl* is not 0.
 126  * We use the following algorithm for the height:
 127  * If baud rate < 1200, use  9
 128  * If baud rate = 1200, use 14
 129  * If baud rate > 1200, use 24 or ws_row
 130  * Width is either 80 or ws_col */
 131 static void    _setscreensize(int is_sighdl);
 132
 133 /* Ok, we are reading mail.  Decide whether we are editing a mailbox or reading
 134  * the system mailbox, and open up the right stuff */
 135 static int     _rcv_mode(char const *folder, char const *Larg);
 136
 137 /* Interrupt printing of the headers */
 138 static void    _hdrstop(int signo);
 139
 140 static int
 141 _getopt(int argc, char * const argv[], char const *optstring)
 142 {
 143    static char const *lastp;
 144
 145    int rv = -1/*, colon*/;
 146    char const *curp;
 147    NYD_ENTER;
 148
 149    _oarg = NULL;
 150
 151    /*if ((colon = (optstring[0] == ':')))
 152       ++optstring;*/
 153
 154    if (lastp != NULL) {
 155       curp = lastp;
 156       lastp = NULL;
 157    } else {
 158       if (_oind >= argc || argv[_oind] == NULL || argv[_oind][0] != '-' ||
 159             argv[_oind][1] == '\0')
 160          goto jleave;
 161       if (argv[_oind][1] == '-' && argv[_oind][2] == '\0') {
 162          /* We need this in for MTA arg detection (easier) ++_oind;*/
 163          goto jleave;
 164       }
 165       curp = &argv[_oind][1];
 166    }
 167
 168    for(_oopt = curp[0]; optstring[0] != '\0';){
 169       if(optstring[0] != _oopt){
 170          optstring += 1 + (optstring[1] == ':');
 171          continue;
 172       }
 173
 174       if (optstring[1] == ':') {
 175          if (curp[1] != '\0') {
 176             _oarg = UNCONST(curp + 1);
 177             ++_oind;
 178          } else {
 179             if ((_oind += 2) > argc) {
 180                /*if (!colon *//*&& _oerr*//*)*/ {
 181                   n_err(_("%s: option requires an argument -- %c\n"),
 182                      argv[0], (char)_oopt);
 183                }
 184                rv = (/*colon ? ':' :*/ '?');
 185                goto jleave;
 186             }
 187             _oarg = argv[_oind - 1];
 188          }
 189       } else {
 190          if (curp[1] != '\0')
 191             lastp = curp + 1;
 192          else
 193             ++_oind;
 194       }
 195       rv = _oopt;
 196       goto jleave;
 197    }
 198
 199    /* Special support for --help, which is quite common */
 200    if (_oopt == '-' && !strcmp(curp, "-help") && curp - 1 == argv[_oind]) {
 201       ++_oind;
 202       rv = 'h';
 203       goto jleave;
 204    }
 205
 206    /* Definitive error */
 207    /*if (!colon *//*&& opterr*//*)*/
 208       n_err(_("%s: invalid option -- %c\n"), argv[0], _oopt);
 209    if (curp[1] != '\0')
 210       lastp = curp + 1;
 211    else
 212       ++_oind;
 213    _oarg = NULL;
 214    rv = '?';
 215 jleave:
 216    NYD_LEAVE;
 217    return rv;
 218 }
 219
 220 static void
 221 _startup(void)
 222 {
 223    char *cp;
 224    NYD_ENTER;
 225
 226    image = -1;
 227    dflpipe = SIG_DFL;
 228    _oind = /*_oerr =*/ 1;
 229
 230    if ((cp = strrchr(progname, '/')) != NULL)
 231       progname = ++cp;
 232
 233    /* Set up a reasonable environment */
 234
 235 #ifdef HAVE_NYD
 236    safe_signal(SIGABRT, &_nyd_oncrash);
 237 # ifdef SIGBUS
 238    safe_signal(SIGBUS, &_nyd_oncrash);
 239 # endif
 240    safe_signal(SIGFPE, &_nyd_oncrash);
 241    safe_signal(SIGILL, &_nyd_oncrash);
 242    safe_signal(SIGSEGV, &_nyd_oncrash);
 243 #endif
 244    command_manager_start();
 245
 246    if (isatty(STDIN_FILENO)) /* TODO should be isatty(0) && isatty(2)?? */
 247       options |= OPT_TTYIN;
 248    if (isatty(STDOUT_FILENO))
 249       options |= OPT_TTYOUT;
 250    if ((options & (OPT_TTYIN | OPT_TTYOUT)) == (OPT_TTYIN | OPT_TTYOUT)) {
 251       options |= OPT_INTERACTIVE;
 252       safe_signal(SIGPIPE, dflpipe = SIG_IGN);
 253    }
 254
 255    /*  --  >8  --  8<  --  */
 256
 257 #ifdef HAVE_SETLOCALE
 258    setlocale(LC_ALL, "");
 259    mb_cur_max = MB_CUR_MAX;
 260 # ifdef HAVE_NL_LANGINFO
 261    if (ok_vlook(ttycharset) == NULL && (cp = nl_langinfo(CODESET)) != NULL)
 262       ok_vset(ttycharset, cp);
 263 # endif
 264
 265 # ifdef HAVE_C90AMEND1
 266    if (mb_cur_max > 1) {
 267       wchar_t  wc;
 268       if (mbtowc(&wc, "\303\266", 2) == 2 && wc == 0xF6 &&
 269             mbtowc(&wc, "\342\202\254", 3) == 3 && wc == 0x20AC)
 270          options |= OPT_UNICODE;
 271       /* Reset possibly messed up state; luckily this also gives us an
 272        * indication whether the encoding has locking shift state sequences */
 273       /* TODO temporary - use option bits! */
 274       if (mbtowc(&wc, NULL, mb_cur_max))
 275          options |= OPT_ENC_MBSTATE;
 276    }
 277 # endif
 278 #else
 279    mb_cur_max = 1;
 280 #endif
 281
 282 #ifdef HAVE_ICONV
 283    iconvd = (iconv_t)-1;
 284 #endif
 285    NYD_LEAVE;
 286 }
 287
 288 static size_t
 289 _grow_cpp(char const ***cpp, size_t newsize, size_t oldcnt)
 290 {
 291    /* Before spreserve(): use our string pool instead of LibC heap */
 292    char const **newcpp;
 293    NYD_ENTER;
 294
 295    newcpp = salloc(sizeof(char*) * newsize);
 296
 297    if (oldcnt > 0)
 298       memcpy(newcpp, *cpp, oldcnt * sizeof(char*));
 299    *cpp = newcpp;
 300    NYD_LEAVE;
 301    return newsize;
 302 }
 303
 304 static void
 305 _setup_vars(void){
 306    /* XXX furtherly check paths? */
 307    struct passwd *pwuid;
 308    char const *cp;
 309    NYD_ENTER;
 310
 311    group_id = getgid();
 312    if((pwuid = getpwuid(user_id = getuid())) == NULL)
 313       n_panic(_("Cannot associate a name with uid %lu"), (ul_i)user_id);
 314    myname = savestr(pwuid->pw_name); /* XXX replace uses with vlook(LOGNAME)! */
 315
 316    /* C99 */{
 317       char const *ep;
 318       bool_t doenv;
 319
 320       if(!(doenv = (ep = ok_vlook(LOGNAME)) == NULL) &&
 321             (doenv = strcmp(myname, ep)))
 322          n_err(_("Warning: $LOGNAME (%s) not identical to user (%s)!\n"),
 323             ep, myname);
 324       if(doenv){
 325          pstate |= PS_ROOT;
 326          ok_vset(LOGNAME, myname);
 327          pstate &= ~PS_ROOT;
 328       }
 329
 330       if((ep = ok_vlook(USER)) != NULL && strcmp(myname, ep)){
 331          n_err(_("Warning: $USER (%s) not identical to user (%s)!\n"),
 332             ep, myname);
 333          pstate |= PS_ROOT;
 334          ok_vset(USER, myname);
 335          pstate &= ~PS_ROOT;
 336       }
 337    }
 338
 339    /* XXX myfullname = pw->pw_gecos[OPTIONAL!] -> GUT THAT; TODO pw_shell */
 340
 341    /* */
 342    if((cp = ok_vlook(HOME)) == NULL){
 343       cp = pwuid->pw_dir;
 344       pstate |= PS_ROOT;
 345       ok_vset(HOME, cp);
 346       pstate &= ~PS_ROOT;
 347    }
 348
 349    (void)ok_vlook(TMPDIR);
 350    NYD_LEAVE;
 351 }
 352
 353 static void
 354 _setscreensize(int is_sighdl) /* TODO global policy; int wraps; minvals! */
 355 {
 356    struct termios tbuf;
 357 #ifdef TIOCGWINSZ
 358    struct winsize ws;
 359 #elif defined TIOCGSIZE
 360    struct ttysize ts;
 361 #endif
 362    NYD_ENTER;
 363
 364    scrnheight = realscreenheight = scrnwidth = 0;
 365
 366    /* (Also) POSIX: LINES and COLUMNS always override.  Adjust this
 367     * a little bit to be able to honour resizes during our lifetime and
 368     * only honour it upon first run; abuse *is_sighdl* as an indicator */
 369    if (!is_sighdl) {
 370       char *cp;
 371
 372       /* We manage those variables for our child processes, so ensure they
 373        * are up to date, always */
 374       if (options & OPT_INTERACTIVE)
 375          pstate |= PS_SIGWINCH_PEND;
 376
 377       if ((cp = ok_vlook(LINES)) != NULL)
 378          scrnheight = realscreenheight = (int)strtoul(cp, NULL, 0); /* TODO */
 379       if ((cp = ok_vlook(COLUMNS)) != NULL)
 380          scrnwidth = (int)strtoul(cp, NULL, 0); /* TODO posui32= not posnum=! */
 381
 382       if (scrnwidth != 0 && scrnheight != 0)
 383          goto jleave;
 384    }
 385
 386 #ifdef TIOCGWINSZ
 387    if (ioctl(STDOUT_FILENO, TIOCGWINSZ, &ws) == -1)
 388       ws.ws_col = ws.ws_row = 0;
 389 #elif defined TIOCGSIZE
 390    if (ioctl(STDOUT_FILENO, TIOCGSIZE, &ws) == -1)
 391       ts.ts_lines = ts.ts_cols = 0;
 392 #endif
 393
 394    if (scrnheight == 0) {
 395       speed_t ospeed = ((tcgetattr(STDOUT_FILENO, &tbuf) == -1)
 396             ? B9600 : cfgetospeed(&tbuf));
 397
 398       if (ospeed < B1200)
 399          scrnheight = 9;
 400       else if (ospeed == B1200)
 401          scrnheight = 14;
 402 #ifdef TIOCGWINSZ
 403       else if (ws.ws_row != 0)
 404          scrnheight = ws.ws_row;
 405 #elif defined TIOCGSIZE
 406       else if (ts.ts_lines != 0)
 407          scrnheight = ts.ts_lines;
 408 #endif
 409       else
 410          scrnheight = 24;
 411
 412 #if defined TIOCGWINSZ || defined TIOCGSIZE
 413       if (0 ==
 414 # ifdef TIOCGWINSZ
 415             (realscreenheight = ws.ws_row)
 416 # else
 417             (realscreenheight = ts.ts_lines)
 418 # endif
 419       )
 420          realscreenheight = 24;
 421 #endif
 422    }
 423
 424    if (scrnwidth == 0 && 0 ==
 425 #ifdef TIOCGWINSZ
 426          (scrnwidth = ws.ws_col)
 427 #elif defined TIOCGSIZE
 428          (scrnwidth = ts.ts_cols)
 429 #endif
 430    )
 431       scrnwidth = 80;
 432
 433 jleave:
 434 #ifdef SIGWINCH
 435    if (is_sighdl) {
 436       pstate |= PS_SIGWINCH_PEND; /* XXX Not atomic */
 437       if (options & OPT_INTERACTIVE)
 438          n_tty_signal(SIGWINCH);
 439    }
 440 #endif
 441    NYD_LEAVE;
 442 }
 443
 444 static sigjmp_buf __hdrjmp; /* XXX */
 445
 446 static int
 447 _rcv_mode(char const *folder, char const *Larg)
 448 {
 449    int i;
 450    sighandler_type prevint;
 451    NYD_ENTER;
 452
 453    if (folder == NULL)
 454       folder = "%";
 455
 456    if (options & OPT_QUICKRUN_MASK)
 457       i = FEDIT_RDONLY;
 458    else
 459       i = FEDIT_NONE;
 460    i = setfile(folder, i);
 461    if (i < 0) {
 462       exit_status = EXIT_ERR; /* error already reported */
 463       goto jquit;
 464    }
 465    if (options & OPT_QUICKRUN_MASK) {
 466       exit_status = i;
 467       if (i == EXIT_OK && (!(options & OPT_EXISTONLY) ||
 468             (options & OPT_HEADERLIST)))
 469          print_header_summary(Larg);
 470       goto jquit;
 471    }
 472    check_folder_hook(FAL0);
 473
 474    if (i > 0 && !ok_blook(emptystart)) {
 475       exit_status = EXIT_ERR;
 476       goto jleave;
 477    }
 478
 479    if (sigsetjmp(__hdrjmp, 1) == 0) {
 480       if ((prevint = safe_signal(SIGINT, SIG_IGN)) != SIG_IGN)
 481          safe_signal(SIGINT, _hdrstop);
 482       if (!(options & OPT_N_FLAG)) {
 483          if (!ok_blook(quiet))
 484             printf(_("%s version %s.  Type `?' for help\n"),
 485                (ok_blook(bsdcompat) ? "Mail" : uagent), ok_vlook(version));
 486          announce(1);
 487          fflush(stdout);
 488       }
 489       safe_signal(SIGINT, prevint);
 490    }
 491
 492    /* Enter the command loop */
 493    if (options & OPT_INTERACTIVE)
 494       n_tty_init();
 495    n_commands();
 496    if (options & OPT_INTERACTIVE)
 497       n_tty_destroy();
 498
 499    if (mb.mb_type == MB_FILE || mb.mb_type == MB_MAILDIR) {
 500       safe_signal(SIGHUP, SIG_IGN);
 501       safe_signal(SIGINT, SIG_IGN);
 502       safe_signal(SIGQUIT, SIG_IGN);
 503    }
 504 jquit:
 505    save_mbox_for_possible_quitstuff();
 506    quit();
 507 jleave:
 508    NYD_LEAVE;
 509    return exit_status;
 510 }
 511
 512 static void
 513 _hdrstop(int signo)
 514 {
 515    NYD_X; /* Signal handler */
 516    UNUSED(signo);
 517
 518    fflush(stdout);
 519    n_err_sighdl(_("\nInterrupt\n"));
 520    siglongjmp(__hdrjmp, 1);
 521 }
 522
 523 int
 524 main(int argc, char *argv[]){
 525    /* Keep in SYNC: ./nail.1:"SYNOPSIS, main() */
 526    static char const
 527       optstr[] = "A:a:Bb:c:dEeFfHhiL:M:m:NnO:q:Rr:S:s:tu:VvX:::~#.",
 528       usagestr[] = N_(
 529          "Synopsis:\n"
 530          "  %s -h\n"
 531
 532          "  %s [-BdEFintv~] [-: spec] [-A account]\n"
 533          "\t [-a attachment] [-b bcc-addr] [-c cc-addr]\n"
 534          "\t [-M type | -m file | -q file | -t]\n"
 535          "\t [-r from-addr] [-S var[=value]..]\n"
 536          "\t [-s subject] [-X cmd] [-.] to-addr.. [-- mta-option..]\n"
 537
 538          "  %s [-BdEeHiNnRv~] [-: spec] [-A account]\n"
 539          "\t [-L spec-list] [-r from-addr] [-S var[=value]..]\n"
 540          "\t [-u user] [-X cmd] [-- mta-option..]\n"
 541
 542          "  %s [-BdEeHiNnRv~#] [-: spec] [-A account] -f\n"
 543          "\t [-L spec-list] [-r from-addr] [-S var[=value]..]\n"
 544          "\t [-X cmd] [file] [-- mta-option..]\n"
 545       );
 546 #define _USAGE_ARGS , progname, progname, progname, progname
 547
 548    struct a_arg *a_head, *a_curr;
 549    struct name *to, *cc, *bcc;
 550    struct attachment *attach;
 551    char *cp, *subject, *qf, *Aarg, *Larg;
 552    char const *okey, **oargs, **Xargs, *folder, *emsg;
 553    size_t oargs_size, oargs_cnt, Xargs_size, Xargs_cnt, smopts_size;
 554    enum{
 555       a_RF_NONE = 0,
 556       a_RF_SET = 1<<0,
 557       a_RF_SYSTEM = 1<<1,
 558       a_RF_USER = 1<<2,
 559       a_RF_ALL = a_RF_SYSTEM | a_RF_USER
 560    } resfiles;
 561    int i;
 562    NYD_ENTER;
 563
 564    a_head = NULL;
 565    UNINIT(a_curr, NULL);
 566    to = cc = bcc = NULL;
 567    attach = NULL;
 568    cp = subject = qf =
 569          Aarg = Larg = NULL;
 570    oargs = Xargs = NULL;
 571    folder = emsg = NULL;
 572    oargs_size = oargs_cnt = Xargs_size = Xargs_cnt = smopts_size = 0;
 573    resfiles = a_RF_ALL;
 574
 575    /*
 576     * Start our lengthy setup, finalize by setting PS_STARTED
 577     */
 578
 579    progname = argv[0];
 580    _startup();
 581
 582    /* Command line parsing
 583     * Variable settings need to be done twice, since the user surely wants the
 584     * setting to take effect immediately, but also doesn't want it to be
 585     * overwritten from within resource files */
 586    while ((i = _getopt(argc, argv, optstr)) >= 0) {
 587       switch (i) {
 588       case 'A':
 589          /* Execute an account command later on */
 590          Aarg = _oarg;
 591          break;
 592       case 'a':
 593          options |= OPT_SENDMODE;
 594          {  struct a_arg *nap = salloc(sizeof(struct a_arg));
 595             if (a_head == NULL)
 596                a_head = nap;
 597             else
 598                a_curr->aa_next = nap;
 599             nap->aa_next = NULL;
 600             nap->aa_file = _oarg;
 601             a_curr = nap;
 602          }
 603          break;
 604       case 'B':
 605          /* Make 0/1 line buffered */
 606          setvbuf(stdin, NULL, _IOLBF, 0);
 607          setvbuf(stdout, NULL, _IOLBF, 0);
 608          break;
 609       case 'b':
 610          /* Get Blind Carbon Copy Recipient list */
 611          options |= OPT_SENDMODE;
 612          bcc = cat(bcc, lextract(_oarg, GBCC | GFULL));
 613          break;
 614       case 'c':
 615          /* Get Carbon Copy Recipient list */
 616          options |= OPT_SENDMODE;
 617          cc = cat(cc, lextract(_oarg, GCC | GFULL));
 618          break;
 619       case 'd':
 620          ok_bset(debug);
 621          okey = "debug";
 622          goto joarg;
 623       case 'E':
 624          ok_bset(skipemptybody);
 625          okey = "skipemptybody";
 626          goto joarg;
 627       case 'e':
 628          options |= OPT_EXISTONLY;
 629          break;
 630       case 'F':
 631          options |= OPT_F_FLAG | OPT_SENDMODE;
 632          break;
 633       case 'f':
 634          /* User is specifying file to "edit" with Mail, as opposed to reading
 635           * system mailbox.  If no argument is given, we read his mbox file.
 636           * Check for remaining arguments later */
 637          folder = "&";
 638          break;
 639       case 'H':
 640          options |= OPT_HEADERSONLY;
 641          break;
 642       case 'h':
 643          n_err(V_(usagestr) _USAGE_ARGS);
 644          goto j_leave;
 645       case 'i':
 646          /* Ignore interrupts */
 647          ok_bset(ignore);
 648          okey = "ignore";
 649          goto joarg;
 650       case 'L':
 651          Larg = _oarg;
 652          options |= OPT_HEADERLIST;
 653          if (*Larg == '"' || *Larg == '\'') { /* TODO list.c:listspec_check() */
 654             size_t j = strlen(++Larg);
 655             if (j > 0)
 656                Larg[j - 1] = '\0';
 657          }
 658          break;
 659       case 'M':
 660          if(qf != NULL && (!(options & OPT_Mm_FLAG) || qf != (char*)-1))
 661             goto jeMmq;
 662          option_Mm_arg = _oarg;
 663          qf = (char*)-1;
 664          if(0){
 665             /* FALLTHRU*/
 666       case 'm':
 667             if(qf != NULL && (!(options & OPT_Mm_FLAG) || qf == (char*)-1))
 668                goto jeMmq;
 669             qf = _oarg;
 670          }
 671          options |= OPT_SENDMODE | OPT_Mm_FLAG;
 672          break;
 673       case 'N':
 674          /* Avoid initial header printing */
 675          ok_bclear(header);
 676          okey = "noheader";
 677          goto joarg;
 678       case 'n':
 679          /* Don't source "unspecified system start-up file" */
 680          if(resfiles & a_RF_SET){
 681             emsg = N_("-n cannot be used in conjunction with -:");
 682             goto jusage;
 683          }
 684          resfiles = a_RF_USER;
 685          break;
 686       case 'O':
 687          /* Additional options to pass-through to MTA TODO v15-compat legacy */
 688          if (smopts_cnt == smopts_size)
 689             smopts_size = _grow_cpp(&smopts, smopts_size + 8, smopts_cnt);
 690          smopts[smopts_cnt++] = _oarg;
 691          break;
 692       case 'q':
 693          if (qf != NULL && (options & OPT_Mm_FLAG)) {
 694 jeMmq:
 695             emsg = N_("Only one of -M, -m or -q may be given");
 696             goto jusage;
 697          }
 698          /* Quote file TODO drop? -Q with real quote?? what ? */
 699          options |= OPT_SENDMODE;
 700          /* Allow for now, we have to special check validity of -q- later on! */
 701          qf = (_oarg[0] == '-' && _oarg[1] == '\0') ? (char*)-1 : _oarg;
 702          break;
 703       case 'R':
 704          /* Open folders read-only */
 705          options |= OPT_R_FLAG;
 706          break;
 707       case 'r':
 708          /* Set From address. */
 709          options |= OPT_r_FLAG;
 710          if (_oarg[0] != '\0') {
 711             struct name *fa = nalloc(_oarg, GSKIN | GFULL | GFULLEXTRA);
 712
 713             if (is_addr_invalid(fa, EACM_STRICT | EACM_NOLOG)) {
 714                emsg = N_("Invalid address argument with -r");
 715                goto jusage;
 716             }
 717             option_r_arg = fa;
 718             /* TODO -r options is set in smopts, but may
 719              * TODO be overwritten by setting from= in
 720              * TODO an interactive session!
 721              * TODO Maybe disable setting of from?
 722              * TODO Warn user?  Update manual!! */
 723             okey = savecat("from=", fa->n_fullname);
 724             goto joarg;
 725          }
 726          break;
 727       case 'S':
 728          /* Set variable (TODO twice [only if successful]) */
 729          {  char *a[2];
 730             bool_t b;
 731
 732             okey = a[0] = _oarg;
 733             a[1] = NULL;
 734             pstate |= PS_ROBOT;
 735             b = (c_set(a) == 0);
 736             pstate &= ~PS_ROBOT;
 737             if(!b)
 738                break;
 739          }
 740 joarg:
 741          if (oargs_cnt == oargs_size)
 742             oargs_size = _grow_cpp(&oargs, oargs_size + 8, oargs_cnt);
 743          oargs[oargs_cnt++] = okey;
 744          break;
 745       case 's':
 746          /* Subject: */
 747          subject = _oarg;
 748          options |= OPT_SENDMODE;
 749          break;
 750       case 't':
 751          /* Read defined set of headers from mail to be sent */
 752          options |= OPT_SENDMODE | OPT_t_FLAG;
 753          break;
 754       case 'u':
 755          /* Temporarily set myname so that we can recognize the -u condition */
 756          myname = savecat("%", _oarg);
 757          break;
 758       case 'V':
 759          printf(_("%s version %s\n"), uagent, ok_vlook(version));
 760          exit_status = EXIT_OK;
 761          goto j_leave;
 762       case 'v':
 763          /* Be verbose */
 764          ok_bset(verbose);
 765          okey = "verbose";
 766          goto joarg;
 767       case 'X':
 768          /* Add to list of commands to exec before entering normal operation */
 769          if (Xargs_cnt == Xargs_size)
 770             Xargs_size = _grow_cpp(&Xargs, Xargs_size + 8, Xargs_cnt);
 771          Xargs[Xargs_cnt++] = _oarg;
 772          break;
 773       case ':':
 774          /* Control which resource files shall be loaded */
 775          if(!(resfiles & (a_RF_SET | a_RF_SYSTEM))){
 776             emsg = N_("-n cannot be used in conjunction with -:");
 777             goto jusage;
 778          }
 779          resfiles = a_RF_SET;
 780          while((i = *_oarg++) != '\0')
 781             switch(i){
 782             case 'S': case 's': resfiles |= a_RF_SYSTEM; break;
 783             case 'U': case 'u': resfiles |= a_RF_USER; break;
 784             case ':': case '/': resfiles &= ~a_RF_ALL; break;
 785             default:
 786                emsg = N_("Invalid argument of -:");
 787                goto jusage;
 788             }
 789          break;
 790       case '~':
 791          /* Enable tilde escapes even in non-interactive mode */
 792          options |= OPT_TILDE_FLAG;
 793          break;
 794       case '#':
 795          /* Work in batch mode, even if non-interactive */
 796          if (oargs_cnt + 6 >= oargs_size)
 797             oargs_size = _grow_cpp(&oargs, oargs_size + 8, oargs_cnt);
 798          options |= OPT_TILDE_FLAG | OPT_BATCH_FLAG;
 799          folder = "/dev/null";
 800          ok_bset(emptystart);
 801          ok_bclear(header);
 802          ok_bset(quiet);
 803          ok_bset(sendwait);
 804          ok_vset(MAIL, folder);
 805          ok_vset(MBOX, folder);
 806          oargs[oargs_cnt + 0] = "emptystart";
 807          oargs[oargs_cnt + 1] = "noheader";
 808          oargs[oargs_cnt + 2] = "quiet";
 809          oargs[oargs_cnt + 3] = "sendwait";
 810          oargs[oargs_cnt + 4] = "MAIL=/dev/null";
 811          oargs[oargs_cnt + 5] = "MBOX=/dev/null";
 812          oargs_cnt += 6;
 813          break;
 814       case '.':
 815          options |= OPT_SENDMODE;
 816          goto jgetopt_done;
 817       case '?':
 818 jusage:
 819          if (emsg != NULL)
 820             n_err("%s\n", V_(emsg));
 821          n_err(V_(usagestr) _USAGE_ARGS);
 822 #undef _USAGE_ARGS
 823          exit_status = EXIT_USE;
 824          goto j_leave;
 825       }
 826    }
 827 jgetopt_done:
 828    ;
 829
 830    /* The normal arguments may be followed by MTA arguments after a "--";
 831     * however, -f may take off an argument, too, and before that.
 832     * Since MTA arguments after "--" require *expandargv*, delay parsing off
 833     * those options until after the resource files are loaded... */
 834    if ((cp = argv[i = _oind]) == NULL)
 835       ;
 836    else if (cp[0] == '-' && cp[1] == '-' && cp[2] == '\0')
 837       ++i;
 838    /* OPT_BATCH_FLAG sets to /dev/null, but -f can still be used and sets & */
 839    else if (folder != NULL && /*folder[0] == '&' &&*/ folder[1] == '\0') {
 840       folder = cp;
 841       if ((cp = argv[++i]) != NULL) {
 842          if (cp[0] != '-' || cp[1] != '-' || cp[2] != '\0') {
 843             emsg = N_("More than one file given with -f");
 844             goto jusage;
 845          }
 846          ++i;
 847       }
 848    } else {
 849       options |= OPT_SENDMODE;
 850       for (;;) {
 851          to = cat(to, lextract(cp, GTO | GFULL));
 852          if ((cp = argv[++i]) == NULL)
 853             break;
 854          if (cp[0] == '-' && cp[1] == '-' && cp[2] == '\0') {
 855             ++i;
 856             break;
 857          }
 858       }
 859    }
 860    _oind = i;
 861
 862    /* ...BUT, since we use salloc() for the MTA smopts storage we need to
 863     * allocate the necessary space for them before we call spreserve()! */
 864    while (argv[i] != NULL)
 865       ++i;
 866    if (smopts_cnt + i > smopts_size)
 867       DBG(smopts_size =) _grow_cpp(&smopts, smopts_cnt + i + 1, smopts_cnt);
 868
 869    /* Check for inconsistent arguments, fix some temporaries */
 870    if (options & OPT_SENDMODE) {
 871       /* XXX This is only because BATCH_FLAG sets *folder*=/dev/null
 872        * XXX in order to function.  Ideally that would not be needed */
 873       if (folder != NULL && !(options & OPT_BATCH_FLAG)) {
 874          emsg = N_("Cannot give -f and people to send to.");
 875          goto jusage;
 876       }
 877       if (myname != NULL) {
 878          emsg = N_("The -u option cannot be used in send mode");
 879          goto jusage;
 880       }
 881       if (!(options & OPT_t_FLAG) && to == NULL) {
 882          emsg = N_("Send options without primary recipient specified.");
 883          goto jusage;
 884       }
 885       if ((options & OPT_t_FLAG) && qf != NULL) {
 886          emsg = N_("The -M, -m, -q and -t options are mutual exclusive.");
 887          goto jusage;
 888       }
 889       if (options & (OPT_EXISTONLY | OPT_HEADERSONLY | OPT_HEADERLIST)) {
 890          emsg = N_("The -e, -H and -L options cannot be used in send mode.");
 891          goto jusage;
 892       }
 893       if (options & OPT_R_FLAG) {
 894          emsg = N_("The -R option is meaningless in send mode.");
 895          goto jusage;
 896       }
 897
 898       if (options & OPT_INTERACTIVE) {
 899          if (qf == (char*)-1) {
 900             if (!(options & OPT_Mm_FLAG))
 901                emsg = N_("-q can't use standard input when interactive.\n");
 902             goto jusage;
 903          }
 904       }
 905    } else {
 906       if (myname != NULL && folder != NULL) {
 907          emsg = N_("The options -u and -f (and -#) are mutually exclusive");
 908          goto jusage;
 909       }
 910       if ((options & (OPT_EXISTONLY | OPT_HEADERSONLY)) ==
 911             (OPT_EXISTONLY | OPT_HEADERSONLY)) {
 912          emsg = N_("The options -e and -H are mutual exclusive");
 913          goto jusage;
 914       }
 915       if ((options & (OPT_HEADERSONLY | OPT_HEADERLIST)) == /* TODO OBSOLETE */
 916             (OPT_HEADERSONLY | OPT_HEADERLIST))
 917          OBSOLETE(_("please use \"-e -L xy\" instead of \"-H -L xy\""));
 918
 919       if(myname != NULL)
 920          folder = myname;
 921    }
 922
 923    /*
 924     * Likely to go, perform more setup
 925     */
 926
 927    _setup_vars();
 928
 929    if (options & OPT_INTERACTIVE) {
 930       _setscreensize(0);
 931 #ifdef SIGWINCH
 932 # ifndef TTY_WANTS_SIGWINCH
 933       if (safe_signal(SIGWINCH, SIG_IGN) != SIG_IGN)
 934 # endif
 935          safe_signal(SIGWINCH, &_setscreensize);
 936 #endif
 937    } else
 938       scrnheight = realscreenheight = 24, scrnwidth = 80;
 939
 940    /* Snapshot our string pools.  Memory is auto-reclaimed from now on */
 941    spreserve();
 942
 943    /* load() any resource files */
 944    if(resfiles & a_RF_ALL){
 945       /* *expand() returns a savestr(), but load only uses the file name for
 946        * fopen(), so it's safe to do this */
 947       if((resfiles & a_RF_SYSTEM) && !ok_blook(NAIL_NO_SYSTEM_RC))
 948          n_load(VAL_SYSCONFDIR "/" VAL_SYSCONFRC);
 949       if(resfiles & a_RF_USER)
 950          n_load(file_expand(ok_vlook(MAILRC)));
 951       if((cp = ok_vlook(NAIL_EXTRA_RC)) != NULL)
 952          n_load(file_expand(cp));
 953    }
 954
 955    /* Ensure the -S and other command line options take precedence over
 956     * anything that may have been placed in resource files.
 957     * Our "ternary binary" option *verbose* needs special treament */
 958    if ((options & (OPT_VERB | OPT_VERBVERB)) == OPT_VERB)
 959       options &= ~OPT_VERB;
 960    /* ..and be silent when unsetting an undefined variable */
 961    pstate |= PS_ROBOT;
 962    for (i = 0; UICMP(z, i, <, oargs_cnt); ++i) {
 963       char const *a[2];
 964
 965       a[0] = oargs[i];
 966       a[1] = NULL;
 967       c_set(a);
 968    }
 969    pstate &= ~PS_ROBOT;
 970
 971    /* Cause possible umask(2), now that any setting is established, and before
 972     * we change accounts, evaluate commands etc. */
 973    (void)ok_vlook(umask);
 974
 975    /* Additional options to pass-through to MTA, and allowed to do so? */
 976    if ((cp = ok_vlook(expandargv)) != NULL) {
 977       bool_t isfail = !asccasecmp(cp, "fail"),
 978          isrestrict = (!isfail && !asccasecmp(cp, "restrict"));
 979
 980       if ((options & OPT_D_V) && !isfail && !isrestrict && *cp != '\0')
 981          n_err(_("Unknown *expandargv* value: %s\n"), cp);
 982
 983       if ((cp = argv[i = _oind]) != NULL) {
 984          if (isfail ||
 985                (isrestrict && !(options & (OPT_INTERACTIVE |OPT_TILDE_FLAG)))) {
 986             n_err(_("*expandargv* doesn't allow MTA arguments; consider "
 987                "using *sendmail-arguments*\n"));
 988             exit_status = EXIT_USE | EXIT_SEND_ERROR;
 989             goto jleave;
 990          }
 991          do {
 992             assert(smopts_cnt + 1 <= smopts_size);
 993             smopts[smopts_cnt++] = cp;
 994          } while ((cp = argv[++i]) != NULL);
 995       }
 996    }
 997
 998    /* We had to wait until the resource files are loaded and any command line
 999     * setting has been restored, but get the termcap up and going before we
1000     * switch account or running commands */
1001 #ifdef n_HAVE_TCAP
1002    if((options & (OPT_INTERACTIVE | OPT_QUICKRUN_MASK)) == OPT_INTERACTIVE)
1003       n_termcap_init();
1004 #endif
1005
1006    /* Now we can set the account */
1007    if (Aarg != NULL) {
1008       char const *a[2];
1009       a[0] = Aarg;
1010       a[1] = NULL;
1011       c_account(a);
1012    }
1013
1014    /* "load()" commands given on command line */
1015    if (Xargs_cnt > 0){
1016       Xargs[Xargs_cnt] = NULL;
1017       n_load_Xargs(Xargs);
1018    }
1019
1020    /* Final tests */
1021    if(options & OPT_Mm_FLAG){
1022       if(qf == (char*)-1){
1023          if(!mime_type_check_mtname(option_Mm_arg)){
1024             n_err(_("Could not find `mimetype' for -M argument: %s\n"),
1025                option_Mm_arg);
1026             exit_status = EXIT_ERR;
1027             goto jleave;
1028          }
1029       }else if((option_Mm_arg = mime_type_classify_filename(qf)) == NULL){
1030          n_err(_("Could not `mimetype'-classify -m argument: %s\n"),
1031             n_shexp_quote_cp(qf, FAL0));
1032          exit_status = EXIT_ERR;
1033          goto jleave;
1034       }else if(!asccasecmp(option_Mm_arg, "text/plain")) /* TODO no: magic!! */
1035          option_Mm_arg = NULL;
1036    }
1037
1038    /*
1039     * We're finally completely setup and ready to go
1040     */
1041    pstate |= PS_STARTED;
1042
1043    if (!(options & OPT_SENDMODE)) {
1044       exit_status = _rcv_mode(folder, Larg);
1045       goto jleave;
1046    }
1047
1048    /* Now that full mailx(1)-style file expansion is possible handle the
1049     * attachments which we had delayed due to this.
1050     * This may use savestr(), but since we won't enter the command loop we
1051     * don't need to care about that */
1052    for (cp = NULL; a_head != NULL;) {
1053       struct attachment *nahp, *nap;
1054
1055       if ((nahp = add_attachment(n_LEXINPUT_CTX_BASE, attach, a_head->aa_file,
1056             &nap)) != NULL) {
1057          attach = nahp;
1058          /* Did we split a charset set name for fixation purposes? */
1059          if (cp != NULL) {
1060             nap->a_conv = AC_FIX_INCS;
1061             nap->a_input_charset = cp;
1062             cp = NULL;
1063          }
1064          a_head = a_head->aa_next;
1065          continue;
1066       }
1067       i = errno;
1068
1069       /* It may not have worked because of an appended character set name, so
1070        * try to split name and charset and retry once */
1071       if (cp == NULL && (cp = strrchr(a_head->aa_file, '=')) != NULL) {
1072          char *ncp, *nfp = savestrbuf(a_head->aa_file,
1073                PTR2SIZE(cp - a_head->aa_file));
1074
1075          for (ncp = ++cp; *ncp != '\0'; ++ncp)
1076             if (!alnumchar(*ncp) && !punctchar(*ncp))
1077                break;
1078          if (*ncp == '\0') {
1079             a_head->aa_file = nfp;
1080             continue;
1081          }
1082       }
1083
1084       n_perr(a_head->aa_file, i);
1085       exit_status = EXIT_ERR;
1086       goto jleave;
1087    }
1088
1089    if (options & OPT_INTERACTIVE)
1090       n_tty_init();
1091    mail(to, cc, bcc, subject, attach, qf, ((options & OPT_F_FLAG) != 0));
1092    if (options & OPT_INTERACTIVE)
1093       n_tty_destroy();
1094
1095 jleave:
1096 #ifdef n_HAVE_TCAP
1097    if((options & (OPT_INTERACTIVE | OPT_QUICKRUN_MASK)) == OPT_INTERACTIVE)
1098       n_termcap_destroy();
1099 #endif
1100 #ifdef HAVE_MEMORY_DEBUG
1101    sreset(FAL0);
1102 #endif
1103 j_leave:
1104 #ifdef HAVE_MEMORY_DEBUG
1105    n_memcheck();
1106 #endif
1107    NYD_LEAVE;
1108    return exit_status;
1109 }
1110
1111 FL int
1112 c_exit(void *v){/* TODO program state machine */
1113    NYD_ENTER;
1114    UNUSED(v);
1115
1116    if(pstate & PS_STARTED){
1117       if(!(pstate & PS_SOURCING)){
1118 #ifdef n_HAVE_TCAP
1119          if((options & (OPT_INTERACTIVE | OPT_QUICKRUN_MASK)) ==
1120                OPT_INTERACTIVE)
1121             n_termcap_destroy();
1122 #endif
1123          exit(EXIT_OK);
1124       }
1125    }
1126    pstate |= PS_EXIT;
1127    NYD_LEAVE;
1128    return 0;
1129 }
1130
1131 /* Source the others in that case! */
1132 #ifdef HAVE_AMALGAMATION
1133 # include "config.h"
1134 #endif
1135
1136 /* s-it-mode */