diplodocus.org Git - nmh/blob - uip/spost.c

   1
   2 /*
   3  * spost.c -- feed messages to sendmail
   4  *
   5  * This is a simpler, faster, replacement for "post" for use
   6  * when "sendmail" is the transport system.
   7  *
   8  * $Id$
   9  */
  10
  11 #include <h/mh.h>
  12 #include <signal.h>
  13 #include <h/addrsbr.h>
  14 #include <h/aliasbr.h>
  15 #include <h/dropsbr.h>
  16 #include <zotnet/tws/tws.h>
  17 #include <zotnet/mts/mts.h>
  18
  19 #define uptolow(c)      ((isalpha(c) && isupper (c)) ? tolower (c) : c)
  20
  21 #define MAX_SM_FIELD    1476    /* < largest hdr field sendmail will accept */
  22 #define FCCS            10      /* max number of fccs allowed */
  23
  24 struct swit switches[] = {
  25 #define FILTSW               0
  26     { "filter filterfile", 0 },
  27 #define NFILTSW              1
  28     { "nofilter", 0 },
  29 #define FRMTSW               2
  30     { "format", 0 },
  31 #define NFRMTSW              3
  32     { "noformat", 0 },
  33 #define REMVSW               4
  34     { "remove", 0 },
  35 #define NREMVSW              5
  36     { "noremove", 0 },
  37 #define VERBSW               6
  38     { "verbose", 0 },
  39 #define NVERBSW              7
  40     { "noverbose", 0 },
  41 #define WATCSW               8
  42     { "watch", 0 },
  43 #define NWATCSW              9
  44     { "nowatch", 0 },
  45 #define BACKSW              10
  46     { "backup", 0 },
  47 #define NBACKSW             11
  48     { "nobackup", 0 },
  49 #define ALIASW              12
  50     { "alias aliasfile", 0 },
  51 #define NALIASW             13
  52     { "noalias", 0 },
  53 #define WIDTHSW             14
  54     { "width columns", 0 },
  55 #define VERSIONSW           15
  56     { "version", 0 },
  57 #define HELPSW              16
  58     { "help", 0 },
  59 #define DEBUGSW             17
  60     { "debug", -5 },
  61 #define DISTSW              18
  62     { "dist", -4 },             /* interface from dist */
  63 #define CHKSW               19
  64     { "check", -5 },            /* interface from whom */
  65 #define NCHKSW              20
  66     { "nocheck", -7 },          /* interface from whom */
  67 #define WHOMSW              21
  68     { "whom", -4 },             /* interface from whom */
  69 #define PUSHSW              22  /* fork to sendmail then exit */
  70     { "push", -4 },
  71 #define NPUSHSW             23  /* exec sendmail */
  72     { "nopush", -6 },
  73 #define LIBSW               24
  74     { "library directory", -7 },
  75 #define ANNOSW              25
  76     { "idanno number", -6 },
  77     { NULL, 0 }
  78 };
  79
  80
  81 /* flags for headers->flags */
  82 #define HNOP    0x0000          /* just used to keep .set around */
  83 #define HBAD    0x0001          /* bad header - don't let it through */
  84 #define HADR    0x0002          /* header has an address field */
  85 #define HSUB    0x0004          /* Subject: header */
  86 #define HTRY    0x0008          /* try to send to addrs on header */
  87 #define HBCC    0x0010          /* don't output this header */
  88 #define HMNG    0x0020          /* mung this header */
  89 #define HNGR    0x0040          /* no groups allowed in this header */
  90 #define HFCC    0x0080          /* FCC: type header */
  91 #define HNIL    0x0100          /* okay for this header not to have addrs */
  92 #define HIGN    0x0200          /* ignore this header */
  93
  94 /* flags for headers->set */
  95 #define MFRM    0x0001          /* we've seen a From: */
  96 #define MDAT    0x0002          /* we've seen a Date: */
  97 #define MRFM    0x0004          /* we've seen a Resent-From: */
  98 #define MVIS    0x0008          /* we've seen sighted addrs */
  99 #define MINV    0x0010          /* we've seen blind addrs */
 100 #define MRDT    0x0020          /* we've seen a Resent-Date: */
 101
 102 struct headers {
 103     char *value;
 104     unsigned int flags;
 105     unsigned int set;
 106 };
 107
 108
 109 static struct headers NHeaders[] = {
 110     { "Return-Path", HBAD,                0 },
 111     { "Received",    HBAD,                0 },
 112     { "Reply-To",    HADR|HNGR,           0 },
 113     { "From",        HADR|HNGR,           MFRM },
 114     { "Sender",      HADR|HBAD,           0 },
 115     { "Date",        HNOP,                MDAT },
 116     { "Subject",     HSUB,                0 },
 117     { "To",          HADR|HTRY,           MVIS },
 118     { "cc",          HADR|HTRY,           MVIS },
 119     { "Bcc",         HADR|HTRY|HBCC|HNIL, MINV },
 120     { "Message-Id",  HBAD,                0 },
 121     { "Fcc",         HFCC,                0 },
 122     { NULL,          0,                   0 }
 123 };
 124
 125 static struct headers RHeaders[] = {
 126     { "Resent-Reply-To",   HADR|HNGR,      0 },
 127     { "Resent-From",       HADR|HNGR,      MRFM },
 128     { "Resent-Sender",     HADR|HBAD,      0 },
 129     { "Resent-Date",       HNOP,           MRDT },
 130     { "Resent-Subject",    HSUB,           0 },
 131     { "Resent-To",         HADR|HTRY,      MVIS },
 132     { "Resent-cc",         HADR|HTRY,      MVIS },
 133     { "Resent-Bcc",        HADR|HTRY|HBCC, MINV },
 134     { "Resent-Message-Id", HBAD,           0 },
 135     { "Resent-Fcc",        HFCC,           0 },
 136     { "Reply-To",          HADR,           0 },
 137     { "Fcc",               HIGN,           0 },
 138     { NULL,                0,              0 }
 139 };
 140
 141
 142 static short fccind = 0;        /* index into fccfold[] */
 143
 144 static int badmsg = 0;          /* message has bad semantics            */
 145 static int verbose = 0;         /* spell it out                         */
 146 static int debug = 0;           /* debugging post                       */
 147 static int rmflg = 1;           /* remove temporary file when done      */
 148 static int watch = 0;           /* watch the delivery process           */
 149 static int backflg = 0;         /* rename input file as *.bak when done */
 150 static int whomflg = 0;         /* if just checking addresses           */
 151 static int pushflg = 0;         /* if going to fork to sendmail         */
 152 static int aliasflg = -1;       /* if going to process aliases          */
 153 static int outputlinelen=72;
 154
 155 static unsigned msgflags = 0;   /* what we've seen */
 156
 157 static enum {
 158     normal, resent
 159 } msgstate = normal;
 160
 161 static char tmpfil[] = "/tmp/pstXXXXXX";
 162
 163 static char from[BUFSIZ];       /* my network address */
 164 static char signature[BUFSIZ];  /* my signature */
 165 static char *filter = NULL;     /* the filter for BCC'ing */
 166 static char *subject = NULL;    /* the subject field for BCC'ing */
 167 static char *fccfold[FCCS];     /* foldernames for FCC'ing */
 168
 169 static struct headers *hdrtab;  /* table for the message we're doing */
 170 static FILE *out;               /* output (temp) file */
 171
 172 extern char *sendmail;
 173
 174 /*
 175  * external prototypes
 176  */
 177 extern char *getfullname (void);
 178 extern char *getusername (void);
 179
 180 /*
 181  * static prototypes
 182  */
 183 static void putfmt (char *, char *, FILE *);
 184 static void start_headers (void);
 185 static void finish_headers (FILE *);
 186 static int get_header (char *, struct headers *);
 187 static void putadr (char *, struct mailname *);
 188 static int putone (char *, int, int);
 189 static void insert_fcc (struct headers *, char *);
 190 static void file (char *);
 191 static void fcc (char *, char *);
 192
 193 #if 0
 194 static void die (char *, char *, ...);
 195 static void make_bcc_file (void);
 196 #endif
 197
 198
 199 int
 200 main (int argc, char **argv)
 201 {
 202     int state, i, pid, compnum;
 203     char *cp, *msg = NULL, **argp, **arguments;
 204     char *sargv[16], buf[BUFSIZ], name[NAMESZ];
 205     FILE *in;
 206
 207 #ifdef LOCALE
 208     setlocale(LC_ALL, "");
 209 #endif
 210     invo_name = r1bindex (argv[0], '/');
 211
 212     /* foil search of user profile/context */
 213     if (context_foil (NULL) == -1)
 214         done (1);
 215
 216     mts_init (invo_name);
 217     arguments = getarguments (invo_name, argc, argv, 0);
 218     argp = arguments;
 219
 220     while ((cp = *argp++)) {
 221         if (*cp == '-') {
 222             switch (smatch (++cp, switches)) {
 223                 case AMBIGSW:
 224                     ambigsw (cp, switches);
 225                     done (1);
 226                 case UNKWNSW:
 227                     adios (NULL, "-%s unknown", cp);
 228
 229                 case HELPSW:
 230                     snprintf (buf, sizeof(buf), "%s [switches] file", invo_name);
 231                     print_help (buf, switches, 1);
 232                     done (1);
 233                 case VERSIONSW:
 234                     print_version(invo_name);
 235                     done (1);
 236
 237                 case DEBUGSW:
 238                     debug++;
 239                     continue;
 240
 241                 case DISTSW:
 242                     msgstate = resent;
 243                     continue;
 244
 245                 case WHOMSW:
 246                     whomflg++;
 247                     continue;
 248
 249                 case FILTSW:
 250                     if (!(filter = *argp++) || *filter == '-')
 251                         adios (NULL, "missing argument to %s", argp[-2]);
 252                     continue;
 253                 case NFILTSW:
 254                     filter = NULL;
 255                     continue;
 256
 257                 case REMVSW:
 258                     rmflg++;
 259                     continue;
 260                 case NREMVSW:
 261                     rmflg = 0;
 262                     continue;
 263
 264                 case BACKSW:
 265                     backflg++;
 266                     continue;
 267                 case NBACKSW:
 268                     backflg = 0;
 269                     continue;
 270
 271                 case VERBSW:
 272                     verbose++;
 273                     continue;
 274                 case NVERBSW:
 275                     verbose = 0;
 276                     continue;
 277
 278                 case WATCSW:
 279                     watch++;
 280                     continue;
 281                 case NWATCSW:
 282                     watch = 0;
 283                     continue;
 284
 285                 case PUSHSW:
 286                     pushflg++;
 287                     continue;
 288                 case NPUSHSW:
 289                     pushflg = 0;
 290                     continue;
 291
 292                 case ALIASW:
 293                     if (!(cp = *argp++) || *cp == '-')
 294                         adios (NULL, "missing argument to %s", argp[-2]);
 295                     if (aliasflg < 0)
 296                         alias (AliasFile);/* load default aka's */
 297                     aliasflg = 1;
 298                     if ((state = alias(cp)) != AK_OK)
 299                         adios (NULL, "aliasing error in file %s - %s",
 300                                cp, akerror(state) );
 301                     continue;
 302                 case NALIASW:
 303                     aliasflg = 0;
 304                     continue;
 305
 306                 case WIDTHSW:
 307                     if (!(cp = *argp++) || *cp == '-')
 308                         adios (NULL, "missing argument to %s", argp[-2]);
 309                     outputlinelen = atoi (cp);
 310                     if (outputlinelen <= 10)
 311                         outputlinelen = 72;
 312                     continue;
 313
 314                 case LIBSW:
 315                     if (!(cp = *argp++) || *cp == '-')
 316                         adios (NULL, "missing argument to %s", argp[-2]);
 317                     /* create a minimal context */
 318                     if (context_foil (cp) == -1)
 319                         done(1);
 320                     continue;
 321
 322                 case ANNOSW:
 323                     /* -idanno switch ignored */
 324                     if (!(cp = *argp++) || *cp == '-')
 325                         adios (NULL, "missing argument to %s", argp[-2]);
 326                     continue;
 327             }
 328         }
 329         if (msg)
 330             adios (NULL, "only one message at a time!");
 331         else
 332             msg = cp;
 333     }
 334
 335     if (aliasflg < 0)
 336         alias (AliasFile);      /* load default aka's */
 337
 338     if (!msg)
 339         adios (NULL, "usage: %s [switches] file", invo_name);
 340
 341     if ((in = fopen (msg, "r")) == NULL)
 342         adios (msg, "unable to open");
 343
 344     start_headers ();
 345     if (debug) {
 346         verbose++;
 347         out = stdout;
 348     }
 349     else {
 350 #ifdef HAVE_MKSTEMP
 351             if ((out = fdopen( mkstemp (tmpfil), "w" )) == NULL )
 352                 adios (tmpfil, "unable to create");
 353 #else
 354             mktemp (tmpfil);
 355             if ((out = fopen (tmpfil, "w")) == NULL)
 356                 adios (tmpfil, "unable to create");
 357             chmod (tmpfil, 0600);
 358 #endif
 359         }
 360
 361     hdrtab = (msgstate == normal) ? NHeaders : RHeaders;
 362
 363     for (compnum = 1, state = FLD;;) {
 364         switch (state = m_getfld (state, name, buf, sizeof(buf), in)) {
 365             case FLD:
 366                 compnum++;
 367                 putfmt (name, buf, out);
 368                 continue;
 369
 370             case FLDPLUS:
 371                 compnum++;
 372                 cp = add (buf, cp);
 373                 while (state == FLDPLUS) {
 374                     state = m_getfld (state, name, buf, sizeof(buf), in);
 375                     cp = add (buf, cp);
 376                 }
 377                 putfmt (name, cp, out);
 378                 free (cp);
 379                 continue;
 380
 381             case BODY:
 382                 finish_headers (out);
 383                 fprintf (out, "\n%s", buf);
 384                 if(whomflg == 0)
 385                     while (state == BODY) {
 386                         state = m_getfld (state, name, buf, sizeof(buf), in);
 387                         fputs (buf, out);
 388                     }
 389                 break;
 390
 391             case FILEEOF:
 392                 finish_headers (out);
 393                 break;
 394
 395             case LENERR:
 396             case FMTERR:
 397                 adios (NULL, "message format error in component #%d",
 398                         compnum);
 399
 400             default:
 401                 adios (NULL, "getfld() returned %d", state);
 402         }
 403         break;
 404     }
 405
 406     fclose (in);
 407     if (backflg && !whomflg) {
 408         strncpy (buf, m_backup (msg), sizeof(buf));
 409         if (rename (msg, buf) == NOTOK)
 410             advise (buf, "unable to rename %s to", msg);
 411     }
 412
 413     if (debug) {
 414         done (0);
 415     }
 416     else
 417         fclose (out);
 418
 419     file (tmpfil);
 420
 421     /*
 422      * re-open the temp file, unlink it and exec sendmail, giving it
 423      * the msg temp file as std in.
 424      */
 425     if ( freopen( tmpfil, "r", stdin) == NULL)
 426         adios (tmpfil, "can't reopen for sendmail");
 427     if (rmflg)
 428         unlink (tmpfil);
 429
 430     argp = sargv;
 431     *argp++ = "send-mail";
 432     *argp++ = "-m";     /* send to me too */
 433     *argp++ = "-t";     /* read msg for recipients */
 434     *argp++ = "-i";     /* don't stop on "." */
 435     if (whomflg)
 436         *argp++ = "-bv";
 437     if (watch || verbose)
 438         *argp++ = "-v";
 439     *argp = NULL;
 440
 441     if (pushflg && !(watch || verbose)) {
 442         /* fork to a child to run sendmail */
 443         for (i=0; (pid = vfork()) == NOTOK && i < 5; i++)
 444             sleep(5);
 445         switch (pid) {
 446             case NOTOK:
 447                 fprintf (verbose ? stdout : stderr, "%s: can't fork to %s\n",
 448                          invo_name, sendmail);
 449                 exit(-1);
 450             case OK:
 451                 /* we're the child .. */
 452                 break;
 453             default:
 454                 exit(0);
 455         }
 456     }
 457     execv ( sendmail, sargv);
 458     adios ( sendmail, "can't exec");
 459     return 0;  /* dead code to satisfy the compiler */
 460 }
 461
 462 /* DRAFT GENERATION */
 463
 464 static void
 465 putfmt (char *name, char *str, FILE *out)
 466 {
 467     int i;
 468     char *cp, *pp;
 469     struct headers *hdr;
 470
 471     while (*str == ' ' || *str == '\t')
 472         str++;
 473
 474     if ((i = get_header (name, hdrtab)) == NOTOK) {
 475         fprintf (out, "%s: %s", name, str);
 476         return;
 477     }
 478
 479     hdr = &hdrtab[i];
 480     if (hdr->flags & HIGN)
 481         return;
 482     if (hdr->flags & HBAD) {
 483         advise (NULL, "illegal header line -- %s:", name);
 484         badmsg++;
 485         return;
 486     }
 487     msgflags |= hdr->set;
 488
 489     if (hdr->flags & HSUB)
 490         subject = subject ? add (str, add ("\t", subject)) : getcpy (str);
 491
 492     if (hdr->flags & HFCC) {
 493         if ((cp = strrchr(str, '\n')))
 494             *cp = 0;
 495         for (cp = pp = str; (cp = strchr(pp, ',')); pp = cp) {
 496             *cp++ = 0;
 497             insert_fcc (hdr, pp);
 498         }
 499         insert_fcc (hdr, pp);
 500         return;
 501     }
 502
 503 #ifdef notdef
 504     if (hdr->flags & HBCC) {
 505         insert_bcc(str);
 506         return;
 507     }
 508 #endif  /* notdef */
 509
 510     if (*str != '\n' && *str != '\0') {
 511         if (aliasflg && hdr->flags & HTRY) {
 512             /* this header contains address(es) that we have to do
 513              * alias expansion on.  Because of the saved state in
 514              * getname we have to put all the addresses into a list.
 515              * We then let putadr munch on that list, possibly
 516              * expanding aliases.
 517              */
 518             register struct mailname *f = 0;
 519             register struct mailname *mp = 0;
 520
 521             while ((cp = getname(str))) {
 522                 mp = getm( cp, NULL, 0, AD_HOST, NULL);
 523                 if (f == 0) {
 524                     f = mp;
 525                     mp->m_next = mp;
 526                 } else {
 527                     mp->m_next = f->m_next;
 528                     f->m_next = mp;
 529                     f = mp;
 530                 }
 531             }
 532             f = mp->m_next; mp->m_next = 0;
 533             putadr( name, f );
 534         } else {
 535             /* The author(s) of spost decided that alias substitution wasn't
 536                necessary for the non-HTRY headers.  Unfortunately, one of those
 537                headers is "From:", and having alias substitution work on that is
 538                extremely useful for someone with a lot of POP3 email accounts or
 539                aliases.  post supports aliasing of "From:"...
 540
 541                Since "From:"-processing is incompletely implemented in this
 542                unsupported and undocumented spost backend, I'm not going to take
 543                the time to implement my new draft-From:-based email address
 544                masquerading.  If I do ever implement it here, I'd almost
 545                certainly want to implement "From:" line alias processing as
 546                well.  -- Dan Harkless <dan-nmh@dilvish.speed.net> */
 547             fprintf (out, "%s: %s", name, str );
 548         }
 549     }
 550 }
 551
 552
 553 static void
 554 start_headers (void)
 555 {
 556     char *cp;
 557     char sigbuf[BUFSIZ];
 558
 559     strncpy(from, getusername(), sizeof(from));
 560
 561     if ((cp = getfullname ()) && *cp) {
 562         strncpy (sigbuf, cp, sizeof(sigbuf));
 563         snprintf (signature, sizeof(signature), "%s <%s>", sigbuf,  from);
 564     }
 565     else
 566         snprintf (signature, sizeof(signature), "%s",  from);
 567 }
 568
 569
 570 static void
 571 finish_headers (FILE *out)
 572 {
 573     switch (msgstate) {
 574         case normal:
 575             if (!(msgflags & MDAT))
 576                 fprintf (out, "Date: %s\n", dtimenow (0));
 577             if (msgflags & MFRM)
 578                 fprintf (out, "Sender: %s\n", from);
 579             else
 580                 fprintf (out, "From: %s\n", signature);
 581 #ifdef notdef
 582             if (!(msgflags & MVIS))
 583                 fprintf (out, "Bcc: Blind Distribution List: ;\n");
 584 #endif  /* notdef */
 585             break;
 586
 587         case resent:
 588             if (!(msgflags & MRDT))
 589                 fprintf (out, "Resent-Date: %s\n", dtimenow(0));
 590             if (msgflags & MRFM)
 591                 fprintf (out, "Resent-Sender: %s\n", from);
 592             else
 593                 fprintf (out, "Resent-From: %s\n", signature);
 594 #ifdef notdef
 595             if (!(msgflags & MVIS))
 596                 fprintf (out, "Resent-Bcc: Blind Re-Distribution List: ;\n");
 597 #endif  /* notdef */
 598             break;
 599     }
 600
 601     if (badmsg)
 602         adios (NULL, "re-format message and try again");
 603 }
 604
 605
 606 static int
 607 get_header (char *header, struct headers *table)
 608 {
 609     struct headers *h;
 610
 611     for (h = table; h->value; h++)
 612         if (!strcasecmp (header, h->value))
 613             return (h - table);
 614
 615     return NOTOK;
 616 }
 617
 618
 619 /*
 620  * output the address list for header "name".  The address list
 621  * is a linked list of mailname structs.  "nl" points to the head
 622  * of the list.  Alias substitution should be done on nl.
 623  */
 624 static void
 625 putadr (char *name, struct mailname *nl)
 626 {
 627     register struct mailname *mp, *mp2;
 628     register int linepos;
 629     register char *cp;
 630     int namelen;
 631
 632     fprintf (out, "%s: ", name);
 633     namelen = strlen(name) + 2;
 634     linepos = namelen;
 635
 636     for (mp = nl; mp; ) {
 637         if (linepos > MAX_SM_FIELD) {
 638                 fprintf (out, "\n%s: ", name);
 639                 linepos = namelen;
 640         }
 641         if (mp->m_nohost) {
 642             /* a local name - see if it's an alias */
 643             cp = akvalue(mp->m_mbox);
 644             if (cp == mp->m_mbox)
 645                 /* wasn't an alias - use what the user typed */
 646                 linepos = putone( mp->m_text, linepos, namelen );
 647             else
 648                 /* an alias - expand it */
 649                 while ((cp = getname(cp))) {
 650                     if (linepos > MAX_SM_FIELD) {
 651                             fprintf (out, "\n%s: ", name);
 652                             linepos = namelen;
 653                     }
 654                     mp2 = getm( cp, NULL, 0, AD_HOST, NULL);
 655                     if (akvisible()) {
 656                         mp2->m_pers = getcpy(mp->m_mbox);
 657                         linepos = putone( adrformat(mp2), linepos, namelen );
 658                     } else {
 659                         linepos = putone( mp2->m_text, linepos, namelen );
 660                     }
 661                     mnfree( mp2 );
 662                 }
 663         } else {
 664             /* not a local name - use what the user typed */
 665             linepos = putone( mp->m_text, linepos, namelen );
 666         }
 667         mp2 = mp;
 668         mp = mp->m_next;
 669         mnfree( mp2 );
 670     }
 671     putc( '\n', out );
 672 }
 673
 674 static int
 675 putone (char *adr, int pos, int indent)
 676 {
 677     register int len;
 678     static int linepos;
 679
 680     len = strlen( adr );
 681     if (pos == indent)
 682         linepos = pos;
 683     else if ( linepos+len > outputlinelen ) {
 684         fprintf ( out, ",\n%*s", indent, "");
 685         linepos = indent;
 686         pos += indent + 2;
 687     }
 688     else {
 689         fputs( ", ", out );
 690         linepos += 2;
 691         pos += 2;
 692     }
 693     fputs( adr, out );
 694
 695     linepos += len;
 696     return (pos+len);
 697 }
 698
 699
 700 static void
 701 insert_fcc (struct headers *hdr, char *pp)
 702 {
 703     char   *cp;
 704
 705     for (cp = pp; isspace (*cp); cp++)
 706         continue;
 707     for (pp += strlen (pp) - 1; pp > cp && isspace (*pp); pp--)
 708         continue;
 709     if (pp >= cp)
 710         *++pp = 0;
 711     if (*cp == 0)
 712         return;
 713
 714     if (fccind >= FCCS)
 715         adios (NULL, "too many %ss", hdr->value);
 716     fccfold[fccind++] = getcpy (cp);
 717 }
 718
 719 #if 0
 720 /* BCC GENERATION */
 721
 722 static void
 723 make_bcc_file (void)
 724 {
 725     pid_t child_id;
 726     int fd, i, status;
 727     char *vec[6];
 728     FILE * in, *out;
 729
 730     mktemp (bccfil);
 731     if ((out = fopen (bccfil, "w")) == NULL)
 732         adios (bccfil, "unable to create");
 733     chmod (bccfil, 0600);
 734
 735     fprintf (out, "Date: %s\n", dtimenow (0));
 736     fprintf (out, "From: %s\n", signature);
 737     if (subject)
 738         fprintf (out, "Subject: %s", subject);
 739     fprintf (out, "BCC:\n\n------- Blind-Carbon-Copy\n\n");
 740     fflush (out);
 741
 742     if (filter == NULL) {
 743         if ((fd = open (tmpfil, O_RDONLY)) == NOTOK)
 744             adios (NULL, "unable to re-open");
 745         cpydgst (fd, fileno (out), tmpfil, bccfil);
 746         close (fd);
 747     }
 748     else {
 749         vec[0] = r1bindex (mhlproc, '/');
 750
 751         for (i = 0; (child_id = vfork()) == NOTOK && i < 5; i++)
 752             sleep (5);
 753         switch (child_id) {
 754             case NOTOK:
 755                 adios ("vfork", "unable to");
 756
 757             case OK:
 758                 dup2 (fileno (out), 1);
 759
 760                 i = 1;
 761                 vec[i++] = "-forward";
 762                 vec[i++] = "-form";
 763                 vec[i++] = filter;
 764                 vec[i++] = tmpfil;
 765                 vec[i] = NULL;
 766
 767                 execvp (mhlproc, vec);
 768                 adios (mhlproc, "unable to exec");
 769
 770             default:
 771                 if (status = pidwait(child_id, OK))
 772                     admonish (NULL, "%s lost (status=0%o)", vec[0], status);
 773                 break;
 774         }
 775     }
 776
 777     fseek (out, 0L, SEEK_END);
 778     fprintf (out, "\n------- End of Blind-Carbon-Copy\n");
 779     fclose (out);
 780 }
 781 #endif  /* if 0 */
 782
 783 /* FCC INTERACTION */
 784
 785 static void
 786 file (char *path)
 787 {
 788     int i;
 789
 790     if (fccind == 0)
 791         return;
 792
 793     for (i = 0; i < fccind; i++)
 794         if (whomflg)
 795             printf ("Fcc: %s\n", fccfold[i]);
 796         else
 797             fcc (path, fccfold[i]);
 798 }
 799
 800
 801 static void
 802 fcc (char *file, char *folder)
 803 {
 804     pid_t child_id;
 805     int i, status;
 806     char fold[BUFSIZ];
 807
 808     if (verbose)
 809         printf ("%sFcc: %s\n", msgstate == resent ? "Resent-" : "", folder);
 810     fflush (stdout);
 811
 812     for (i = 0; (child_id = vfork()) == NOTOK && i < 5; i++)
 813         sleep (5);
 814     switch (child_id) {
 815         case NOTOK:
 816             if (!verbose)
 817                 fprintf (stderr, "  %sFcc %s: ",
 818                         msgstate == resent ? "Resent-" : "", folder);
 819             fprintf (verbose ? stdout : stderr, "no forks, so not ok\n");
 820             break;
 821
 822         case OK:
 823             snprintf (fold, sizeof(fold), "%s%s",
 824                     *folder == '+' || *folder == '@' ? "" : "+", folder);
 825             execlp (fileproc, r1bindex (fileproc, '/'),
 826                     "-link", "-file", file, fold, NULL);
 827             _exit (-1);
 828
 829         default:
 830             if ((status = pidwait(child_id, OK))) {
 831                 if (!verbose)
 832                     fprintf (stderr, "  %sFcc %s: ",
 833                             msgstate == resent ? "Resent-" : "", folder);
 834                 fprintf (verbose ? stdout : stderr,
 835                         " errored (0%o)\n", status);
 836             }
 837     }
 838
 839     fflush (stdout);
 840 }
 841
 842
 843 #if 0
 844
 845 /*
 846  * TERMINATION
 847  */
 848
 849 static void
 850 die (char *what, char *fmt, ...)
 851 {
 852     va_list ap;
 853
 854     va_start(ap, fmt);
 855     advertise (what, NULL, fmt, ap);
 856     va_end(ap);
 857
 858     done (1);
 859 }
 860 #endif