2 ** slocal.c -- asynchronously filter and deliver new mail
4 ** This code is Copyright (c) 2002, by the authors of nmh. See the
5 ** COPYRIGHT file in the root directory of the nmh distribution for
6 ** complete copyright information.
10 ** Under sendmail, users should add the line
12 ** "| /usr/local/nmh/lib/slocal"
14 ** to their $HOME/.forward file.
18 /* Changed to use getutent() and friends. Assumes that when getutent() exists,
19 ** a number of other things also exist. Please check.
20 ** Ruud de Rooij <ruud@ruud.org> Sun, 28 May 2000 17:28:55 +0200
24 #include <h/dropsbr.h>
25 #include <h/rcvmail.h>
26 #include <h/signals.h>
33 #include <sys/ioctl.h>
36 #ifdef INITGROUPS_HEADER
37 #include INITGROUPS_HEADER
40 ** On AIX 4.1, initgroups() is defined and even documented (giving the
41 ** parameter types as char* and int), but doesn't have a prototype in any
42 ** of the system header files. AIX 4.3, SunOS 4.1.3, and ULTRIX 4.2A have
45 extern int initgroups(char*, int);
49 ** This define is needed for Berkeley db v2 and above to
50 ** make the header file expose the 'historical' ndbm APIs.
51 ** We define it unconditionally because this is simple and
54 #define DB_DBM_HSEARCH 1
64 # define UTMP_FILE _PATH_UTMP
66 # define UTMP_FILE "/etc/utmp"
71 static struct swit switches[] = {
73 { "addr address", 0 },
79 { "sender address", 0 },
81 { "mailbox file", 0 },
83 { "home directory", -4 },
87 { "maildelivery file", 0 },
92 #define SUPPRESSDUP 10
94 #define NSUPPRESSDUP 11
95 { "nosuppressdup", 0 },
105 static int globbed = 0; /* have we built "vars" table yet? */
106 static int parsed = 0; /* have we built header field table yet */
107 static int utmped = 0; /* have we scanned umtp(x) file yet */
108 static int suppressdup = 0; /* are we suppressing duplicate messages? */
110 static int verbose = 0;
111 static int debug = 0;
113 static char *addr = NULL;
114 static char *user = NULL;
115 static char *info = NULL;
116 static char *file = NULL;
117 static char *sender = NULL;
118 static char *envelope = NULL; /* envelope information ("From " line) */
119 static char *mbox = NULL;
120 static char *home = NULL;
122 static struct passwd *pw; /* passwd file entry */
124 static char ddate[BUFSIZ]; /* record the delivery date */
127 static jmp_buf myctx;
129 /* flags for pair->p_flags */
131 #define P_ADR 0x01 /* field is address */
132 #define P_HID 0x02 /* special (fake) field */
144 ** Lookup table for matching fields and patterns
145 ** in messages. The rest of the table is added
146 ** when the message is parsed.
148 static struct pair hdrs[NVEC + 1] = {
149 { "source", NULL, P_HID },
150 { "addr", NULL, P_HID },
151 { "Return-Path", NULL, P_ADR },
152 { "Reply-To", NULL, P_ADR },
153 { "From", NULL, P_ADR },
154 { "Sender", NULL, P_ADR },
155 { "To", NULL, P_ADR },
156 { "cc", NULL, P_ADR },
157 { "Resent-Reply-To", NULL, P_ADR },
158 { "Resent-From", NULL, P_ADR },
159 { "Resent-Sender", NULL, P_ADR },
160 { "Resent-To", NULL, P_ADR },
161 { "Resent-cc", NULL, P_ADR },
166 ** The list of builtin variables to expand in a string
167 ** before it is executed by the "pipe" or "qpipe" action.
169 static struct pair vars[] = {
170 { "sender", NULL, P_NIL },
171 { "address", NULL, P_NIL },
172 { "size", NULL, P_NIL },
173 { "reply-to", NULL, P_CHK },
174 { "info", NULL, P_NIL },
178 extern char **environ;
183 static int localmail(int, char *);
184 static int usr_delivery(int, char *, int);
185 static int split(char *, char **);
186 static int parse(int);
187 static void expand(char *, char *, int);
188 static void glob(int);
189 static struct pair *lookup(struct pair *, char *);
190 static int logged_in(void);
191 static int timely(char *, char *);
192 static int usr_file(int, char *, int);
193 static int usr_pipe(int, char *, char *, char **, int);
194 static int usr_folder(int, char *);
195 static RETSIGTYPE alrmser(int);
196 static void get_sender(char *, char **);
197 static int copy_message(int, char *, int);
198 static void verbose_printf(char *fmt, ...);
199 static void adorn(char *, char *, ...);
200 static void debug_printf(char *fmt, ...);
201 static int suppress_duplicates(int, char *);
202 static char *trim(char *);
206 main(int argc, char **argv)
210 char *cp, *mdlvr = NULL, buf[BUFSIZ];
211 char mailbox[BUFSIZ], tmpfil[BUFSIZ];
212 char **argp, **arguments;
215 setlocale(LC_ALL, "");
217 invo_name = r1bindex(*argv, '/');
219 /* foil search of user profile/context */
220 if (context_foil(NULL) == -1)
224 arguments = getarguments(invo_name, argc, argv, 0);
227 /* Parse arguments */
228 while ((cp = *argp++)) {
230 switch (smatch(++cp, switches)) {
232 ambigsw(cp, switches);
235 adios(NULL, "-%s unknown", cp);
238 snprintf(buf, sizeof(buf), "%s [switches] [address info sender]", invo_name);
239 print_help(buf, switches, 0);
242 print_version(invo_name);
246 if (!(addr = *argp++))
247 /* allow -xyz arguments */
248 adios(NULL, "missing argument to %s", argp[-2]);
251 if (!(info = *argp++))
252 /* allow -xyz arguments */
253 adios(NULL, "missing argument to %s", argp[-2]);
256 if (!(user = *argp++))
257 /* allow -xyz arguments */
258 adios(NULL, "missing argument to %s", argp[-2]);
261 if (!(file = *argp++) || *file == '-')
262 adios(NULL, "missing argument to %s", argp[-2]);
265 if (!(sender = *argp++))
266 /* allow -xyz arguments */
267 adios(NULL, "missing argument to %s", argp[-2]);
270 if (!(mbox = *argp++) || *mbox == '-')
271 adios(NULL, "missing argument to %s", argp[-2]);
274 if (!(home = *argp++) || *home == '-')
275 adios(NULL, "missing argument to %s", argp[-2]);
279 if (!(cp = *argp++) || *cp == '-')
280 adios(NULL, "missing argument to %s", argp[-2]);
282 adios(NULL, "only one maildelivery file at a time!");
305 switch (argp - (argv + 1)) {
321 addr = getusername();
323 user = (cp = strchr(addr, '.')) ? ++cp : addr;
324 if ((pw = getpwnam(user)) == NULL)
325 adios(NULL, "no such local user as %s", user);
327 if (chdir(pw->pw_dir) == -1)
331 if (geteuid() == 0) {
333 initgroups(pw->pw_name, pw->pw_gid);
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));
348 ** Copy the message to a temporary file
353 /* getting message from file */
354 if ((tempfd = open(file, O_RDONLY)) == -1)
355 adios(file, "unable to open");
357 debug_printf("retrieving message from file \"%s\"\n",
359 if ((fd = copy_message(tempfd, tmpfil, 1)) == -1)
360 adios(NULL, "unable to create temporary file");
363 /* getting message from stdin */
365 debug_printf("retrieving message from stdin\n");
366 if ((fd = copy_message(fileno(stdin), tmpfil, 1)) == -1)
367 adios(NULL, "unable to create temporary file");
371 debug_printf("temporary file=\"%s\"\n", tmpfil);
374 ** Delete the temp file now or a copy of every single message
375 ** passed through slocal will be left in the /tmp directory until
376 ** deleted manually! This unlink() used to be under an 'else'
377 ** of the 'if (debug)' above, but since some people like to
378 ** always run slocal with -debug and log the results, the /tmp
379 ** directory would get choked over time. Of course, now that
380 ** we always delete the temp file, the "temporary file=" message
381 ** above is somewhat pointless -- someone watching debug output
382 ** wouldn't have a chance to 'tail -f' or 'ln' the temp file
383 ** before it's unlinked. The best thing would be to delay this
384 ** unlink() until later if debug == 1, but I'll leave that for
385 ** someone who cares about the temp-file-accessing functionality
386 ** (they'll have to watch out for cases where we adios()).
390 if (!(fp = fdopen(fd, "r+")))
391 adios(NULL, "unable to access temporary file");
394 ** If no sender given, extract it
395 ** from envelope information.
398 get_sender(envelope, &sender);
401 snprintf(mailbox, sizeof(mailbox), "%s/%s",
402 mmdfldir[0] ? mmdfldir : pw->pw_dir,
403 mmdflfil[0] ? mmdflfil : pw->pw_name);
410 debug_printf("addr=\"%s\"\n", trim(addr));
411 debug_printf("user=\"%s\"\n", trim(user));
412 debug_printf("info=\"%s\"\n", trim(info));
413 debug_printf("sender=\"%s\"\n", trim(sender));
414 debug_printf("envelope=\"%s\"\n",
415 envelope ? trim(envelope) : "");
416 debug_printf("mbox=\"%s\"\n", trim(mbox));
417 debug_printf("home=\"%s\"\n", trim(home));
418 debug_printf("ddate=\"%s\"\n", trim(ddate));
419 debug_printf("now=%02d:%02d\n\n", now->tw_hour, now->tw_min);
422 /* deliver the message */
423 status = localmail(fd, mdlvr);
425 done(status != -1 ? RCV_MOK : RCV_MBX);
431 ** Main routine for delivering message.
435 localmail(int fd, char *mdlvr)
437 /* check if this message is a duplicate */
438 if (suppressdup && suppress_duplicates(fd, mdlvr ?
439 mdlvr : ".maildelivery") == DONE)
442 /* delivery according to personal Maildelivery file */
443 if (usr_delivery(fd, mdlvr ? mdlvr : ".maildelivery", 0) != -1)
446 /* delivery according to global Maildelivery file */
447 if (usr_delivery(fd, maildelivery, 1) != -1)
451 verbose_printf("(delivering to standard mail spool)\n");
453 /* last resort - deliver to standard mail spool */
455 return usr_file(fd, mbox, MBOX_FORMAT);
457 return usr_file(fd, mbox, MMDF_FORMAT);
462 #define matches(a,b) (stringdex(b, a) >= 0)
465 ** Parse the delivery file, and process incoming message.
469 usr_delivery(int fd, char *delivery, int su)
471 int i, accept, status=1, won, vecp, next;
472 char *field, *pattern, *action, *result, *string;
473 char buffer[BUFSIZ], tmpbuf[BUFSIZ];
474 char *cp, *vec[NVEC];
479 /* open the delivery file */
480 if ((fp = fopen(delivery, "r")) == NULL)
483 /* check if delivery file has bad ownership or permissions */
484 if (fstat(fileno(fp), &st) == -1 ||
485 (st.st_uid != 0 && (su || st.st_uid != pw->pw_uid)) ||
486 st.st_mode & (S_IWGRP|S_IWOTH)) {
488 verbose_printf("WARNING: %s has bad ownership/modes (su=%d,uid=%d,owner=%d,mode=0%o)\n", delivery, su, (int) pw->pw_uid, (int) st.st_uid, (int) st.st_mode);
496 /* read and process delivery file */
497 while (fgets(buffer, sizeof(buffer), fp)) {
498 /* skip comments and empty lines */
499 if (*buffer == '#' || *buffer == '\n')
502 /* zap trailing newline */
503 if ((cp = strchr(buffer, '\n')))
506 /* split buffer into fields */
507 vecp = split(buffer, vec);
509 /* check for too few fields */
512 debug_printf("WARNING: entry with only %d fields, skipping.\n", vecp);
517 for (i = 0; vec[i]; i++)
518 debug_printf("vec[%d]: \"%s\"\n",
528 /* find out how to perform the action */
533 ** If previous condition failed, don't
534 ** do this - else fall through
537 continue; /* else fall */
541 ** If already delivered, skip this action.
542 ** Else consider delivered if action is
546 continue; /* else fall */
551 ** Take action, and consider delivered if
552 ** action is successful.
561 ** Take action, but don't consider delivered,
562 ** even if action is successful
569 if (!mh_strcasecmp(vec[5], "select")) {
570 if (logged_in() != -1)
572 if (vecp > 7 && timely(vec[6], vec[7]) == -1)
577 /* check if the field matches */
585 ** "default" matches only if the message hasn't
586 ** been delivered yet.
588 if (!mh_strcasecmp(field, "default")) {
595 /* parse message and build lookup table */
596 if (!parsed && parse(fd) == -1) {
601 ** find header field in lookup table, and
602 ** see if the pattern matches.
604 if ((p = lookup(hdrs, field)) &&
605 (p->p_value != NULL) &&
606 matches(p->p_value, pattern)
616 /* find out the action to perform */
619 /* deliver to quoted pipe */
620 if (mh_strcasecmp(action, "qpipe"))
621 continue; /* else fall */
623 expand(tmpbuf, string, fd);
624 if (split(tmpbuf, vec) < 1)
626 status = usr_pipe(fd, tmpbuf, vec[0], vec, 0);
630 /* deliver to pipe */
631 if (mh_strcasecmp(action, "pipe"))
632 continue; /* else fall */
636 expand(tmpbuf, string, fd);
639 status = usr_pipe(fd, tmpbuf, "/bin/sh",
645 if (!mh_strcasecmp(action, "file")) {
646 status = usr_file(fd, string,
650 /* deliver to nmh folder */
651 else if (mh_strcasecmp(action, "folder"))
652 continue; /* else fall */
654 status = usr_folder(fd, string);
659 if (!mh_strcasecmp(action, "mmdf")) {
660 status = usr_file(fd, string,
665 else if (mh_strcasecmp(action, "mbox"))
666 continue; /* else fall */
670 status = usr_file(fd, string, MBOX_FORMAT);
675 if (mh_strcasecmp(action, "destroy"))
682 next = 0; /* action failed, mark for 'N' result */
684 if (accept && status == 0)
689 return (won ? 0 : -1);
696 ** Split buffer into fields (delimited by whitespace or
697 ** comma's). Return the number of fields found.
701 split(char *cp, char **vec)
708 /* split into a maximum of NVEC fields */
709 for (i = 0; i <= NVEC;) {
712 /* zap any whitespace and comma's */
713 while (isspace(*s) || *s == ',')
716 /* end of buffer, time to leave */
720 /* get double quote text as a single field */
722 for (vec[i++] = ++s; *s && *s != '"'; s++) {
724 ** Check for escaped double quote. We need
725 ** to shift the string to remove slash.
733 if (*s == '"') /* zap trailing double quote */
738 if (*s == QUOTE && *++s != '"')
742 /* move forward to next field delimiter */
743 while (*s && !isspace(*s) && *s != ',')
753 ** Parse the headers of a message, and build the
754 ** lookup table for matching fields and patterns.
763 char name[NAMESZ], field[BUFSIZ];
770 /* get a new FILE pointer to message */
771 if ((fd1 = dup(fd)) == -1)
773 if ((in = fdopen(fd1, "r")) == NULL) {
779 /* add special entries to lookup table */
780 if ((p = lookup(hdrs, "source")))
781 p->p_value = getcpy(sender);
782 if ((p = lookup(hdrs, "addr")))
783 p->p_value = getcpy(addr);
786 * Scan the headers of the message and build
789 for (i = 0, state = FLD;;) {
790 switch (state = m_getfld(state, name, field, sizeof(field),
795 lp = add(field, NULL);
796 while (state == FLDPLUS) {
797 state = m_getfld(state, name, field,
801 for (p = hdrs; p->p_name; p++) {
802 if (!mh_strcasecmp(p->p_name, name)) {
803 if (!(p->p_flags & P_HID)) {
804 if ((cp = p->p_value)) {
805 if (p->p_flags & P_ADR) {
806 dp = cp + strlen(cp) - 1;
809 cp = add(",\n\t", cp);
814 p->p_value = add(lp, cp);
820 if (p->p_name == NULL && i < NVEC) {
821 p->p_name = getcpy(name);
838 advise(NULL, "format error in message");
842 advise(NULL, "internal error in m_getfld");
850 if ((p = lookup(vars, "reply-to"))) {
851 if ((q = lookup(hdrs, "reply-to")) == NULL ||
853 q = lookup(hdrs, "from");
854 p->p_value = getcpy(q ? q->p_value : "");
855 p->p_flags &= ~P_CHK;
857 debug_printf("vars[%d]: name=\"%s\" value=\"%s\"\n",
858 p - vars, p->p_name, trim(p->p_value));
861 for (p = hdrs; p->p_name; p++)
862 debug_printf("hdrs[%d]: name=\"%s\" value=\"%s\"\n",
863 p - hdrs, p->p_name, p->p_value ? trim(p->p_value) : "");
874 ** Expand any builtin variables such as $(sender),
875 ** $(address), etc., in a string.
879 expand(char *s1, char *s2, int fd)
887 while ((c = *s2++)) {
888 if (c != '$' || *s2 != LPAREN) {
891 for (cp = ++s2; *s2 && *s2 != RPAREN; s2++)
898 if ((p = lookup(vars, cp))) {
899 if (!parsed && (p->p_flags & P_CHK))
902 strcpy(s1, p->p_value);
912 ** Fill in the information missing from the "vars"
913 ** table, which is necessary to expand any builtin
914 ** variables in the string for a "pipe" or "qpipe"
928 if ((p = lookup(vars, "sender")))
929 p->p_value = getcpy(sender);
930 if ((p = lookup(vars, "address")))
931 p->p_value = getcpy(addr);
932 if ((p = lookup(vars, "size"))) {
933 snprintf(buffer, sizeof(buffer), "%d",
934 fstat(fd, &st) != -1 ? (int) st.st_size : 0);
935 p->p_value = getcpy(buffer);
937 if ((p = lookup(vars, "info")))
938 p->p_value = getcpy(info);
941 for (p = vars; p->p_name; p++)
942 debug_printf("vars[%d]: name=\"%s\" value=\"%s\"\n",
943 p - vars, p->p_name, trim(p->p_value));
949 ** Find a matching name in a lookup table. If found,
950 ** return the "pairs" entry, else return NULL.
954 lookup(struct pair *pairs, char *key)
956 for (; pairs->p_name; pairs++)
957 if (!mh_strcasecmp(pairs->p_name, key))
965 ** Check utmp(x) file to see if user is currently
980 while ((utp = getutent()) != NULL) {
982 #ifdef HAVE_STRUCT_UTMP_UT_TYPE
983 utp->ut_type == USER_PROCESS &&
985 utp->ut_name[0] != 0 &&
986 strncmp(user, utp->ut_name,
987 sizeof(utp->ut_name)) == 0) {
991 return (utmped = DONE);
996 return (utmped = NOTOK);
1008 if ((uf = fopen(UTMP_FILE, "r")) == NULL)
1011 while (fread((char *) &ut, sizeof(ut), 1, uf) == 1) {
1012 if (ut.ut_name[0] != 0 &&
1013 strncmp(user, ut.ut_name, sizeof(ut.ut_name))
1018 return (utmped = DONE);
1023 return (utmped = NOTOK);
1027 #define check(t,a,b) if (t < a || t > b) return -1
1028 #define cmpar(h1,m1,h2,m2) if (h1 < h2 || (h1 == h2 && m1 < m2)) return 0
1031 timely(char *t1, char *t2)
1033 int t1hours, t1mins, t2hours, t2mins;
1035 if (sscanf(t1, "%d:%d", &t1hours, &t1mins) != 2)
1037 check(t1hours, 0, 23);
1038 check(t1mins, 0, 59);
1040 if (sscanf(t2, "%d:%d", &t2hours, &t2mins) != 2)
1042 check(t2hours, 0, 23);
1043 check(t2mins, 0, 59);
1045 cmpar(now->tw_hour, now->tw_min, t1hours, t1mins);
1046 cmpar(t2hours, t2mins, now->tw_hour, now->tw_min);
1053 ** Deliver message by appending to a file.
1057 usr_file(int fd, char *mailbox, int mbx_style)
1062 verbose_printf("delivering to file \"%s\"", mailbox);
1064 if (mbx_style == MBOX_FORMAT) {
1066 verbose_printf(" (mbox style)");
1070 verbose_printf(" (mmdf style)");
1074 /* open and lock the file */
1075 if ((md = mbx_open(mailbox, mbx_style, pw->pw_uid, pw->pw_gid,
1076 m_gmprot())) == -1) {
1078 adorn("", "unable to open:");
1082 lseek(fd, (off_t) 0, SEEK_SET);
1084 /* append message to file */
1085 if (mbx_copy(mailbox, mbx_style, md, fd, mapping, NULL, verbose)
1088 adorn("", "error writing to:");
1092 /* close and unlock file */
1093 if (mbx_close(mailbox, md) == NOTOK) {
1095 adorn("", "error closing:");
1100 verbose_printf(", success.\n");
1106 ** Deliver message to a nmh folder.
1110 usr_folder(int fd, char *string)
1113 char folder[BUFSIZ], *vec[3];
1115 /* get folder name ready */
1117 strncpy(folder, string, sizeof(folder));
1119 snprintf(folder, sizeof(folder), "+%s", string);
1122 verbose_printf("delivering to folder \"%s\"", folder + 1);
1124 vec[0] = "rcvstore";
1128 /* use rcvstore to put message in folder */
1129 status = usr_pipe(fd, "rcvstore", rcvstoreproc, vec, 1);
1133 ** Currently, verbose status messages are handled by usr_pipe().
1137 verbose_printf(", success.\n");
1139 verbose_printf(", failed.\n");
1147 ** Deliver message to a process.
1151 usr_pipe(int fd, char *cmd, char *pgm, char **vec, int suppress)
1154 int i, bytes, seconds, status;
1157 if (verbose && !suppress)
1158 verbose_printf("delivering to pipe \"%s\"", cmd);
1160 lseek(fd, (off_t) 0, SEEK_SET);
1162 for (i = 0; (child_id = fork()) == -1 && i < 5; i++)
1169 adorn("fork", "unable to");
1176 freopen("/dev/null", "w", stdout);
1177 freopen("/dev/null", "w", stderr);
1183 if ((fd = open("/dev/tty", O_RDWR)) != -1) {
1184 ioctl(fd, TIOCNOTTY, NULL);
1187 #endif /* TIOCNOTTY */
1189 /* put in own process group */
1190 setpgid((pid_t) 0, getpid());
1193 m_putenv("USER", pw->pw_name);
1194 m_putenv("HOME", pw->pw_dir);
1195 m_putenv("SHELL", pw->pw_shell);
1201 /* parent process */
1202 if (!setjmp(myctx)) {
1203 SIGNAL(SIGALRM, alrmser);
1204 bytes = fstat(fd, &st) != -1 ?
1205 (int) st.st_size : 100;
1208 ** amount of time to wait depends on
1212 /* give at least 5 minutes */
1214 } else if (bytes >= 90000) {
1215 /* a half hour is long enough */
1218 seconds = (bytes / 60) + 300;
1220 alarm((unsigned int) seconds);
1221 status = pidwait(child_id, 0);
1226 verbose_printf(", success.\n");
1228 if ((status & 0xff00) == 0xff00)
1229 verbose_printf(", system error\n");
1231 pidstatus(status, stdout, ", failed");
1233 return (status == 0 ? 0 : -1);
1236 ** Ruthlessly kill the child and anything
1237 ** else in its process group.
1239 KILLPG(child_id, SIGKILL);
1241 verbose_printf(", timed-out; terminated\n");
1251 #ifndef RELIABLE_SIGNALS
1252 SIGNAL(SIGALRM, alrmser);
1255 longjmp(myctx, DONE);
1260 ** Get the `sender' from the envelope
1261 ** information ("From " line).
1265 get_sender(char *envelope, char **sender)
1269 unsigned char buffer[BUFSIZ];
1271 if (envelope == NULL) {
1272 *sender = getcpy("");
1276 i = strlen("From ");
1277 strncpy(buffer, envelope + i, sizeof(buffer));
1278 if ((cp = strchr(buffer, '\n'))) {
1288 for (cp = buffer + strlen(buffer) - 1; cp >= buffer; cp--)
1293 *sender = getcpy(buffer);
1298 ** Copy message into a temporary file.
1299 ** While copying, it will do some header processing
1300 ** including the extraction of the envelope information.
1304 copy_message(int qd, char *tmpfil, int fold)
1306 int i, first = 1, fd1, fd2;
1307 char buffer[BUFSIZ];
1311 tfile = m_mktemp2(NULL, invo_name, &fd1, NULL);
1312 if (tfile == NULL) return -1;
1314 strncpy(tmpfil, tfile, BUFSIZ);
1317 while ((i = read(qd, buffer, sizeof(buffer))) > 0)
1318 if (write(fd1, buffer, i) != i) {
1326 lseek(fd1, (off_t) 0, SEEK_SET);
1330 /* dup the fd for incoming message */
1331 if ((fd2 = dup(qd)) == -1) {
1336 /* now create a FILE pointer for it */
1337 if ((qfp = fdopen(fd2, "r")) == NULL) {
1343 /* dup the fd for temporary file */
1344 if ((fd2 = dup(fd1)) == -1) {
1350 /* now create a FILE pointer for it */
1351 if ((ffp = fdopen(fd2, "r+")) == NULL) {
1359 ** copy message into temporary file
1360 ** and massage the headers. Save
1361 ** a copy of the "From " line for later.
1363 i = strlen("From ");
1364 while (fgets(buffer, sizeof(buffer), qfp)) {
1367 if (!strncmp(buffer, "From ", i)) {
1369 char *fp, *cp, *hp, *ep;
1372 ** get copy of envelope information
1375 envelope = getcpy(buffer);
1379 ** First go ahead and put "From " line
1389 ** Now create a "Return-Path:" line
1390 ** from the "From " line.
1392 hp = cp = strchr(fp = envelope + i, ' ');
1393 while ((hp = strchr(++hp, 'r')))
1394 if (uprf(hp, "remote from")) {
1395 hp = strrchr(hp, ' ');
1400 ** return path for UUCP style
1403 ep = strchr(++hp, '\n');
1404 snprintf(buffer, sizeof(buffer), "Return-Path: %.*s!%.*s\n", (int)(ep - hp), hp, (int)(cp - fp), fp);
1407 ** return path for standard domain
1410 snprintf(buffer, sizeof(buffer), "Return-Path: %.*s\n", (int)(cp - fp), fp);
1413 /* Add Return-Path header to message */
1418 /* Put the delivery date in message */
1439 lseek(fd1, (off_t) 0, SEEK_SET);
1451 ** Trim strings for pretty printing of debugging output
1457 char buffer[BUFSIZ*4];
1458 unsigned char *bp, *sp;
1463 /* copy string into temp buffer */
1464 strncpy(buffer, cp, sizeof(buffer));
1467 /* skip over leading whitespace */
1468 while (isspace(*bp))
1471 /* start at the end and zap trailing whitespace */
1472 for (sp = bp + strlen(bp) - 1; sp >= bp; sp--) {
1479 /* replace remaining whitespace with spaces */
1480 for (sp = bp; *sp; sp++)
1484 /* now return a copy */
1489 ** Function for printing `verbose' messages.
1493 verbose_printf(char *fmt, ...)
1498 vfprintf(stdout, fmt, ap);
1501 fflush(stdout); /* now flush output */
1506 ** Function for printing `verbose' delivery
1511 adorn(char *what, char *fmt, ...)
1517 eindex = errno; /* save the errno */
1518 fprintf(stdout, ", ");
1521 vfprintf(stdout, fmt, ap);
1526 fprintf(stdout, " %s: ", what);
1527 if ((s = strerror(eindex)))
1528 fprintf(stdout, "%s", s);
1530 fprintf(stdout, "Error %d", eindex);
1533 fputc('\n', stdout);
1539 ** Function for printing `debug' messages.
1543 debug_printf(char *fmt, ...)
1548 vfprintf(stderr, fmt, ap);
1554 ** Check ndbm/db file(s) to see if the Message-Id of this
1555 ** message matches the Message-Id of a previous message,
1556 ** so we can discard it. If it doesn't match, we add the
1557 ** Message-Id of this message to the ndbm/db file.
1560 suppress_duplicates(int fd, char *file)
1562 int fd1, lockfd, state, result;
1563 char *cp, buf[BUFSIZ], name[NAMESZ];
1568 if ((fd1 = dup(fd)) == -1)
1570 if (!(in = fdopen(fd1, "r"))) {
1576 for (state = FLD;;) {
1577 state = m_getfld(state, name, buf, sizeof(buf), in);
1582 /* Search for the message ID */
1583 if (mh_strcasecmp(name, "Message-ID")) {
1584 while (state == FLDPLUS)
1585 state = m_getfld(state, name, buf, sizeof(buf), in);
1589 cp = add(buf, NULL);
1590 while (state == FLDPLUS) {
1591 state = m_getfld(state, name, buf, sizeof(buf), in);
1594 key.dptr = trimcpy(cp);
1595 key.dsize = strlen(key.dptr) + 1;
1599 if (!(db = dbm_open(file, O_RDWR | O_CREAT,
1601 advise(file, "unable to perform dbm_open on");
1607 ** Since it is difficult to portable
1608 ** lock a ndbm file, we will open and
1609 ** lock the Maildelivery file instead.
1610 ** This will fail if your Maildelivery
1611 ** file doesn't exist.
1613 if ((lockfd = lkopen(file, O_RDWR, 0)) == -1) {
1614 advise(file, "unable to perform file locking on");
1619 value = dbm_fetch(db, key);
1622 verbose_printf("Message-ID: %s\n already received on %s", cp, value.dptr);
1625 value.dptr = ddate + sizeof("Delivery-Date:");
1626 value.dsize = strlen(value.dptr) + 1;
1627 if (dbm_store(db, key, value, DBM_INSERT))
1628 advise(file, "possibly corrupt file");
1633 lkclose(lockfd, file);