git.marmaro.de Git - mmh/blob - uip/whatnowsbr.c

   1
   2 /*
   3  * whatnowsbr.c -- the WhatNow shell
   4  *
   5  * This code is Copyright (c) 2002, by the authors of nmh.  See the
   6  * COPYRIGHT file in the root directory of the nmh distribution for
   7  * complete copyright information.
   8  *
   9  *  Several options have been added to ease the inclusion of attachments
  10  *  using the header field name mechanism added to anno and send.  The
  11  *  -attach option is used to specify the header field name for attachments.
  12  *
  13  *  Several commands have been added at the whatnow prompt:
  14  *
  15  *      cd [ directory ]        This option works just like the shell's
  16  *                              cd command and lets the user change the
  17  *                              directory from which attachments are
  18  *                              taken so that long path names are not
  19  *                              needed with every file.
  20  *
  21  *      ls [ ls-options ]       This option works just like the normal
  22  *                              ls command and exists to allow the user
  23  *                              to verify file names in the directory.
  24  *
  25  *      pwd                     This option works just like the normal
  26  *                              pwd command and exists to allow the user
  27  *                              to verify the directory.
  28  *
  29  *      attach files            This option attaches the named files to
  30  *                              the draft.
  31  *
  32  *      alist [-ln]             This option lists the attachments on the
  33  *                              draft.  -l gets long listings, -n gets
  34  *                              numbered listings.
  35  *
  36  *      detach files            This option removes attachments from the
  37  *      detach -n numbers       draft.  This can be done by file name or
  38  *                              by attachment number.
  39  */
  40
  41 #include <h/mh.h>
  42 #include <fcntl.h>
  43 #include <signal.h>
  44 #include <h/mime.h>
  45 #include <h/utils.h>
  46
  47 static struct swit whatnowswitches[] = {
  48 #define DFOLDSW                 0
  49     { "draftfolder +folder", 0 },
  50 #define DMSGSW                  1
  51     { "draftmessage msg", 0 },
  52 #define NDFLDSW                 2
  53     { "nodraftfolder", 0 },
  54 #define EDITRSW                 3
  55     { "editor editor", 0 },
  56 #define NEDITSW                 4
  57     { "noedit", 0 },
  58 #define PRMPTSW                 5
  59     { "prompt string", 4 },
  60 #define VERSIONSW               6
  61     { "version", 0 },
  62 #define HELPSW                  7
  63     { "help", 0 },
  64 #define ATTACHSW                8
  65     { "attach header-field-name", 0 },
  66 #define NOATTACHSW              9
  67     { "noattach", 0 },
  68     { NULL, 0 }
  69 };
  70
  71 /*
  72  * Options at the "whatnow" prompt
  73  */
  74 static struct swit aleqs[] = {
  75 #define EDITSW                         0
  76     { "edit [<editor> <switches>]", 0 },
  77 #define REFILEOPT                      1
  78     { "refile [<switches>] +folder", 0 },
  79 #define BUILDMIMESW                    2
  80     { "mime [<switches>]", 0 },
  81 #define DISPSW                         3
  82     { "display [<switches>]", 0 },
  83 #define LISTSW                         4
  84     { "list [<switches>]", 0 },
  85 #define SENDSW                         5
  86     { "send [<switches>]", 0 },
  87 #define PUSHSW                         6
  88     { "push [<switches>]", 0 },
  89 #define WHOMSW                         7
  90     { "whom [<switches>]", 0 },
  91 #define QUITSW                         8
  92     { "quit [-delete]", 0 },
  93 #define DELETESW                       9
  94     { "delete", 0 },
  95 #define CDCMDSW                       10
  96     { "cd [directory]", 0 },
  97 #define PWDCMDSW                      11
  98     { "pwd", 0 },
  99 #define LSCMDSW                       12
 100     { "ls", 2 },
 101 #define ATTACHCMDSW                   13
 102     { "attach", 0 },
 103 #define DETACHCMDSW                   14
 104     { "detach [-n]", 2 },
 105 #define ALISTCMDSW                    15
 106     { "alist [-ln] ", 2 },
 107     { NULL, 0 }
 108 };
 109
 110 static char *myprompt = "\nWhat now? ";
 111
 112 /*
 113  * static prototypes
 114  */
 115 static int editfile (char **, char **, char *, int, struct msgs *,
 116         char *, char *, int, int);
 117 static int sendfile (char **, char *, int);
 118 static void sendit (char *, char **, char *, int);
 119 static int buildfile (char **, char *);
 120 static int check_draft (char *);
 121 static int whomfile (char **, char *);
 122 static int removefile (char *);
 123 static void writelscmd(char *, int, char *, char **);
 124 static void writesomecmd(char *buf, int bufsz, char *cmd, char *trailcmd, char **argp);
 125 static FILE* popen_in_dir(const char *dir, const char *cmd, const char *type);
 126 static int system_in_dir(const char *dir, const char *cmd);
 127
 128
 129 #ifdef HAVE_LSTAT
 130 static int copyf (char *, char *);
 131 #endif
 132
 133
 134 int
 135 WhatNow (int argc, char **argv)
 136 {
 137     int isdf = 0, nedit = 0, use = 0, atfile = 1;
 138     char *cp, *dfolder = NULL, *dmsg = NULL;
 139     char *ed = NULL, *drft = NULL, *msgnam = NULL;
 140     char buf[BUFSIZ], prompt[BUFSIZ];
 141     char **argp, **arguments;
 142     struct stat st;
 143     char        *attach = NMH_ATTACH_HEADER;/* attachment header field name */
 144     char        cwd[PATH_MAX + 1];      /* current working directory */
 145     char        file[PATH_MAX + 1];     /* file name buffer */
 146     char        shell[PATH_MAX + 1];    /* shell response buffer */
 147     FILE        *f;                     /* read pointer for bgnd proc */
 148     char        *l;                     /* set on -l to alist  command */
 149     int         n;                      /* set on -n to alist command */
 150
 151     invo_name = r1bindex (argv[0], '/');
 152
 153     /* read user profile/context */
 154     context_read();
 155
 156     arguments = getarguments (invo_name, argc, argv, 1);
 157     argp = arguments;
 158
 159     /*
 160      *  Get the initial current working directory.
 161      */
 162
 163     if (getcwd(cwd, sizeof (cwd)) == (char *)0) {
 164         adios("getcwd", "could not get working directory");
 165     }
 166
 167     while ((cp = *argp++)) {
 168         if (*cp == '-') {
 169             switch (smatch (++cp, whatnowswitches)) {
 170             case AMBIGSW:
 171                 ambigsw (cp, whatnowswitches);
 172                 done (1);
 173             case UNKWNSW:
 174                 adios (NULL, "-%s unknown", cp);
 175
 176             case HELPSW:
 177                 snprintf (buf, sizeof(buf), "%s [switches] [file]", invo_name);
 178                 print_help (buf, whatnowswitches, 1);
 179                 done (0);
 180             case VERSIONSW:
 181                 print_version(invo_name);
 182                 done (0);
 183
 184             case DFOLDSW:
 185                 if (dfolder)
 186                     adios (NULL, "only one draft folder at a time!");
 187                 if (!(cp = *argp++) || *cp == '-')
 188                     adios (NULL, "missing argument to %s", argp[-2]);
 189                 dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
 190                                 *cp != '@' ? TFOLDER : TSUBCWF);
 191                 continue;
 192             case DMSGSW:
 193                 if (dmsg)
 194                     adios (NULL, "only one draft message at a time!");
 195                 if (!(dmsg = *argp++) || *dmsg == '-')
 196                     adios (NULL, "missing argument to %s", argp[-2]);
 197                 continue;
 198             case NDFLDSW:
 199                 dfolder = NULL;
 200                 isdf = NOTOK;
 201                 continue;
 202
 203             case EDITRSW:
 204                 if (!(ed = *argp++) || *ed == '-')
 205                     adios (NULL, "missing argument to %s", argp[-2]);
 206                 nedit = 0;
 207                 continue;
 208             case NEDITSW:
 209                 nedit++;
 210                 continue;
 211
 212             case PRMPTSW:
 213                 if (!(myprompt = *argp++) || *myprompt == '-')
 214                     adios (NULL, "missing argument to %s", argp[-2]);
 215                 continue;
 216
 217             case ATTACHSW:
 218                 if (!(attach = *argp++) || *attach == '-')
 219                     adios (NULL, "missing argument to %s", argp[-2]);
 220                 continue;
 221
 222             case NOATTACHSW:
 223                 attach = NULL;
 224                 continue;
 225             }
 226         }
 227         if (drft)
 228             adios (NULL, "only one draft at a time!");
 229         else
 230             drft = cp;
 231     }
 232
 233     if ((drft == NULL && (drft = getenv ("mhdraft")) == NULL) || *drft == 0)
 234         drft = getcpy (m_draft (dfolder, dmsg, 1, &isdf));
 235
 236     msgnam = (cp = getenv ("mhaltmsg")) && *cp ? getcpy (cp) : NULL;
 237
 238     if ((cp = getenv ("mhatfile")) && *cp)
 239         atfile = atoi(cp);
 240
 241     if ((cp = getenv ("mhuse")) && *cp)
 242         use = atoi (cp);
 243
 244     if (ed == NULL && ((ed = getenv ("mheditor")) == NULL || *ed == 0)) {
 245         ed = NULL;
 246         nedit++;
 247     }
 248
 249     /* start editing the draft, unless -noedit was given */
 250     if (!nedit && editfile (&ed, NULL, drft, use, NULL, msgnam,
 251                             NULL, 1, atfile) < 0)
 252         done (1);
 253
 254     snprintf (prompt, sizeof(prompt), myprompt, invo_name);
 255     for (;;) {
 256 #ifdef READLINE_SUPPORT
 257         if (!(argp = getans_via_readline (prompt, aleqs))) {
 258 #else /* ! READLINE_SUPPORT */
 259         if (!(argp = getans (prompt, aleqs))) {
 260 #endif /* READLINE_SUPPORT */
 261             unlink (LINK);
 262             done (1);
 263         }
 264         switch (smatch (*argp, aleqs)) {
 265         case DISPSW:
 266             /* display the message being replied to, or distributed */
 267             if (msgnam)
 268                 showfile (++argp, msgnam);
 269             else
 270                 advise (NULL, "no alternate message to display");
 271             break;
 272
 273         case BUILDMIMESW:
 274             /* Translate MIME composition file */
 275             buildfile (++argp, drft);
 276             break;
 277
 278         case EDITSW:
 279             /* Call an editor on the draft file */
 280             if (*++argp)
 281                 ed = *argp++;
 282             if (editfile (&ed, argp, drft, NOUSE, NULL, msgnam,
 283                           NULL, 1, atfile) == NOTOK)
 284                 done (1);
 285             break;
 286
 287         case LISTSW:
 288             /* display the draft file */
 289             showfile (++argp, drft);
 290             break;
 291
 292         case WHOMSW:
 293             /* Check to whom the draft would be sent */
 294             whomfile (++argp, drft);
 295             break;
 296
 297         case QUITSW:
 298             /* Quit, and possibly delete the draft */
 299             if (*++argp && (*argp[0] == 'd' ||
 300                 ((*argp)[0] == '-' && (*argp)[1] == 'd'))) {
 301                 removefile (drft);
 302             } else {
 303                 if (stat (drft, &st) != NOTOK)
 304                     advise (NULL, "draft left on %s", drft);
 305             }
 306             done (1);
 307
 308         case DELETESW:
 309             /* Delete draft and exit */
 310             removefile (drft);
 311             done (1);
 312
 313         case PUSHSW:
 314             /* Send draft in background */
 315             if (sendfile (++argp, drft, 1))
 316                 done (1);
 317             break;
 318
 319         case SENDSW:
 320             /* Send draft */
 321             sendfile (++argp, drft, 0);
 322             break;
 323
 324         case REFILEOPT:
 325             /* Refile the draft */
 326             if (refile (++argp, drft) == 0)
 327                 done (0);
 328             break;
 329
 330         case CDCMDSW:
 331             /* Change the working directory for attachments
 332              *
 333              *  Run the directory through the user's shell so that
 334              *  we can take advantage of any syntax that the user
 335              *  is accustomed to.  Read back the absolute path.
 336              */
 337
 338             if (*(argp+1) == (char *)0) {
 339                 (void)sprintf(buf, "$SHELL -c \"cd&&pwd\"");
 340             }
 341             else {
 342                 writesomecmd(buf, BUFSIZ, "cd", "pwd", argp);
 343             }
 344             if ((f = popen_in_dir(cwd, buf, "r")) != (FILE *)0) {
 345                 fgets(cwd, sizeof (cwd), f);
 346
 347                 if (strchr(cwd, '\n') != (char *)0)
 348                         *strchr(cwd, '\n') = '\0';
 349
 350                 pclose(f);
 351             }
 352             else {
 353                 advise("popen", "could not get directory");
 354             }
 355
 356             break;
 357
 358         case PWDCMDSW:
 359             /* Print the working directory for attachments */
 360             printf("%s\n", cwd);
 361             break;
 362
 363         case LSCMDSW:
 364             /* List files in the current attachment working directory
 365              *
 366              *  Use the user's shell so that we can take advantage of any
 367              *  syntax that the user is accustomed to.
 368              */
 369             writelscmd(buf, sizeof(buf), "", argp);
 370             (void)system_in_dir(cwd, buf);
 371             break;
 372
 373         case ALISTCMDSW:
 374             /*
 375              *  List attachments on current draft.  Options are:
 376              *
 377              *   -l     long listing (full path names)
 378              *   -n     numbers listing
 379              */
 380
 381             if (attach == (char *)0) {
 382                 advise((char *)0, "can't list because no header field name was given.");
 383                 break;
 384             }
 385
 386             l = (char *)0;
 387             n = 0;
 388
 389             while (*++argp != (char *)0) {
 390                 if (strcmp(*argp, "-l") == 0)
 391                     l = "/";
 392
 393                 else if (strcmp(*argp, "-n") == 0)
 394                     n = 1;
 395
 396                 else if (strcmp(*argp, "-ln") == 0 || strcmp(*argp, "-nl") == 0) {
 397                     l = "/";
 398                     n = 1;
 399                 }
 400
 401                 else {
 402                     n = -1;
 403                     break;
 404                 }
 405             }
 406
 407             if (n == -1)
 408                 advise((char *)0, "usage is alist [-ln].");
 409
 410             else
 411                 annolist(drft, attach, l, n);
 412
 413             break;
 414
 415         case ATTACHCMDSW:
 416             /*
 417              *  Attach files to current draft.
 418              */
 419
 420             if (attach == (char *)0) {
 421                 advise((char *)0, "can't attach because no header field name was given.");
 422                 break;
 423             }
 424
 425             if (*(argp+1) == (char *)0) {
 426                 advise((char *)0, "attach command requires file argument(s).");
 427                 break;
 428             }
 429
 430             /*
 431              *  Build a command line that causes the user's shell to list the file name
 432              *  arguments.  This handles and wildcard expansion, tilde expansion, etc.
 433              */
 434             writelscmd(buf, sizeof(buf), "-d", argp);
 435
 436             /*
 437              *  Read back the response from the shell, which contains a number of lines
 438              *  with one file name per line.  Remove off the newline.  Determine whether
 439              *  we have an absolute or relative path name.  Prepend the current working
 440              *  directory to relative path names.  Add the attachment annotation to the
 441              *  draft.
 442              */
 443
 444             if ((f = popen_in_dir(cwd, buf, "r")) != (FILE *)0) {
 445                 while (fgets(shell, sizeof (shell), f) != (char *)0) {
 446                     *(strchr(shell, '\n')) = '\0';
 447
 448                     if (*shell == '/')
 449                         (void)annotate(drft, attach, shell, 1, 0, -2, 1);
 450                     else {
 451                         (void)sprintf(file, "%s/%s", cwd, shell);
 452                         (void)annotate(drft, attach, file, 1, 0, -2, 1);
 453                     }
 454                 }
 455
 456                 pclose(f);
 457             }
 458             else {
 459                 advise("popen", "could not get file from shell");
 460             }
 461
 462             break;
 463
 464         case DETACHCMDSW:
 465             /*
 466              *  Detach files from current draft.
 467              */
 468
 469             if (attach == (char *)0) {
 470                 advise((char *)0, "can't detach because no header field name was given.");
 471                 break;
 472             }
 473
 474             /*
 475              *  Scan the arguments for a -n.  Mixed file names and numbers aren't allowed,
 476              *  so this catches a -n anywhere in the argument list.
 477              */
 478
 479             for (n = 0, arguments = argp + 1; *arguments != (char *)0; arguments++) {
 480                 if (strcmp(*arguments, "-n") == 0) {
 481                         n = 1;
 482                         break;
 483                 }
 484             }
 485
 486             /*
 487              *  A -n was found so interpret the arguments as attachment numbers.
 488              *  Decrement any remaining argument number that is greater than the one
 489              *  just processed after processing each one so that the numbering stays
 490              *  correct.
 491              */
 492
 493             if (n == 1) {
 494                 for (arguments = argp + 1; *arguments != (char *)0; arguments++) {
 495                     if (strcmp(*arguments, "-n") == 0)
 496                         continue;
 497
 498                     if (**arguments != '\0') {
 499                         n = atoi(*arguments);
 500                         (void)annotate(drft, attach, (char *)0, 1, 0, n, 1);
 501
 502                         for (argp = arguments + 1; *argp != (char *)0; argp++) {
 503                             if (atoi(*argp) > n) {
 504                                 if (atoi(*argp) == 1)
 505                                     *argp = "";
 506                                 else
 507                                     (void)sprintf(*argp, "%d", atoi(*argp) - 1);
 508                             }
 509                         }
 510                     }
 511                 }
 512             }
 513
 514             /*
 515              *  The arguments are interpreted as file names.  Run them through the
 516              *  user's shell for wildcard expansion and other goodies.  Do this from
 517              *  the current working directory if the argument is not an absolute path
 518              *  name (does not begin with a /).
 519              *
 520              * We feed all the file names to the shell at once, otherwise you can't
 521              * provide a file name with a space in it.
 522              */
 523             writelscmd(buf, sizeof(buf), "-d", argp);
 524             if ((f = popen_in_dir(cwd, buf, "r")) != (FILE *)0) {
 525                 while (fgets(shell, sizeof (shell), f) != (char *)0) {
 526                     *(strchr(shell, '\n')) = '\0';
 527                     (void)annotate(drft, attach, shell, 1, 0, 0, 1);
 528                 }
 529                 pclose(f);
 530             } else {
 531                 advise("popen", "could not get file from shell");
 532             }
 533
 534             break;
 535
 536         default:
 537             /* Unknown command */
 538             advise (NULL, "say what?");
 539             break;
 540         }
 541     }
 542     /*NOTREACHED*/
 543 }
 544
 545
 546
 547 /* Build a command line of the form $SHELL -c "cd 'cwd'; cmd argp ... ; trailcmd". */
 548 static void
 549 writesomecmd(char *buf, int bufsz, char *cmd, char *trailcmd, char **argp)
 550 {
 551     char *cp;
 552     /* Note that we do not quote -- the argp from the user
 553      * is assumed to be quoted as they desire. (We can't treat
 554      * it as pure literal as that would prevent them using ~,
 555      * wildcards, etc.) The buffer produced by this function
 556      * should be given to popen_in_dir() or system_in_dir() so
 557      * that the current working directory is set correctly.
 558      */
 559     int ln = snprintf(buf, bufsz, "$SHELL -c \"%s", cmd);
 560     /* NB that some snprintf() return -1 on overflow rather than the
 561      * new C99 mandated 'number of chars that would have been written'
 562      */
 563     /* length checks here and inside the loop allow for the
 564      * trailing "&&", trailcmd, '"' and NUL
 565      */
 566     int trailln = strlen(trailcmd) + 4;
 567     if (ln < 0 || ln + trailln > bufsz)
 568         adios((char *)0, "arguments too long");
 569
 570     cp = buf + ln;
 571
 572     while (*++argp != (char *)0) {
 573         ln = strlen(*argp);
 574         /* +1 for leading space */
 575         if (ln + trailln + 1 > bufsz - (cp-buf))
 576             adios((char *)0, "arguments too long");
 577         *cp++ = ' ';
 578         memcpy(cp, *argp, ln+1);
 579         cp += ln;
 580     }
 581     if (*trailcmd) {
 582         *cp++ = '&'; *cp++ = '&';
 583         strcpy(cp, trailcmd);
 584         cp += trailln - 4;
 585     }
 586     *cp++ = '"';
 587     *cp = 0;
 588 }
 589
 590 /*
 591  * Build a command line that causes the user's shell to list the file name
 592  * arguments.  This handles and wildcard expansion, tilde expansion, etc.
 593  */
 594 static void
 595 writelscmd(char *buf, int bufsz, char *lsoptions, char **argp)
 596 {
 597   char *lscmd = concat ("ls ", lsoptions, " --", NULL);
 598   writesomecmd(buf, bufsz, lscmd, "", argp);
 599   free (lscmd);
 600 }
 601
 602 /* Like system(), but run the command in directory dir.
 603  * This assumes the program is single-threaded!
 604  */
 605 static int
 606 system_in_dir(const char *dir, const char *cmd)
 607 {
 608     char olddir[BUFSIZ];
 609     int r;
 610
 611     /* ensure that $SHELL exists, as the cmd was written relying on
 612        a non-blank $SHELL... */
 613     setenv("SHELL","/bin/sh",0); /* don't overwrite */
 614
 615     if (getcwd(olddir, sizeof(olddir)) == 0)
 616         adios("getcwd", "could not get working directory");
 617     if (chdir(dir) != 0)
 618         adios("chdir", "could not change working directory");
 619     r = system(cmd);
 620     if (chdir(olddir) != 0)
 621         adios("chdir", "could not change working directory");
 622     return r;
 623 }
 624
 625 /* ditto for popen() */
 626 static FILE*
 627 popen_in_dir(const char *dir, const char *cmd, const char *type)
 628 {
 629     char olddir[BUFSIZ];
 630     FILE *f;
 631
 632     /* ensure that $SHELL exists, as the cmd was written relying on
 633        a non-blank $SHELL... */
 634     setenv("SHELL","/bin/sh",0); /* don't overwrite */
 635
 636     if (getcwd(olddir, sizeof(olddir)) == 0)
 637         adios("getcwd", "could not get working directory");
 638     if (chdir(dir) != 0)
 639         adios("chdir", "could not change working directory");
 640     f = popen(cmd, type);
 641     if (chdir(olddir) != 0)
 642         adios("chdir", "could not change working directory");
 643     return f;
 644 }
 645
 646
 647 /*
 648  * EDIT
 649  */
 650
 651 static int  reedit = 0;         /* have we been here before?     */
 652 static char *edsave = NULL;     /* the editor we used previously */
 653
 654
 655 static int
 656 editfile (char **ed, char **arg, char *file, int use, struct msgs *mp,
 657           char *altmsg, char *cwd, int save_editor, int atfile)
 658 {
 659     int pid, status, vecp;
 660     char altpath[BUFSIZ], linkpath[BUFSIZ];
 661     char *cp, *vec[MAXARGS];
 662     struct stat st;
 663
 664 #ifdef HAVE_LSTAT
 665     int slinked = 0;
 666 #endif /* HAVE_LSTAT */
 667
 668     /* Was there a previous edit session? */
 669     if (reedit) {
 670         if (!*ed) {             /* no explicit editor      */
 671             *ed = edsave;       /* so use the previous one */
 672             if ((cp = r1bindex (*ed, '/')) == NULL)
 673                 cp = *ed;
 674
 675             /* unless we've specified it via "editor-next" */
 676             cp = concat (cp, "-next", NULL);
 677             if ((cp = context_find (cp)) != NULL)
 678                 *ed = cp;
 679         }
 680     } else {
 681         /* set initial editor */
 682         if (*ed == NULL && (*ed = context_find ("editor")) == NULL)
 683             *ed = defaulteditor;
 684     }
 685
 686     if (altmsg) {
 687         if (mp == NULL || *altmsg == '/' || cwd == NULL)
 688             strncpy (altpath, altmsg, sizeof(altpath));
 689         else
 690             snprintf (altpath, sizeof(altpath), "%s/%s", mp->foldpath, altmsg);
 691         if (cwd == NULL)
 692             strncpy (linkpath, LINK, sizeof(linkpath));
 693         else
 694             snprintf (linkpath, sizeof(linkpath), "%s/%s", cwd, LINK);
 695
 696         if (atfile) {
 697             unlink (linkpath);
 698 #ifdef HAVE_LSTAT
 699             if (link (altpath, linkpath) == NOTOK) {
 700                 symlink (altpath, linkpath);
 701                 slinked = 1;
 702             } else {
 703                 slinked = 0;
 704             }
 705 #else /* not HAVE_LSTAT */
 706             link (altpath, linkpath);
 707 #endif /* not HAVE_LSTAT */
 708         }
 709     }
 710
 711     context_save ();    /* save the context file */
 712     fflush (stdout);
 713
 714     switch (pid = vfork()) {
 715         case NOTOK:
 716             advise ("fork", "unable to");
 717             status = NOTOK;
 718             break;
 719
 720         case OK:
 721             if (cwd)
 722                 chdir (cwd);
 723             if (altmsg) {
 724                 if (mp)
 725                     m_putenv ("mhfolder", mp->foldpath);
 726                 m_putenv ("editalt", altpath);
 727             }
 728
 729             vecp = 0;
 730             vec[vecp++] = r1bindex (*ed, '/');
 731             if (arg)
 732                 while (*arg)
 733                     vec[vecp++] = *arg++;
 734             vec[vecp++] = file;
 735             vec[vecp] = NULL;
 736
 737             execvp (*ed, vec);
 738             fprintf (stderr, "unable to exec ");
 739             perror (*ed);
 740             _exit (-1);
 741
 742         default:
 743             if ((status = pidwait (pid, NOTOK))) {
 744                 if (((status & 0xff00) != 0xff00)
 745                     && (!reedit || (status & 0x00ff))) {
 746                     if (!use && (status & 0xff00) &&
 747                             (rename (file, cp = m_backup (file)) != NOTOK)) {
 748                         advise (NULL, "problems with edit--draft left in %s", cp);
 749                     } else {
 750                         advise (NULL, "problems with edit--%s preserved", file);
 751                     }
 752                 }
 753                 status = -2;    /* maybe "reedit ? -2 : -1"? */
 754                 break;
 755             }
 756
 757             reedit++;
 758 #ifdef HAVE_LSTAT
 759             if (altmsg
 760                     && mp
 761                     && !is_readonly(mp)
 762                     && (slinked
 763                            ? lstat (linkpath, &st) != NOTOK
 764                                 && S_ISREG(st.st_mode)
 765                                 && copyf (linkpath, altpath) == NOTOK
 766                            : stat (linkpath, &st) != NOTOK
 767                                 && st.st_nlink == 1
 768                                 && (unlink (altpath) == NOTOK
 769                                         || link (linkpath, altpath) == NOTOK)))
 770                 advise (linkpath, "unable to update %s from", altmsg);
 771 #else /* HAVE_LSTAT */
 772             if (altmsg
 773                     && mp
 774                     && !is_readonly(mp)
 775                     && stat (linkpath, &st) != NOTOK
 776                     && st.st_nlink == 1
 777                     && (unlink (altpath) == NOTOK
 778                         || link (linkpath, altpath) == NOTOK))
 779                 advise (linkpath, "unable to update %s from", altmsg);
 780 #endif /* HAVE_LSTAT */
 781     }
 782
 783     /* normally, we remember which editor we used */
 784     if (save_editor)
 785         edsave = getcpy (*ed);
 786
 787     *ed = NULL;
 788     if (altmsg && atfile)
 789         unlink (linkpath);
 790
 791     return status;
 792 }
 793
 794
 795 #ifdef HAVE_LSTAT
 796 static int
 797 copyf (char *ifile, char *ofile)
 798 {
 799     int i, in, out;
 800     char buffer[BUFSIZ];
 801
 802     if ((in = open (ifile, O_RDONLY)) == NOTOK)
 803         return NOTOK;
 804     if ((out = open (ofile, O_WRONLY | O_TRUNC)) == NOTOK) {
 805         admonish (ofile, "unable to open and truncate");
 806         close (in);
 807         return NOTOK;
 808     }
 809
 810     while ((i = read (in, buffer, sizeof(buffer))) > OK)
 811         if (write (out, buffer, i) != i) {
 812             advise (ofile, "may have damaged");
 813             i = NOTOK;
 814             break;
 815         }
 816
 817     close (in);
 818     close (out);
 819     return i;
 820 }
 821 #endif /* HAVE_LSTAT */
 822
 823
 824 /*
 825  * SEND
 826  */
 827
 828 static int
 829 sendfile (char **arg, char *file, int pushsw)
 830 {
 831     pid_t child_id;
 832     int i, vecp;
 833     char *cp, *sp, *vec[MAXARGS];
 834
 835     /* Translate MIME composition file, if necessary */
 836     if ((cp = context_find ("automimeproc"))
 837             && (!strcmp (cp, "1"))
 838             && check_draft (file)
 839             && (buildfile (NULL, file) == NOTOK))
 840         return 0;
 841
 842     /* For backwards compatibility */
 843     if ((cp = context_find ("automhnproc"))
 844             && check_draft (file)
 845             && (i = editfile (&cp, NULL, file, NOUSE, NULL, NULL, NULL, 0, 0)))
 846         return 0;
 847
 848     /*
 849      * If the sendproc is the nmh command `send', then we call
 850      * those routines directly rather than exec'ing the command.
 851      */
 852     if (strcmp (sp = r1bindex (sendproc, '/'), "send") == 0) {
 853         cp = invo_name;
 854         sendit (invo_name = sp, arg, file, pushsw);
 855         invo_name = cp;
 856         return 1;
 857     }
 858
 859     context_save ();    /* save the context file */
 860     fflush (stdout);
 861
 862     for (i = 0; (child_id = vfork()) == NOTOK && i < 5; i++)
 863         sleep (5);
 864     switch (child_id) {
 865         case NOTOK:
 866             advise (NULL, "unable to fork, so sending directly...");
 867         case OK:
 868             vecp = 0;
 869             vec[vecp++] = invo_name;
 870             if (pushsw)
 871                 vec[vecp++] = "-push";
 872             if (arg)
 873                 while (*arg)
 874                     vec[vecp++] = *arg++;
 875             vec[vecp++] = file;
 876             vec[vecp] = NULL;
 877
 878             execvp (sendproc, vec);
 879             fprintf (stderr, "unable to exec ");
 880             perror (sendproc);
 881             _exit (-1);
 882
 883         default:
 884             if (pidwait(child_id, OK) == 0)
 885                 done (0);
 886             return 1;
 887     }
 888 }
 889
 890
 891 /*
 892  * Translate MIME composition file (call buildmimeproc)
 893  */
 894
 895 static int
 896 buildfile (char **argp, char *file)
 897 {
 898     int i;
 899     char **args, *ed;
 900
 901     ed = buildmimeproc;
 902
 903     /* allocate space for arguments */
 904     i = 0;
 905     if (argp) {
 906         while (argp[i])
 907             i++;
 908     }
 909     args = (char **) mh_xmalloc((i + 2) * sizeof(char *));
 910
 911     /*
 912      * For backward compatibility, we need to add -build
 913      * if we are using mhn as buildmimeproc
 914      */
 915     i = 0;
 916     if (strcmp (r1bindex (ed, '/'), "mhn") == 0)
 917         args[i++] = "-build";
 918
 919     /* copy any other arguments */
 920     while (argp && *argp)
 921         args[i++] = *argp++;
 922     args[i] = NULL;
 923
 924     i = editfile (&ed, args, file, NOUSE, NULL, NULL, NULL, 0, 0);
 925     free (args);
 926
 927     return (i ? NOTOK : OK);
 928 }
 929
 930
 931 /*
 932  *  Check if draft is a mhbuild composition file
 933  */
 934
 935 static int
 936 check_draft (char *msgnam)
 937 {
 938     int state;
 939     char buf[BUFSIZ], name[NAMESZ];
 940     FILE *fp;
 941
 942     if ((fp = fopen (msgnam, "r")) == NULL)
 943         return 0;
 944     for (state = FLD;;)
 945         switch (state = m_getfld (state, name, buf, sizeof(buf), fp)) {
 946             case FLD:
 947             case FLDPLUS:
 948             case FLDEOF:
 949                 /*
 950                  * If draft already contains any of the
 951                  * Content-XXX fields, then assume it already
 952                  * been converted.
 953                  */
 954                 if (uprf (name, XXX_FIELD_PRF)) {
 955                     fclose (fp);
 956                     return 0;
 957                 }
 958                 while (state == FLDPLUS)
 959                     state = m_getfld (state, name, buf, sizeof(buf), fp);
 960                 break;
 961
 962             case BODY:
 963                 do {
 964                     char *bp;
 965
 966                     for (bp = buf; *bp; bp++)
 967                         if (*bp != ' ' && *bp != '\t' && *bp != '\n') {
 968                             fclose (fp);
 969                             return 1;
 970                         }
 971
 972                     state = m_getfld (state, name, buf, sizeof(buf), fp);
 973                 } while (state == BODY);
 974                 /* and fall... */
 975
 976             default:
 977                 fclose (fp);
 978                 return 0;
 979         }
 980 }
 981
 982
 983 #ifndef CYRUS_SASL
 984 # define SASLminc(a) (a)
 985 #else /* CYRUS_SASL */
 986 # define SASLminc(a)  0
 987 #endif /* CYRUS_SASL */
 988
 989 #ifndef TLS_SUPPORT
 990 # define TLSminc(a)  (a)
 991 #else /* TLS_SUPPORT */
 992 # define TLSminc(a)   0
 993 #endif /* TLS_SUPPORT */
 994
 995 static struct swit  sendswitches[] = {
 996 #define ALIASW            0
 997     { "alias aliasfile", 0 },
 998 #define DEBUGSW           1
 999     { "debug", -5 },
1000 #define FILTSW            2
1001     { "filter filterfile", 0 },
1002 #define NFILTSW           3
1003     { "nofilter", 0 },
1004 #define FRMTSW            4
1005     { "format", 0 },
1006 #define NFRMTSW           5
1007     { "noformat", 0 },
1008 #define FORWSW            6
1009     { "forward", 0 },
1010 #define NFORWSW           7
1011     { "noforward", 0 },
1012 #define MIMESW            8
1013     { "mime", 0 },
1014 #define NMIMESW           9
1015     { "nomime", 0 },
1016 #define MSGDSW           10
1017     { "msgid", 0 },
1018 #define NMSGDSW          11
1019     { "nomsgid", 0 },
1020 #define SPSHSW           12
1021     { "push", 0 },
1022 #define NSPSHSW          13
1023     { "nopush", 0 },
1024 #define SPLITSW          14
1025     { "split seconds", 0 },
1026 #define UNIQSW           15
1027     { "unique", -6 },
1028 #define NUNIQSW          16
1029     { "nounique", -8 },
1030 #define VERBSW           17
1031     { "verbose", 0 },
1032 #define NVERBSW          18
1033     { "noverbose", 0 },
1034 #define WATCSW           19
1035     { "watch", 0 },
1036 #define NWATCSW          20
1037     { "nowatch", 0 },
1038 #define WIDTHSW          21
1039     { "width columns", 0 },
1040 #define SVERSIONSW       22
1041     { "version", 0 },
1042 #define SHELPSW          23
1043     { "help", 0 },
1044 #define BITSTUFFSW       24
1045     { "dashstuffing", -12 },
1046 #define NBITSTUFFSW      25
1047     { "nodashstuffing", -14 },
1048 #define MAILSW           26
1049     { "mail", -4 },
1050 #define SAMLSW           27
1051     { "saml", -4 },
1052 #define SSNDSW           28
1053     { "send", -4 },
1054 #define SOMLSW           29
1055     { "soml", -4 },
1056 #define CLIESW           30
1057     { "client host", -6 },
1058 #define SERVSW           31
1059     { "server host", 6 },
1060 #define SNOOPSW          32
1061     { "snoop", -5 },
1062 #define SDRFSW           33
1063     { "draftfolder +folder", -6 },
1064 #define SDRMSW           34
1065     { "draftmessage msg", -6 },
1066 #define SNDRFSW          35
1067     { "nodraftfolder", -3 },
1068 #define SASLSW           36
1069     { "sasl", SASLminc(-4) },
1070 #define NOSASLSW         37
1071     { "nosasl", SASLminc(-6) },
1072 #define SASLMXSSFSW      38
1073     { "saslmaxssf", SASLminc(-10) },
1074 #define SASLMECHSW       39
1075     { "saslmech", SASLminc(-5) },
1076 #define USERSW           40
1077     { "user", SASLminc(-4) },
1078 #define SNDATTACHSW       41
1079     { "attach file", 6 },
1080 #define SNDNOATTACHSW     42
1081     { "noattach", 0 },
1082 #define SNDATTACHFORMAT   43
1083     { "attachformat", 7 },
1084 #define PORTSW            44
1085     { "port server-port-name/number", 4 },
1086 #define TLSSW             45
1087     { "tls", TLSminc(-3) },
1088 #define NTLSSW            46
1089     { "notls", TLSminc(-5) },
1090 #define MTSSW             47
1091     { "mts smtp|sendmail/smtp|sendmail/pipe", 2 },
1092 #define MESSAGEIDSW       48
1093     { "messageid localname|random", 2 },
1094     { NULL, 0 }
1095 };
1096
1097
1098 extern int debugsw;             /* from sendsbr.c */
1099 extern int forwsw;
1100 extern int inplace;
1101 extern int pushsw;
1102 extern int splitsw;
1103 extern int unique;
1104 extern int verbsw;
1105
1106 extern char *altmsg;            /*  .. */
1107 extern char *annotext;
1108 extern char *distfile;
1109
1110
1111 static void
1112 sendit (char *sp, char **arg, char *file, int pushed)
1113 {
1114     int vecp, n = 1;
1115     char *cp, buf[BUFSIZ], **argp;
1116     char **arguments, *vec[MAXARGS];
1117     struct stat st;
1118     char        *attach = NMH_ATTACH_HEADER;/* attachment header field name */
1119     int         attachformat = 1;       /* mhbuild format specifier for
1120                                            attachments */
1121
1122 #ifndef lint
1123     int distsw = 0;
1124 #endif
1125
1126     /*
1127      * Make sure these are defined.  In particular, we need
1128      * vec[1] to be NULL, in case "arg" is NULL below.  It
1129      * doesn't matter what is the value of vec[0], but we
1130      * set it to NULL, to help catch "off-by-one" errors.
1131      */
1132     vec[0] = NULL;
1133     vec[1] = NULL;
1134
1135     /*
1136      * Temporarily copy arg to vec, since the brkstring() call in
1137      * getarguments() will wipe it out before it is merged in.
1138      * Also, we skip the first element of vec, since getarguments()
1139      * skips it.  Then we count the number of arguments
1140      * copied.  The value of "n" will be one greater than
1141      * this in order to simulate the standard argc/argv.
1142      */
1143     if (arg) {
1144         char **bp;
1145
1146         copyip (arg, vec+1, MAXARGS-1);
1147         bp = vec+1;
1148         while (*bp++)
1149             n++;
1150     }
1151
1152     /*
1153      * Merge any arguments from command line (now in vec)
1154      * and arguments from profile.
1155      */
1156     arguments = getarguments (sp, n, vec, 1);
1157     argp = arguments;
1158
1159     debugsw = 0;
1160     forwsw = 1;
1161     inplace = 1;
1162     unique = 0;
1163
1164     altmsg = NULL;
1165     annotext = NULL;
1166     distfile = NULL;
1167
1168     vecp = 1;                   /* we'll get the zero'th element later */
1169     vec[vecp++] = "-library";
1170     vec[vecp++] = getcpy (m_maildir (""));
1171
1172     if ((cp = context_find ("fileproc"))) {
1173       vec[vecp++] = "-fileproc";
1174       vec[vecp++] = cp;
1175     }
1176
1177     if ((cp = context_find ("mhlproc"))) {
1178       vec[vecp++] = "-mhlproc";
1179       vec[vecp++] = cp;
1180     }
1181
1182     while ((cp = *argp++)) {
1183         if (*cp == '-') {
1184             switch (smatch (++cp, sendswitches)) {
1185                 case AMBIGSW:
1186                     ambigsw (cp, sendswitches);
1187                     return;
1188                 case UNKWNSW:
1189                     advise (NULL, "-%s unknown\n", cp);
1190                     return;
1191
1192                 case SHELPSW:
1193                     snprintf (buf, sizeof(buf), "%s [switches]", sp);
1194                     print_help (buf, sendswitches, 1);
1195                     return;
1196                 case SVERSIONSW:
1197                     print_version (invo_name);
1198                     return;
1199
1200                 case SPSHSW:
1201                     pushed++;
1202                     continue;
1203                 case NSPSHSW:
1204                     pushed = 0;
1205                     continue;
1206
1207                 case SPLITSW:
1208                     if (!(cp = *argp++) || sscanf (cp, "%d", &splitsw) != 1) {
1209                         advise (NULL, "missing argument to %s", argp[-2]);
1210                         return;
1211                     }
1212                     continue;
1213
1214                 case UNIQSW:
1215                     unique++;
1216                     continue;
1217                 case NUNIQSW:
1218                     unique = 0;
1219                     continue;
1220                 case FORWSW:
1221                     forwsw++;
1222                     continue;
1223                 case NFORWSW:
1224                     forwsw = 0;
1225                     continue;
1226
1227                 case VERBSW:
1228                     verbsw++;
1229                     vec[vecp++] = --cp;
1230                     continue;
1231                 case NVERBSW:
1232                     verbsw = 0;
1233                     vec[vecp++] = --cp;
1234                     continue;
1235
1236                 case DEBUGSW:
1237                     debugsw++;  /* fall */
1238                 case NFILTSW:
1239                 case FRMTSW:
1240                 case NFRMTSW:
1241                 case BITSTUFFSW:
1242                 case NBITSTUFFSW:
1243                 case MIMESW:
1244                 case NMIMESW:
1245                 case MSGDSW:
1246                 case NMSGDSW:
1247                 case WATCSW:
1248                 case NWATCSW:
1249                 case MAILSW:
1250                 case SAMLSW:
1251                 case SSNDSW:
1252                 case SOMLSW:
1253                 case SNOOPSW:
1254                 case SASLSW:
1255                 case NOSASLSW:
1256                 case TLSSW:
1257                 case NTLSSW:
1258                     vec[vecp++] = --cp;
1259                     continue;
1260
1261                 case ALIASW:
1262                 case FILTSW:
1263                 case WIDTHSW:
1264                 case CLIESW:
1265                 case SERVSW:
1266                 case SASLMXSSFSW:
1267                 case SASLMECHSW:
1268                 case USERSW:
1269                 case PORTSW:
1270                 case MTSSW:
1271                 case MESSAGEIDSW:
1272                     vec[vecp++] = --cp;
1273                     if (!(cp = *argp++) || *cp == '-') {
1274                         advise (NULL, "missing argument to %s", argp[-2]);
1275                         return;
1276                     }
1277                     vec[vecp++] = cp;
1278                     continue;
1279
1280                 case SDRFSW:
1281                 case SDRMSW:
1282                     if (!(cp = *argp++) || *cp == '-') {
1283                         advise (NULL, "missing argument to %s", argp[-2]);
1284                         return;
1285                     }
1286                 case SNDRFSW:
1287                     continue;
1288
1289                 case SNDATTACHSW:
1290                     if (!(attach = *argp++) || *attach == '-') {
1291                         advise (NULL, "missing argument to %s", argp[-2]);
1292                         return;
1293                     }
1294                     continue;
1295                 case SNDNOATTACHSW:
1296                     attach = NULL;
1297                     continue;
1298
1299                 case SNDATTACHFORMAT:
1300                     if (! *argp || **argp == '-')
1301                         adios (NULL, "missing argument to %s", argp[-1]);
1302                     else {
1303                         attachformat = atoi (*argp);
1304                         if (attachformat < 0 ||
1305                             attachformat > ATTACHFORMATS - 1) {
1306                             advise (NULL, "unsupported attachformat %d",
1307                                     attachformat);
1308                             continue;
1309                         }
1310                     }
1311                     ++argp;
1312                     continue;
1313             }
1314         }
1315         advise (NULL, "usage: %s [switches]", sp);
1316         return;
1317     }
1318
1319     /* allow Aliasfile: profile entry */
1320     if ((cp = context_find ("Aliasfile"))) {
1321         char **ap, *dp;
1322
1323         dp = getcpy (cp);
1324         for (ap = brkstring (dp, " ", "\n"); ap && *ap; ap++) {
1325             vec[vecp++] = "-alias";
1326             vec[vecp++] = *ap;
1327         }
1328     }
1329
1330     if ((cp = getenv ("SIGNATURE")) == NULL || *cp == 0)
1331         if ((cp = context_find ("signature")) && *cp)
1332             m_putenv ("SIGNATURE", cp);
1333
1334     if ((annotext = getenv ("mhannotate")) == NULL || *annotext == 0)
1335         annotext = NULL;
1336     if ((altmsg = getenv ("mhaltmsg")) == NULL || *altmsg == 0)
1337         altmsg = NULL;
1338     if (annotext && ((cp = getenv ("mhinplace")) != NULL && *cp != 0))
1339         inplace = atoi (cp);
1340
1341     if ((cp = getenv ("mhdist"))
1342             && *cp
1343 #ifndef lint
1344             && (distsw = atoi (cp))
1345 #endif /* not lint */
1346             && altmsg) {
1347         vec[vecp++] = "-dist";
1348         distfile = getcpy (m_mktemp2(altmsg, invo_name, NULL, NULL));
1349         unlink(distfile);
1350         if (link (altmsg, distfile) == NOTOK)
1351             adios (distfile, "unable to link %s to", altmsg);
1352     } else {
1353         distfile = NULL;
1354     }
1355
1356     if (altmsg == NULL || stat (altmsg, &st) == NOTOK) {
1357         st.st_mtime = 0;
1358         st.st_dev = 0;
1359         st.st_ino = 0;
1360     }
1361     if ((pushsw = pushed))
1362         push ();
1363
1364     vec[0] = r1bindex (postproc, '/');
1365     closefds (3);
1366
1367     if (sendsbr (vec, vecp, file, &st, 1, attach, attachformat) == OK)
1368         done (0);
1369 }
1370
1371 /*
1372  * WHOM
1373  */
1374
1375 static int
1376 whomfile (char **arg, char *file)
1377 {
1378     pid_t pid;
1379     int vecp;
1380     char *vec[MAXARGS];
1381
1382     context_save ();    /* save the context file */
1383     fflush (stdout);
1384
1385     switch (pid = vfork()) {
1386         case NOTOK:
1387             advise ("fork", "unable to");
1388             return 1;
1389
1390         case OK:
1391             vecp = 0;
1392             vec[vecp++] = r1bindex (whomproc, '/');
1393             vec[vecp++] = file;
1394             if (arg)
1395                 while (*arg)
1396                     vec[vecp++] = *arg++;
1397             vec[vecp] = NULL;
1398
1399             execvp (whomproc, vec);
1400             fprintf (stderr, "unable to exec ");
1401             perror (whomproc);
1402             _exit (-1);         /* NOTREACHED */
1403
1404         default:
1405             return (pidwait (pid, NOTOK) & 0377 ? 1 : 0);
1406     }
1407 }
1408
1409
1410 /*
1411  * Remove the draft file
1412  */
1413
1414 static int
1415 removefile (char *drft)
1416 {
1417     if (unlink (drft) == NOTOK)
1418         adios (drft, "unable to unlink");
1419
1420     return OK;
1421 }