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

   1
   2 /*
   3  * slocal.c -- asynchronously filter and deliver new mail
   4  *
   5  * $Id$
   6  *
   7  * This code is Copyright (c) 2002, by the authors of nmh.  See the
   8  * COPYRIGHT file in the root directory of the nmh distribution for
   9  * complete copyright information.
  10  */
  11
  12 /*
  13  *  Under sendmail, users should add the line
  14  *
  15  *      "| /usr/local/nmh/lib/slocal"
  16  *
  17  *  to their $HOME/.forward file.
  18  *
  19  *  Under MMDF-I, users should (symbolically) link
  20  *  /usr/local/nmh/lib/slocal to $HOME/bin/rcvmail.
  21  *
  22  */
  23
  24 /* Changed to use getutent() and friends.  Assumes that when getutent() exists,
  25  * a number of other things also exist.  Please check.
  26  * Ruud de Rooij <ruud@ruud.org>  Sun, 28 May 2000 17:28:55 +0200
  27  */
  28
  29 #include <h/mh.h>
  30 #include <h/dropsbr.h>
  31 #include <h/rcvmail.h>
  32 #include <h/signals.h>
  33 #include <h/tws.h>
  34 #include <h/mts.h>
  35
  36 #include <pwd.h>
  37 #include <signal.h>
  38 #include <sys/ioctl.h>
  39 #include <fcntl.h>
  40
  41 #ifdef INITGROUPS_HEADER
  42 #include INITGROUPS_HEADER
  43 #else
  44 /* On AIX 4.1, initgroups() is defined and even documented (giving the parameter
  45    types as char* and int), but doesn't have a prototype in any of the system
  46    header files.  AIX 4.3, SunOS 4.1.3, and ULTRIX 4.2A have the same
  47    problem. */
  48 extern int  initgroups(char*, int);
  49 #endif
  50
  51
  52 #ifdef HAVE_DB1_NDBM_H
  53 #include <db1/ndbm.h>
  54 #else
  55 #ifdef HAVE_GDBM_NDBM_H
  56 #include <gdbm/ndbm.h>
  57 #else
  58 #include <ndbm.h>
  59 #endif
  60 #endif
  61
  62 #include <utmp.h>
  63
  64 #ifndef HAVE_GETUTENT
  65 # ifndef UTMP_FILE
  66 #  ifdef _PATH_UTMP
  67 #   define UTMP_FILE _PATH_UTMP
  68 #  else
  69 #   define UTMP_FILE "/etc/utmp"
  70 #  endif
  71 # endif
  72 #endif
  73
  74 static struct swit switches[] = {
  75 #define ADDRSW         0
  76     { "addr address", 0 },
  77 #define USERSW         1
  78     { "user name", 0 },
  79 #define FILESW         2
  80     { "file file", 0 },
  81 #define SENDERSW       3
  82     { "sender address", 0 },
  83 #define MAILBOXSW      4
  84     { "mailbox file", 0 },
  85 #define HOMESW         5
  86     { "home directory", -4 },
  87 #define INFOSW         6
  88     { "info data", 0 },
  89 #define MAILSW         7
  90     { "maildelivery file", 0 },
  91 #define VERBSW         8
  92     { "verbose", 0 },
  93 #define NVERBSW        9
  94     { "noverbose", 0 },
  95 #define SUPPRESSDUP   10
  96     { "suppressdup", 0 },
  97 #define NSUPPRESSDUP 11
  98     { "nosuppressdup", 0 },
  99 #define DEBUGSW       12
 100     { "debug", 0 },
 101 #define VERSIONSW     13
 102     { "version", 0 },
 103 #define HELPSW        14
 104     { "help", 0 },
 105     { NULL, 0 }
 106 };
 107
 108 static int globbed = 0;         /* have we built "vars" table yet?        */
 109 static int parsed = 0;          /* have we built header field table yet   */
 110 static int utmped = 0;          /* have we scanned umtp(x) file yet       */
 111 static int suppressdup = 0;     /* are we suppressing duplicate messages? */
 112
 113 static int verbose = 0;
 114 static int debug = 0;
 115
 116 static char *addr = NULL;
 117 static char *user = NULL;
 118 static char *info = NULL;
 119 static char *file = NULL;
 120 static char *sender = NULL;
 121 static char *envelope = NULL;   /* envelope information ("From " line)  */
 122 static char *mbox = NULL;
 123 static char *home = NULL;
 124
 125 static struct passwd *pw;       /* passwd file entry */
 126
 127 static char ddate[BUFSIZ];      /* record the delivery date */
 128 struct tws *now;
 129
 130 static jmp_buf myctx;
 131
 132 /* flags for pair->p_flags */
 133 #define P_NIL  0x00
 134 #define P_ADR  0x01     /* field is address     */
 135 #define P_HID  0x02     /* special (fake) field */
 136 #define P_CHK  0x04
 137
 138 struct pair {
 139     char *p_name;
 140     char *p_value;
 141     char  p_flags;
 142 };
 143
 144 #define NVEC 100
 145
 146 /*
 147  * Lookup table for matching fields and patterns
 148  * in messages.  The rest of the table is added
 149  * when the message is parsed.
 150  */
 151 static struct pair hdrs[NVEC + 1] = {
 152     { "source",          NULL, P_HID },
 153     { "addr",            NULL, P_HID },
 154     { "Return-Path",     NULL, P_ADR },
 155     { "Reply-To",        NULL, P_ADR },
 156     { "From",            NULL, P_ADR },
 157     { "Sender",          NULL, P_ADR },
 158     { "To",              NULL, P_ADR },
 159     { "cc",              NULL, P_ADR },
 160     { "Resent-Reply-To", NULL, P_ADR },
 161     { "Resent-From",     NULL, P_ADR },
 162     { "Resent-Sender",   NULL, P_ADR },
 163     { "Resent-To",       NULL, P_ADR },
 164     { "Resent-cc",       NULL, P_ADR },
 165     { NULL, NULL, 0 }
 166 };
 167
 168 /*
 169  * The list of builtin variables to expand in a string
 170  * before it is executed by the "pipe" or "qpipe" action.
 171  */
 172 static struct pair vars[] = {
 173     { "sender",   NULL, P_NIL },
 174     { "address",  NULL, P_NIL },
 175     { "size",     NULL, P_NIL },
 176     { "reply-to", NULL, P_CHK },
 177     { "info",     NULL, P_NIL },
 178     { NULL, NULL, 0 }
 179 };
 180
 181 extern char **environ;
 182
 183 /*
 184  * static prototypes
 185  */
 186 static int localmail (int, char *);
 187 static int usr_delivery (int, char *, int);
 188 static int split (char *, char **);
 189 static int parse (int);
 190 static void expand (char *, char *, int);
 191 static void glob (int);
 192 static struct pair *lookup (struct pair *, char *);
 193 static int logged_in (void);
 194 static int timely (char *, char *);
 195 static int usr_file (int, char *, int);
 196 static int usr_pipe (int, char *, char *, char **, int);
 197 static int usr_folder (int, char *);
 198 static RETSIGTYPE alrmser (int);
 199 static void get_sender (char *, char **);
 200 static int copy_message (int, char *, int);
 201 static void verbose_printf (char *fmt, ...);
 202 static void adorn (char *, char *, ...);
 203 static void debug_printf (char *fmt, ...);
 204 static int suppress_duplicates (int, char *);
 205 static char *trim (char *);
 206
 207
 208 int
 209 main (int argc, char **argv)
 210 {
 211     int fd, status;
 212     FILE *fp = stdin;
 213     char *cp, *mdlvr = NULL, buf[BUFSIZ];
 214     char mailbox[BUFSIZ], tmpfil[BUFSIZ];
 215     char **argp, **arguments;
 216
 217 #ifdef LOCALE
 218     setlocale(LC_ALL, "");
 219 #endif
 220     invo_name = r1bindex (*argv, '/');
 221
 222     /* foil search of user profile/context */
 223     if (context_foil (NULL) == -1)
 224         done (1);
 225
 226     mts_init (invo_name);
 227     arguments = getarguments (invo_name, argc, argv, 0);
 228     argp = arguments;
 229
 230     /* Parse arguments */
 231     while ((cp = *argp++)) {
 232         if (*cp == '-') {
 233             switch (smatch (++cp, switches)) {
 234                 case AMBIGSW:
 235                     ambigsw (cp, switches);
 236                     done (1);
 237                 case UNKWNSW:
 238                     adios (NULL, "-%s unknown", cp);
 239
 240                 case HELPSW:
 241                     snprintf (buf, sizeof(buf),
 242                         "%s [switches] [address info sender]", invo_name);
 243                     print_help (buf, switches, 0);
 244                     done (1);
 245                 case VERSIONSW:
 246                     print_version(invo_name);
 247                     done (1);
 248
 249                 case ADDRSW:
 250                     if (!(addr = *argp++))/* allow -xyz arguments */
 251                         adios (NULL, "missing argument to %s", argp[-2]);
 252                     continue;
 253                 case INFOSW:
 254                     if (!(info = *argp++))/* allow -xyz arguments */
 255                         adios (NULL, "missing argument to %s", argp[-2]);
 256                     continue;
 257                 case USERSW:
 258                     if (!(user = *argp++))/* allow -xyz arguments */
 259                         adios (NULL, "missing argument to %s", argp[-2]);
 260                     continue;
 261                 case FILESW:
 262                     if (!(file = *argp++) || *file == '-')
 263                         adios (NULL, "missing argument to %s", argp[-2]);
 264                     continue;
 265                 case SENDERSW:
 266                     if (!(sender = *argp++))/* allow -xyz arguments */
 267                         adios (NULL, "missing argument to %s", argp[-2]);
 268                     continue;
 269                 case MAILBOXSW:
 270                     if (!(mbox = *argp++) || *mbox == '-')
 271                         adios (NULL, "missing argument to %s", argp[-2]);
 272                     continue;
 273                 case HOMESW:
 274                     if (!(home = *argp++) || *home == '-')
 275                         adios (NULL, "missing argument to %s", argp[-2]);
 276                     continue;
 277
 278                 case MAILSW:
 279                     if (!(cp = *argp++) || *cp == '-')
 280                         adios (NULL, "missing argument to %s", argp[-2]);
 281                     if (mdlvr)
 282                         adios (NULL, "only one maildelivery file at a time!");
 283                     mdlvr = cp;
 284                     continue;
 285
 286                 case VERBSW:
 287                     verbose++;
 288                     continue;
 289                 case NVERBSW:
 290                     verbose = 0;
 291                     continue;
 292
 293                 case SUPPRESSDUP:
 294                     suppressdup++;
 295                     continue;
 296                 case NSUPPRESSDUP:
 297                     suppressdup = 0;
 298                     continue;
 299                 case DEBUGSW:
 300                     debug++;
 301                     continue;
 302             }
 303         }
 304
 305         switch (argp - (argv + 1)) {
 306             case 1:
 307                 addr = cp;
 308                 break;
 309
 310             case 2:
 311                 info = cp;
 312                 break;
 313
 314             case 3:
 315                 sender = cp;
 316                 break;
 317         }
 318     }
 319
 320     if (addr == NULL)
 321         addr = getusername ();
 322     if (user == NULL)
 323         user = (cp = strchr(addr, '.')) ? ++cp : addr;
 324     if ((pw = getpwnam (user)) == NULL)
 325         adios (NULL, "no such local user as %s", user);
 326
 327     if (chdir (pw->pw_dir) == -1)
 328         chdir ("/");
 329     umask (0077);
 330
 331     if (geteuid() == 0) {
 332         setgid (pw->pw_gid);
 333         initgroups (pw->pw_name, pw->pw_gid);
 334         setuid (pw->pw_uid);
 335     }
 336
 337     if (info == NULL)
 338         info = "";
 339
 340     setbuf (stdin, NULL);
 341
 342     /* Record the delivery time */
 343     if ((now = dlocaltimenow ()) == NULL)
 344         adios (NULL, "unable to ascertain local time");
 345     snprintf (ddate, sizeof(ddate), "Delivery-Date: %s\n", dtimenow (0));
 346
 347     /*
 348      * Copy the message to a temporary file
 349      */
 350     if (file) {
 351         int tempfd;
 352
 353         /* getting message from file */
 354         if ((tempfd = open (file, O_RDONLY)) == -1)
 355             adios (file, "unable to open");
 356         if (debug)
 357             debug_printf ("retrieving message from file \"%s\"\n", file);
 358         if ((fd = copy_message (tempfd, tmpfil, 1)) == -1)
 359             adios (NULL, "unable to create temporary file");
 360         close (tempfd);
 361     } else {
 362         /* getting message from stdin */
 363         if (debug)
 364             debug_printf ("retrieving message from stdin\n");
 365         if ((fd = copy_message (fileno (stdin), tmpfil, 1)) == -1)
 366             adios (NULL, "unable to create temporary file");
 367     }
 368
 369     if (debug)
 370         debug_printf ("temporary file=\"%s\"\n", tmpfil);
 371
 372     /* Delete the temp file now or a copy of every single message passed through
 373        slocal will be left in the /tmp directory until deleted manually!  This
 374        unlink() used to be under an 'else' of the 'if (debug)' above, but since
 375        some people like to always run slocal with -debug and log the results,
 376        the /tmp directory would get choked over time.  Of course, now that we
 377        always delete the temp file, the "temporary file=" message above is
 378        somewhat pointless -- someone watching debug output wouldn't have a
 379        chance to 'tail -f' or 'ln' the temp file before it's unlinked.  The best
 380        thing would be to delay this unlink() until later if debug == 1, but I'll
 381        leave that for someone who cares about the temp-file-accessing
 382        functionality (they'll have to watch out for cases where we adios()). */
 383     unlink (tmpfil);
 384
 385     if (!(fp = fdopen (fd, "r+")))
 386         adios (NULL, "unable to access temporary file");
 387
 388     /*
 389      * If no sender given, extract it
 390      * from envelope information.  */
 391     if (sender == NULL)
 392         get_sender (envelope, &sender);
 393
 394     if (mbox == NULL) {
 395         snprintf (mailbox, sizeof(mailbox), "%s/%s",
 396                 mmdfldir[0] ? mmdfldir : pw->pw_dir,
 397                 mmdflfil[0] ? mmdflfil : pw->pw_name);
 398         mbox = mailbox;
 399     }
 400     if (home == NULL)
 401         home = pw->pw_dir;
 402
 403     if (debug) {
 404         debug_printf ("addr=\"%s\"\n", trim(addr));
 405         debug_printf ("user=\"%s\"\n", trim(user));
 406         debug_printf ("info=\"%s\"\n", trim(info));
 407         debug_printf ("sender=\"%s\"\n", trim(sender));
 408         debug_printf ("envelope=\"%s\"\n", envelope ? trim(envelope) : "");
 409         debug_printf ("mbox=\"%s\"\n", trim(mbox));
 410         debug_printf ("home=\"%s\"\n", trim(home));
 411         debug_printf ("ddate=\"%s\"\n", trim(ddate));
 412         debug_printf ("now=%02d:%02d\n\n", now->tw_hour, now->tw_min);
 413     }
 414
 415     /* deliver the message */
 416     status = localmail (fd, mdlvr);
 417
 418     return done (status != -1 ? RCV_MOK : RCV_MBX);
 419 }
 420
 421
 422 /*
 423  * Main routine for delivering message.
 424  */
 425
 426 static int
 427 localmail (int fd, char *mdlvr)
 428 {
 429     /* check if this message is a duplicate */
 430     if (suppressdup &&
 431         suppress_duplicates(fd, mdlvr ? mdlvr : ".maildelivery") == DONE)
 432         return 0;
 433
 434     /* delivery according to personal Maildelivery file */
 435     if (usr_delivery (fd, mdlvr ? mdlvr : ".maildelivery", 0) != -1)
 436         return 0;
 437
 438     /* delivery according to global Maildelivery file */
 439     if (usr_delivery (fd, maildelivery, 1) != -1)
 440         return 0;
 441
 442     if (verbose)
 443         verbose_printf ("(delivering to standard mail spool)\n");
 444
 445     /* last resort - deliver to standard mail spool */
 446 #ifdef SLOCAL_MBOX
 447     return usr_file (fd, mbox, MBOX_FORMAT);
 448 #else
 449     return usr_file (fd, mbox, MMDF_FORMAT);
 450 #endif
 451 }
 452
 453
 454 #define matches(a,b) (stringdex (b, a) >= 0)
 455
 456 /*
 457  * Parse the delivery file, and process incoming message.
 458  */
 459
 460 static int
 461 usr_delivery (int fd, char *delivery, int su)
 462 {
 463     int i, accept, status=1, won, vecp, next;
 464     char *field, *pattern, *action, *result, *string;
 465     char buffer[BUFSIZ], tmpbuf[BUFSIZ];
 466     char *cp, *vec[NVEC];
 467     struct stat st;
 468     struct pair *p;
 469     FILE *fp;
 470
 471     /* open the delivery file */
 472     if ((fp = fopen (delivery, "r")) == NULL)
 473         return -1;
 474
 475     /* check if delivery file has bad ownership or permissions */
 476     if (fstat (fileno (fp), &st) == -1
 477             || (st.st_uid != 0 && (su || st.st_uid != pw->pw_uid))
 478             || st.st_mode & (S_IWGRP|S_IWOTH)) {
 479         if (verbose) {
 480             verbose_printf ("WARNING: %s has bad ownership/modes (su=%d,uid=%d,owner=%d,mode=0%o)\n",
 481                     delivery, su, (int) pw->pw_uid, (int) st.st_uid, (int) st.st_mode);
 482         }
 483         return -1;
 484     }
 485
 486     won = 0;
 487     next = 1;
 488
 489     /* read and process delivery file */
 490     while (fgets (buffer, sizeof(buffer), fp)) {
 491         /* skip comments and empty lines */
 492         if (*buffer == '#' || *buffer == '\n')
 493             continue;
 494
 495         /* zap trailing newline */
 496         if ((cp = strchr(buffer, '\n')))
 497             *cp = 0;
 498
 499         /* split buffer into fields */
 500         vecp = split (buffer, vec);
 501
 502         /* check for too few fields */
 503         if (vecp < 5) {
 504             if (debug)
 505                 debug_printf ("WARNING: entry with only %d fields, skipping.\n", vecp);
 506             continue;
 507         }
 508
 509         if (debug) {
 510             for (i = 0; vec[i]; i++)
 511                 debug_printf ("vec[%d]: \"%s\"\n", i, trim(vec[i]));
 512         }
 513
 514         field   = vec[0];
 515         pattern = vec[1];
 516         action  = vec[2];
 517         result  = vec[3];
 518         string  = vec[4];
 519
 520         /* find out how to perform the action */
 521         switch (result[0]) {
 522             case 'N':
 523             case 'n':
 524                 /*
 525                  * If previous condition failed, don't
 526                  * do this - else fall through
 527                  */
 528                 if (!next)
 529                     continue;   /* else fall */
 530
 531             case '?':
 532                 /*
 533                  * If already delivered, skip this action.  Else
 534                  * consider delivered if action is successful.
 535                  */
 536                 if (won)
 537                     continue;   /* else fall */
 538
 539             case 'A':
 540             case 'a':
 541                 /*
 542                  * Take action, and consider delivered if
 543                  * action is successful.
 544                  */
 545                 accept = 1;
 546                 break;
 547
 548             case 'R':
 549             case 'r':
 550             default:
 551                 /*
 552                  * Take action, but don't consider delivered, even
 553                  * if action is successful
 554                  */
 555                 accept = 0;
 556                 break;
 557         }
 558
 559         if (vecp > 5) {
 560             if (!strcasecmp (vec[5], "select")) {
 561                 if (logged_in () != -1)
 562                     continue;
 563                 if (vecp > 7 && timely (vec[6], vec[7]) == -1)
 564                     continue;
 565             }
 566         }
 567
 568         /* check if the field matches */
 569         switch (*field) {
 570             case '*':
 571             /* always matches */
 572                 break;
 573
 574             case 'd':
 575             /*
 576              * "default" matches only if the message hasn't
 577              * been delivered yet.
 578              */
 579                 if (!strcasecmp (field, "default")) {
 580                     if (won)
 581                         continue;
 582                     break;
 583                 }               /* else fall */
 584
 585             default:
 586                 /* parse message and build lookup table */
 587                 if (!parsed && parse (fd) == -1) {
 588                     fclose (fp);
 589                     return -1;
 590                 }
 591                 /*
 592                  * find header field in lookup table, and
 593                  * see if the pattern matches.
 594                  */
 595                 if ((p = lookup (hdrs, field)) && (p->p_value != NULL)
 596                         && matches (p->p_value, pattern)) {
 597                     next = 1;
 598                 } else {
 599                     next = 0;
 600                     continue;
 601                 }
 602                 break;
 603         }
 604
 605         /* find out the action to perform */
 606         switch (*action) {
 607             case 'q':
 608                 /* deliver to quoted pipe */
 609                 if (strcasecmp (action, "qpipe"))
 610                     continue;   /* else fall */
 611             case '^':
 612                 expand (tmpbuf, string, fd);
 613                 if (split (tmpbuf, vec) < 1)
 614                     continue;
 615                 status = usr_pipe (fd, tmpbuf, vec[0], vec, 0);
 616                 break;
 617
 618             case 'p':
 619                 /* deliver to pipe */
 620                 if (strcasecmp (action, "pipe"))
 621                     continue;   /* else fall */
 622             case '|':
 623                 vec[2] = "sh";
 624                 vec[3] = "-c";
 625                 expand (tmpbuf, string, fd);
 626                 vec[4] = tmpbuf;
 627                 vec[5] = NULL;
 628                 status = usr_pipe (fd, tmpbuf, "/bin/sh", vec + 2, 0);
 629                 break;
 630
 631             case 'f':
 632                 /* mbox format */
 633                 if (!strcasecmp (action, "file")) {
 634                     status = usr_file (fd, string, MBOX_FORMAT);
 635                     break;
 636                 }
 637                 /* deliver to nmh folder */
 638                 else if (strcasecmp (action, "folder"))
 639                     continue;   /* else fall */
 640             case '+':
 641                 status = usr_folder (fd, string);
 642                 break;
 643
 644             case 'm':
 645                 /* mmdf format */
 646                 if (!strcasecmp (action, "mmdf")) {
 647                     status = usr_file (fd, string, MMDF_FORMAT);
 648                     break;
 649                 }
 650                 /* mbox format */
 651                 else if (strcasecmp (action, "mbox"))
 652                     continue;   /* else fall */
 653
 654             case '>':
 655                 /* mbox format */
 656                 status = usr_file (fd, string, MBOX_FORMAT);
 657                 break;
 658
 659             case 'd':
 660                 /* ignore message */
 661                 if (strcasecmp (action, "destroy"))
 662                     continue;
 663                 status = 0;
 664                 break;
 665         }
 666
 667         if (status) next = 0;   /* action failed, mark for 'N' result */
 668
 669         if (accept && status == 0)
 670             won++;
 671     }
 672
 673     fclose (fp);
 674     return (won ? 0 : -1);
 675 }
 676
 677
 678 #define QUOTE   '\\'
 679
 680 /*
 681  * Split buffer into fields (delimited by whitespace or
 682  * comma's).  Return the number of fields found.
 683  */
 684
 685 static int
 686 split (char *cp, char **vec)
 687 {
 688     int i;
 689     char *s;
 690
 691     s = cp;
 692
 693     /* split into a maximum of NVEC fields */
 694     for (i = 0; i <= NVEC;) {
 695         vec[i] = NULL;
 696
 697         /* zap any whitespace and comma's */
 698         while (isspace (*s) || *s == ',')
 699             *s++ = 0;
 700
 701         /* end of buffer, time to leave */
 702         if (*s == 0)
 703             break;
 704
 705         /* get double quote text as a single field */
 706         if (*s == '"') {
 707             for (vec[i++] = ++s; *s && *s != '"'; s++) {
 708                 /*
 709                  * Check for escaped double quote.  We need
 710                  * to shift the string to remove slash.
 711                  */
 712                 if (*s == QUOTE) {
 713                     if (*++s == '"')
 714                         strcpy (s - 1, s);
 715                     s--;
 716                 }
 717             }
 718             if (*s == '"')      /* zap trailing double quote */
 719                 *s++ = 0;
 720             continue;
 721         }
 722
 723         if (*s == QUOTE && *++s != '"')
 724             s--;
 725         vec[i++] = s++;
 726
 727         /* move forward to next field delimiter */
 728         while (*s && !isspace (*s) && *s != ',')
 729             s++;
 730     }
 731     vec[i] = NULL;
 732
 733     return i;
 734 }
 735
 736
 737 /*
 738  * Parse the headers of a message, and build the
 739  * lookup table for matching fields and patterns.
 740  */
 741
 742 static int
 743 parse (int fd)
 744 {
 745     int i, state;
 746     int fd1;
 747     char *cp, *dp, *lp;
 748     char name[NAMESZ], field[BUFSIZ];
 749     struct pair *p, *q;
 750     FILE  *in;
 751
 752     if (parsed++)
 753         return 0;
 754
 755     /* get a new FILE pointer to message */
 756     if ((fd1 = dup (fd)) == -1)
 757         return -1;
 758     if ((in = fdopen (fd1, "r")) == NULL) {
 759         close (fd1);
 760         return -1;
 761     }
 762     rewind (in);
 763
 764     /* add special entries to lookup table */
 765     if ((p = lookup (hdrs, "source")))
 766         p->p_value = getcpy (sender);
 767     if ((p = lookup (hdrs, "addr")))
 768         p->p_value = getcpy (addr);
 769
 770     /*
 771      * Scan the headers of the message and build
 772      * a lookup table.
 773      */
 774     for (i = 0, state = FLD;;) {
 775         switch (state = m_getfld (state, name, field, sizeof(field), in)) {
 776             case FLD:
 777             case FLDEOF:
 778             case FLDPLUS:
 779                 lp = add (field, NULL);
 780                 while (state == FLDPLUS) {
 781                     state = m_getfld (state, name, field, sizeof(field), in);
 782                     lp = add (field, lp);
 783                 }
 784                 for (p = hdrs; p->p_name; p++) {
 785                     if (!strcasecmp (p->p_name, name)) {
 786                         if (!(p->p_flags & P_HID)) {
 787                             if ((cp = p->p_value)) {
 788                                 if (p->p_flags & P_ADR) {
 789                                     dp = cp + strlen (cp) - 1;
 790                                     if (*dp == '\n')
 791                                         *dp = 0;
 792                                     cp = add (",\n\t", cp);
 793                                 } else {
 794                                     cp = add ("\t", cp);
 795                                 }
 796                             }
 797                             p->p_value = add (lp, cp);
 798                         }
 799                         free (lp);
 800                         break;
 801                     }
 802                 }
 803                 if (p->p_name == NULL && i < NVEC) {
 804                     p->p_name = getcpy (name);
 805                     p->p_value = lp;
 806                     p->p_flags = P_NIL;
 807                     p++, i++;
 808                     p->p_name = NULL;
 809                 }
 810                 if (state != FLDEOF)
 811                     continue;
 812                 break;
 813
 814             case BODY:
 815             case BODYEOF:
 816             case FILEEOF:
 817                 break;
 818
 819             case LENERR:
 820             case FMTERR:
 821                 advise (NULL, "format error in message");
 822                 break;
 823
 824             default:
 825                 advise (NULL, "internal error in m_getfld");
 826                 fclose (in);
 827                 return -1;
 828         }
 829         break;
 830     }
 831     fclose (in);
 832
 833     if ((p = lookup (vars, "reply-to"))) {
 834         if ((q = lookup (hdrs, "reply-to")) == NULL || q->p_value == NULL)
 835             q = lookup (hdrs, "from");
 836         p->p_value = getcpy (q ? q->p_value : "");
 837         p->p_flags &= ~P_CHK;
 838         if (debug)
 839             debug_printf ("vars[%d]: name=\"%s\" value=\"%s\"\n",
 840                     p - vars, p->p_name, trim(p->p_value));
 841     }
 842     if (debug) {
 843         for (p = hdrs; p->p_name; p++)
 844             debug_printf ("hdrs[%d]: name=\"%s\" value=\"%s\"\n",
 845                 p - hdrs, p->p_name, p->p_value ? trim(p->p_value) : "");
 846     }
 847
 848     return 0;
 849 }
 850
 851
 852 #define LPAREN  '('
 853 #define RPAREN  ')'
 854
 855 /*
 856  * Expand any builtin variables such as $(sender),
 857  * $(address), etc., in a string.
 858  */
 859
 860 static void
 861 expand (char *s1, char *s2, int fd)
 862 {
 863     char c, *cp;
 864     struct pair *p;
 865
 866     if (!globbed)
 867         glob (fd);
 868
 869     while ((c = *s2++)) {
 870         if (c != '$' || *s2 != LPAREN) {
 871             *s1++ = c;
 872         } else {
 873             for (cp = ++s2; *s2 && *s2 != RPAREN; s2++)
 874                 continue;
 875             if (*s2 != RPAREN) {
 876                 s2 = --cp;
 877                 continue;
 878             }
 879             *s2++ = 0;
 880             if ((p = lookup (vars, cp))) {
 881                 if (!parsed && (p->p_flags & P_CHK))
 882                     parse (fd);
 883
 884                 strcpy (s1, p->p_value);
 885                 s1 += strlen (s1);
 886             }
 887         }
 888     }
 889     *s1 = 0;
 890 }
 891
 892
 893 /*
 894  * Fill in the information missing from the "vars"
 895  * table, which is necessary to expand any builtin
 896  * variables in the string for a "pipe" or "qpipe"
 897  * action.
 898  */
 899
 900 static void
 901 glob (int fd)
 902 {
 903     char buffer[BUFSIZ];
 904     struct stat st;
 905     struct pair *p;
 906
 907     if (globbed++)
 908         return;
 909
 910     if ((p = lookup (vars, "sender")))
 911         p->p_value = getcpy (sender);
 912     if ((p = lookup (vars, "address")))
 913         p->p_value = getcpy (addr);
 914     if ((p = lookup (vars, "size"))) {
 915         snprintf (buffer, sizeof(buffer), "%d",
 916                 fstat (fd, &st) != -1 ? (int) st.st_size : 0);
 917         p->p_value = getcpy (buffer);
 918     }
 919     if ((p = lookup (vars, "info")))
 920         p->p_value = getcpy (info);
 921
 922     if (debug) {
 923         for (p = vars; p->p_name; p++)
 924             debug_printf ("vars[%d]: name=\"%s\" value=\"%s\"\n",
 925                     p - vars, p->p_name, trim(p->p_value));
 926     }
 927 }
 928
 929
 930 /*
 931  * Find a matching name in a lookup table.  If found,
 932  * return the "pairs" entry, else return NULL.
 933  */
 934
 935 static struct pair *
 936 lookup (struct pair *pairs, char *key)
 937 {
 938     for (; pairs->p_name; pairs++)
 939         if (!strcasecmp (pairs->p_name, key))
 940             return pairs;
 941
 942     return NULL;
 943 }
 944
 945
 946 /*
 947  * Check utmp(x) file to see if user is currently
 948  * logged in.
 949  */
 950
 951 #ifdef HAVE_GETUTENT
 952 static int
 953 logged_in (void)
 954 {
 955     struct utmp * utp;
 956
 957     if (utmped)
 958         return utmped;
 959
 960     setutent();
 961
 962     while ((utp = getutent()) != NULL) {
 963         if (utp->ut_type == USER_PROCESS
 964                 && utp->ut_user[0] != 0
 965                 && strncmp (user, utp->ut_user, sizeof(utp->ut_user)) == 0) {
 966             if (debug)
 967                 continue;
 968             endutent();
 969             return (utmped = DONE);
 970         }
 971     }
 972
 973     endutent();
 974     return (utmped = NOTOK);
 975 }
 976 #else
 977 static int
 978 logged_in (void)
 979 {
 980     struct utmp ut;
 981     FILE *uf;
 982
 983     if (utmped)
 984         return utmped;
 985
 986     if ((uf = fopen (UTMP_FILE, "r")) == NULL)
 987         return NOTOK;
 988
 989     while (fread ((char *) &ut, sizeof(ut), 1, uf) == 1) {
 990         if (ut.ut_name[0] != 0
 991             && strncmp (user, ut.ut_name, sizeof(ut.ut_name)) == 0) {
 992             if (debug)
 993                 continue;
 994             fclose (uf);
 995             return (utmped = DONE);
 996         }
 997     }
 998
 999     fclose (uf);
1000     return (utmped = NOTOK);
1001 }
1002 #endif
1003
1004 #define check(t,a,b)            if (t < a || t > b) return -1
1005 #define cmpar(h1,m1,h2,m2)      if (h1 < h2 || (h1 == h2 && m1 < m2)) return 0
1006
1007 static int
1008 timely (char *t1, char *t2)
1009 {
1010     int t1hours, t1mins, t2hours, t2mins;
1011
1012     if (sscanf (t1, "%d:%d", &t1hours, &t1mins) != 2)
1013         return -1;
1014     check (t1hours, 0, 23);
1015     check (t1mins, 0, 59);
1016
1017     if (sscanf (t2, "%d:%d", &t2hours, &t2mins) != 2)
1018         return -1;
1019     check (t2hours, 0, 23);
1020     check (t2mins, 0, 59);
1021
1022     cmpar (now->tw_hour, now->tw_min, t1hours, t1mins);
1023     cmpar (t2hours, t2mins, now->tw_hour, now->tw_min);
1024
1025     return -1;
1026 }
1027
1028
1029 /*
1030  * Deliver message by appending to a file.
1031  */
1032
1033 static int
1034 usr_file (int fd, char *mailbox, int mbx_style)
1035 {
1036     int md, mapping;
1037
1038     if (verbose)
1039         verbose_printf ("delivering to file \"%s\"", mailbox);
1040
1041     if (mbx_style == MBOX_FORMAT) {
1042         if (verbose)
1043             verbose_printf (" (mbox style)");
1044         mapping = 0;
1045     } else {
1046         if (verbose)
1047             verbose_printf (" (mmdf style)");
1048         mapping = 1;
1049     }
1050
1051     /* open and lock the file */
1052     if ((md = mbx_open (mailbox, mbx_style, pw->pw_uid, pw->pw_gid, m_gmprot())) == -1) {
1053         if (verbose)
1054             adorn ("", "unable to open:");
1055         return -1;
1056     }
1057
1058     lseek (fd, (off_t) 0, SEEK_SET);
1059
1060     /* append message to file */
1061     if (mbx_copy (mailbox, mbx_style, md, fd, mapping, NULL, verbose) == -1) {
1062         if (verbose)
1063             adorn ("", "error writing to:");
1064         return -1;
1065     }
1066
1067     /* close and unlock file */
1068     mbx_close (mailbox, md);
1069
1070     if (verbose)
1071         verbose_printf (", success.\n");
1072     return 0;
1073 }
1074
1075
1076 /*
1077  * Deliver message to a nmh folder.
1078  */
1079
1080 static int
1081 usr_folder (int fd, char *string)
1082 {
1083     int status;
1084     char folder[BUFSIZ], *vec[3];
1085
1086     /* get folder name ready */
1087     if (*string == '+')
1088         strncpy(folder, string, sizeof(folder));
1089     else
1090         snprintf(folder, sizeof(folder), "+%s", string);
1091
1092     if (verbose)
1093         verbose_printf ("delivering to folder \"%s\"", folder + 1);
1094
1095     vec[0] = "rcvstore";
1096     vec[1] = folder;
1097     vec[2] = NULL;
1098
1099     /* use rcvstore to put message in folder */
1100     status = usr_pipe (fd, "rcvstore", rcvstoreproc, vec, 1);
1101
1102 #if 0
1103     /*
1104      * Currently, verbose status messages are handled by usr_pipe().
1105      */
1106     if (verbose) {
1107         if (status == 0)
1108             verbose_printf (", success.\n");
1109         else
1110             verbose_printf (", failed.\n");
1111     }
1112 #endif
1113
1114     return status;
1115 }
1116
1117 /*
1118  * Deliver message to a process.
1119  */
1120
1121 static int
1122 usr_pipe (int fd, char *cmd, char *pgm, char **vec, int suppress)
1123 {
1124     pid_t child_id;
1125     int i, bytes, seconds, status;
1126     struct stat st;
1127
1128     if (verbose && !suppress)
1129         verbose_printf ("delivering to pipe \"%s\"", cmd);
1130
1131     lseek (fd, (off_t) 0, SEEK_SET);
1132
1133     for (i = 0; (child_id = fork()) == -1 && i < 5; i++)
1134         sleep (5);
1135
1136     switch (child_id) {
1137         case -1:
1138             /* fork error */
1139             if (verbose)
1140                 adorn ("fork", "unable to");
1141             return -1;
1142
1143         case 0:
1144             /* child process */
1145             if (fd != 0)
1146                 dup2 (fd, 0);
1147             freopen ("/dev/null", "w", stdout);
1148             freopen ("/dev/null", "w", stderr);
1149             if (fd != 3)
1150                 dup2 (fd, 3);
1151             closefds (4);
1152
1153 #ifdef TIOCNOTTY
1154             if ((fd = open ("/dev/tty", O_RDWR)) != -1) {
1155                 ioctl (fd, TIOCNOTTY, NULL);
1156                 close (fd);
1157             }
1158 #endif /* TIOCNOTTY */
1159
1160             setpgid ((pid_t) 0, getpid ());     /* put in own process group */
1161
1162             *environ = NULL;
1163             m_putenv ("USER", pw->pw_name);
1164             m_putenv ("HOME", pw->pw_dir);
1165             m_putenv ("SHELL", pw->pw_shell);
1166
1167             execvp (pgm, vec);
1168             _exit (-1);
1169
1170         default:
1171             /* parent process */
1172             if (!setjmp (myctx)) {
1173                 SIGNAL (SIGALRM, alrmser);
1174                 bytes = fstat (fd, &st) != -1 ? (int) st.st_size : 100;
1175
1176                 /* amount of time to wait depends on message size */
1177                 if (bytes <= 100) {
1178                     /* give at least 5 minutes */
1179                     seconds = 300;
1180                 } else if (bytes >= 90000) {
1181                     /* a half hour is long enough */
1182                     seconds = 1800;
1183                 } else {
1184                     seconds = (bytes / 60) + 300;
1185                 }
1186                 alarm ((unsigned int) seconds);
1187                 status = pidwait (child_id, 0);
1188                 alarm (0);
1189
1190 #ifdef MMDFI
1191                 if (status == RP_MOK || status == RP_OK)
1192                     status = 0;
1193 #endif
1194                 if (verbose) {
1195                     if (status == 0)
1196                         verbose_printf (", success.\n");
1197                     else
1198                         if ((status & 0xff00) == 0xff00)
1199                             verbose_printf (", system error\n");
1200                         else
1201                             pidstatus (status, stdout, ", failed");
1202                 }
1203                 return (status == 0 ? 0 : -1);
1204             } else {
1205                 /*
1206                  * Ruthlessly kill the child and anything
1207                  * else in its process group.
1208                  */
1209                 KILLPG(child_id, SIGKILL);
1210                 if (verbose)
1211                     verbose_printf (", timed-out; terminated\n");
1212                 return -1;
1213             }
1214     }
1215 }
1216
1217
1218 static RETSIGTYPE
1219 alrmser (int i)
1220 {
1221 #ifndef RELIABLE_SIGNALS
1222     SIGNAL (SIGALRM, alrmser);
1223 #endif
1224
1225     longjmp (myctx, DONE);
1226 }
1227
1228
1229 /*
1230  * Get the `sender' from the envelope
1231  * information ("From " line).
1232  */
1233
1234 static void
1235 get_sender (char *envelope, char **sender)
1236 {
1237     int i;
1238     char *cp;
1239     char buffer[BUFSIZ];
1240
1241     if (envelope == NULL) {
1242         *sender = getcpy ("");
1243         return;
1244     }
1245
1246     i = strlen ("From ");
1247     strncpy (buffer, envelope + i, sizeof(buffer));
1248     if ((cp = strchr(buffer, '\n'))) {
1249         *cp = 0;
1250         cp -= 24;
1251         if (cp < buffer)
1252             cp = buffer;
1253     } else {
1254         cp = buffer;
1255     }
1256     *cp = 0;
1257
1258     for (cp = buffer + strlen (buffer) - 1; cp >= buffer; cp--)
1259         if (isspace (*cp))
1260             *cp = 0;
1261         else
1262             break;
1263     *sender = getcpy (buffer);
1264 }
1265
1266
1267 /*
1268  * Copy message into a temporary file.
1269  * While copying, it will do some header processing
1270  * including the extraction of the envelope information.
1271  */
1272
1273 static int
1274 copy_message (int qd, char *tmpfil, int fold)
1275 {
1276     int i, first = 1, fd1, fd2;
1277     char buffer[BUFSIZ];
1278     FILE *qfp, *ffp;
1279
1280     strcpy (tmpfil, m_tmpfil (invo_name));
1281
1282     /* open temporary file to put message in */
1283     if ((fd1 = open (tmpfil, O_RDWR | O_CREAT | O_TRUNC, 0600)) == -1)
1284         return -1;
1285
1286     if (!fold) {
1287         while ((i = read (qd, buffer, sizeof(buffer))) > 0)
1288             if (write (fd1, buffer, i) != i) {
1289 you_lose:
1290                 close (fd1);
1291                 unlink (tmpfil);
1292                 return -1;
1293             }
1294         if (i == -1)
1295             goto you_lose;
1296         lseek (fd1, (off_t) 0, SEEK_SET);
1297         return fd1;
1298     }
1299
1300     /* dup the fd for incoming message */
1301     if ((fd2 = dup (qd)) == -1) {
1302         close (fd1);
1303         return -1;
1304     }
1305
1306     /* now create a FILE pointer for it */
1307     if ((qfp = fdopen (fd2, "r")) == NULL) {
1308         close (fd1);
1309         close (fd2);
1310         return -1;
1311     }
1312
1313     /* dup the fd for temporary file */
1314     if ((fd2 = dup (fd1)) == -1) {
1315         close (fd1);
1316         fclose (qfp);
1317         return -1;
1318     }
1319
1320     /* now create a FILE pointer for it */
1321     if ((ffp = fdopen (fd2, "r+")) == NULL) {
1322         close (fd1);
1323         close (fd2);
1324         fclose (qfp);
1325         return -1;
1326     }
1327
1328     /*
1329      * copy message into temporary file
1330      * and massage the headers.  Save
1331      * a copy of the "From " line for later.
1332      */
1333     i = strlen ("From ");
1334     while (fgets (buffer, sizeof(buffer), qfp)) {
1335         if (first) {
1336             first = 0;
1337             if (!strncmp (buffer, "From ", i)) {
1338 #ifdef RPATHS
1339                 char *fp, *cp, *hp, *ep;
1340 #endif
1341                 /* get copy of envelope information ("From " line) */
1342                 envelope = getcpy (buffer);
1343
1344 #if 0
1345                 /* First go ahead and put "From " line in message */
1346                 fputs (buffer, ffp);
1347                 if (ferror (ffp))
1348                     goto fputs_error;
1349 #endif
1350
1351 #ifdef RPATHS
1352                 /*
1353                  * Now create a "Return-Path:" line
1354                  * from the "From " line.
1355                  */
1356                 hp = cp = strchr(fp = envelope + i, ' ');
1357                 while ((hp = strchr(++hp, 'r')))
1358                     if (uprf (hp, "remote from")) {
1359                         hp = strrchr(hp, ' ');
1360                         break;
1361                     }
1362                 if (hp) {
1363                     /* return path for UUCP style addressing */
1364                     ep = strchr(++hp, '\n');
1365                     snprintf (buffer, sizeof(buffer), "Return-Path: %.*s!%.*s\n",
1366                         ep - hp, hp, cp - fp, fp);
1367                 } else {
1368                     /* return path for standard domain addressing */
1369                     snprintf (buffer, sizeof(buffer), "Return-Path: %.*s\n",
1370                         cp - fp, fp);
1371                 }
1372
1373                 /* Add Return-Path header to message */
1374                 fputs (buffer, ffp);
1375                 if (ferror (ffp))
1376                     goto fputs_error;
1377 #endif
1378                 /* Put the delivery date in message */
1379                 fputs (ddate, ffp);
1380                 if (ferror (ffp))
1381                     goto fputs_error;
1382
1383                 continue;
1384             }
1385         }
1386
1387         fputs (buffer, ffp);
1388         if (ferror (ffp))
1389             goto fputs_error;
1390     }
1391
1392     fclose (ffp);
1393     if (ferror (qfp)) {
1394         close (fd1);
1395         fclose (qfp);
1396         return -1;
1397     }
1398     fclose (qfp);
1399     lseek (fd1, (off_t) 0, SEEK_SET);
1400     return fd1;
1401
1402
1403 fputs_error:
1404     close (fd1);
1405     fclose (ffp);
1406     fclose (qfp);
1407     return -1;
1408 }
1409
1410 /*
1411  * Trim strings for pretty printing of debugging output
1412  */
1413
1414 static char *
1415 trim (char *cp)
1416 {
1417     char buffer[BUFSIZ*4];
1418     char *bp, *sp;
1419
1420     if (cp == NULL)
1421         return NULL;
1422
1423     /* copy string into temp buffer */
1424     strncpy (buffer, cp, sizeof(buffer));
1425     bp = buffer;
1426
1427     /* skip over leading whitespace */
1428     while (isspace(*bp))
1429         bp++;
1430
1431     /* start at the end and zap trailing whitespace */
1432     for (sp = bp + strlen(bp) - 1; sp >= bp; sp--) {
1433         if (isspace(*sp))
1434             *sp = 0;
1435         else
1436             break;
1437     }
1438
1439     /* replace remaining whitespace with spaces */
1440     for (sp = bp; *sp; sp++)
1441         if (isspace(*sp))
1442             *sp = ' ';
1443
1444     /* now return a copy */
1445     return getcpy(bp);
1446 }
1447
1448 /*
1449  * Function for printing `verbose' messages.
1450  */
1451
1452 static void
1453 verbose_printf (char *fmt, ...)
1454 {
1455     va_list ap;
1456
1457     va_start(ap, fmt);
1458     vfprintf (stdout, fmt, ap);
1459     va_end(ap);
1460
1461     fflush (stdout);    /* now flush output */
1462 }
1463
1464
1465 /*
1466  * Function for printing `verbose' delivery
1467  * error messages.
1468  */
1469
1470 static void
1471 adorn (char *what, char *fmt, ...)
1472 {
1473     va_list ap;
1474     int eindex;
1475     char *s;
1476
1477     eindex = errno;     /* save the errno */
1478     fprintf (stdout, ", ");
1479
1480     va_start(ap, fmt);
1481     vfprintf (stdout, fmt, ap);
1482     va_end(ap);
1483
1484     if (what) {
1485         if (*what)
1486             fprintf (stdout, " %s: ", what);
1487         if ((s = strerror (eindex)))
1488             fprintf (stdout, "%s", s);
1489         else
1490             fprintf (stdout, "Error %d", eindex);
1491     }
1492
1493     fputc ('\n', stdout);
1494     fflush (stdout);
1495 }
1496
1497
1498 /*
1499  * Function for printing `debug' messages.
1500  */
1501
1502 static void
1503 debug_printf (char *fmt, ...)
1504 {
1505     va_list ap;
1506
1507     va_start(ap, fmt);
1508     vfprintf (stderr, fmt, ap);
1509     va_end(ap);
1510 }
1511
1512
1513 /*
1514  * Check ndbm/db file(s) to see if the Message-Id of this
1515  * message matches the Message-Id of a previous message,
1516  * so we can discard it.  If it doesn't match, we add the
1517  * Message-Id of this message to the ndbm/db file.
1518  */
1519 static int
1520 suppress_duplicates (int fd, char *file)
1521 {
1522     int fd1, lockfd, state, result;
1523     char *cp, buf[BUFSIZ], name[NAMESZ];
1524     datum key, value;
1525     DBM *db;
1526     FILE *in;
1527
1528     if ((fd1 = dup (fd)) == -1)
1529         return -1;
1530     if (!(in = fdopen (fd1, "r"))) {
1531         close (fd1);
1532         return -1;
1533     }
1534     rewind (in);
1535
1536     for (state = FLD;;) {
1537         state = m_getfld (state, name, buf, sizeof(buf), in);
1538         switch (state) {
1539             case FLD:
1540             case FLDPLUS:
1541             case FLDEOF:
1542                 /* Search for the message ID */
1543                 if (strcasecmp (name, "Message-ID")) {
1544                     while (state == FLDPLUS)
1545                         state = m_getfld (state, name, buf, sizeof(buf), in);
1546                     continue;
1547                 }
1548
1549                 cp = add (buf, NULL);
1550                 while (state == FLDPLUS) {
1551                     state = m_getfld (state, name, buf, sizeof(buf), in);
1552                     cp = add (buf, cp);
1553                 }
1554                 key.dptr = trimcpy (cp);
1555                 key.dsize = strlen (key.dptr) + 1;
1556                 free (cp);
1557                 cp = key.dptr;
1558
1559                 if (!(db = dbm_open (file, O_RDWR | O_CREAT, 0600))) {
1560                     advise (file, "unable to perform dbm_open on");
1561                     free (cp);
1562                     fclose (in);
1563                     return -1;
1564                 }
1565                 /*
1566                  * Since it is difficult to portable lock a ndbm file,
1567                  * we will open and lock the Maildelivery file instead.
1568                  * This will fail if your Maildelivery file doesn't
1569                  * exist.
1570                  */
1571                 if ((lockfd = lkopen(file, O_RDWR, 0)) == -1) {
1572                     advise (file, "unable to perform file locking on");
1573                     free (cp);
1574                     fclose (in);
1575                     return -1;
1576                 }
1577                 value = dbm_fetch (db, key);
1578                 if (value.dptr) {
1579                     if (verbose)
1580                         verbose_printf ("Message-ID: %s\n            already received on %s",
1581                                  cp, value.dptr);
1582                     result = DONE;
1583                 } else {
1584                     value.dptr  = ddate + sizeof("Delivery-Date:");
1585                     value.dsize = strlen(value.dptr) + 1;
1586                     if (dbm_store (db, key, value, DBM_INSERT))
1587                         advise (file, "possibly corrupt file");
1588                     result = 0;
1589                 }
1590
1591                 dbm_close (db);
1592                 lkclose(lockfd, file);
1593                 free (cp);
1594                 fclose (in);
1595                 return result;
1596                 break;
1597
1598            case BODY:
1599            case BODYEOF:
1600            case FILEEOF:
1601                 break;
1602
1603            case LENERR:
1604            case FMTERR:
1605            default:
1606                 break;
1607         }
1608
1609         break;
1610     }
1611
1612     fclose (in);
1613     return 0;
1614 }